Mensajes

por ejemplo:

Código (vbnet) [Seleccionar] Expandir

imports System.Runtime.InteropServices
Guid("0000010c-0000-0000-c000-000000000046")

o:

Código (vbnet) [Seleccionar] Expandir

System.Runtime.InteropServices.Guid("0000010c-0000-0000-c000-000000000046")


¿Existe alguna diferencia al importar, como podría ser por ejemplo... mayor velocidad en el código u otro tipo de optimizaciones?,
¿O podemos usarlas directamente como en el segundo ejemplo sin preocupaciones?

Yo estoy acostumbrado a escribirlas directamente, me ahorran mucho tiempo por ejemplo al copiar una parte de código para añadirla en una nueva class, entonces en esa class no tengo que verificar las importaciones que son necesarias ni importar nada,
Pero no se si estoy actuando corréctamente.

despues que trabaje simplemente harias
T_first_instance = new thread(addressOF sub/function)
y vuelves a arrancarlo

uf, perfecto lo conseguí, esto me va a ahorrar mucha comida de coco, gracias !!

Código (vbnet) [Seleccionar] Expandir

Public thread_1 As System.Threading.Thread = New Threading.Thread(AddressOf MITHREAD)

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' Cada vez que el botón séa presionado se ejecutará el mismo thread una y otra vez, oh yeah :D !!!
        Dim thread_1 As System.Threading.Thread = New Threading.Thread(AddressOf MITHREAD)
        thread_1.Start()
    End Sub

PD: Realmente no encontraba información sobre como ejecutar el mismo thread una vez "ha muerto".

no uses backgroundworker con delegados ... usa threads

Si eso está muy bien pero... todos sabemos que un "System.Threading.Thread" sólamente se puede iniciar una vez,
He leido que para poder ejecutar el mismo thread infinitas veces solo hay que resetear la variable de la instancia del thread, osea crear una nueva instancia de "System.Threading.Thread" que llame al mismo thread

Por ejemplo:

Código (vbnet) [Seleccionar] Expandir

   Sub MITHREAD()
      msgbox("hello world")
   End Sub

Dim T_first_instance As System.Threading.Thread = New Threading.Thread(AddressOf MITHREAD)
T_first_instance.Start()

' esperamos a que el thread finalice y entonces lo volvemos a llamar cuando necesitemos volver a usarlo, pero creandolo con otro nombre de variable:
Dim T_second_instance As System.Threading.Thread = New Threading.Thread(AddressOf MITHREAD)
T_second_instance.Start()
'
' EL ADREESOF ES EL MISMO PARA LAS DOS INSTANCIAS YA QUE LA INTENCIÓN ES PODER USAR EL MISMO THREAD UNA Y OTRA VEZ.

No sé si lo hice bien, donde leí la solución para ejecutar el mismo thread las veces que uno quiera no había ningún ejemplo,
pero en caso de que el ejemplo que he dado séa correcto entonces necesito encontrar la manera de que el nombre de la variable se cree automáticamente para poder llamarlo las veces que séa necesario...
Necesitaría algo así:

Código (vbnet) [Seleccionar] Expandir


sub button1_clicked...
      Dim RandomClass As New Random()
       Dim RandomNumber As Integer = RandomClass.Next()
       Dim T_(RandomNumber) As System.Threading.Thread = New Threading.Thread(AddressOf MITHREAD)
       T_(RandomNumber).Start()
end sub


Está claro que mi intento de randomizar la variable de la instancia no funciona,
¿Me pueden ayudar a hacerlo?

[Nov]

Vale Nov, lo he intentado así

Código (vbnet) [Seleccionar] Expandir


sub dowork(...)
...
Using sw = New StreamWriter(tmpFile, False, Encoding.UTF8)
            For filei = 0 To nLines - 1
                sw.WriteLine(lines(randomNumbers(filei)))
                Randomizethread.ReportProgress(filei)
            Next
        End Using
...
end sub

Código (vbnet) [Seleccionar] Expandir

   Public Shared Sub Randomizethread_ProgressChanged(ByVal sender As System.Object, ByVal e As ProgressChangedEventArgs) Handles Randomizethread.ProgressChanged
       ' Thread.Sleep(300)
       InvokeControl(PlayLists.Form1.progresslabel, Sub(x) x.Text = "Randomizing " + filei.ToString() + " of " + (nlines - 1).ToString() + " files.")
   End Sub


Problema: Sigue sin actualizarse el label (ni cualquier otro elemento al que llame, como la barra de progreso por ejemplo vaya)

Ni con un refresh() puedo.

EDITO: El label se actualiza cuando el hilo se completa (cuando sucede el evento del workercompleted), asi que me imagino que el culpable es el FOR?, ¿Como puedo solucionarlo?

PD: No creo que séa problema del delegado porque si compruebo el valor con un msgbox(PlayLists.Form1.progresslabel.txt) veo que el valor es correcto

[class principal.vb :]

Es la primera vez que pruebo a hacer esto y no se que error estoy comentiendo...

Por un lado tengo la class principal (Form1)
Por otro lado tengo una class para un backgroundworker

Al usar delegados desde la segunda class para modificar la propiedad de un control de la class principal no sucede nada, la propiedad se modifica pero el control no se actualiza visualmente hablando en el form...  es decir, ni el label ni la progressbar cambian de estado


class principal.vb :

Código (vbnet) [Seleccionar] Expandir


Public Randomize_thread As New Randomize_thread_class
...
Randomize_thread.StartBackgroundTask()
...


class del backgroundworker.vb :

Código (vbnet) [Seleccionar] Expandir



Imports PlayLists.Form1

...

   Public WithEvents Randomize_thread As New BackgroundWorker

   Public Sub InvokeControl(Of T As Control)(ByVal Control As T, ByVal Action As Action(Of T))
       If Control.InvokeRequired Then
           Control.Invoke(New Action(Of T, Action(Of T))(AddressOf InvokeControl), New Object() {Control, Action})
       Else
           Action(Control)
       End If
   End Sub

...

   Public Sub Randomize_thread_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs) Handles Randomize_thread.DoWork
       Dim lines = File.ReadAllLines(PlayLists.Form1.Temp_file)
       Dim nLines = lines.Count
       Dim randomNumbers = RandomList(nLines)
       Dim tmpFile = Path.GetTempFileName()

       InvokeControl(PlayLists.Form1.progresslabel, Sub(x) x.Visible = True)
       InvokeControl(PlayLists.Form1.ProgressBar1, Sub(x) x.Maximum += nLines)
       Using sw = New StreamWriter(tmpFile, False, Encoding.UTF8)
           For i = 0 To nLines - 1
               sw.WriteLine(lines(randomNumbers(i)))
               InvokeControl(PlayLists.Form1.ProgressBar1, Sub(x) x.Value = i)
               InvokeControl(PlayLists.Form1.progresslabel, Sub(x) x.Text = "Randomizing " + i.ToString() + " of " + (nLines - 1).ToString() + " files.")
               ' InvokeControl(PlayLists.Form1.progresslabel, Sub(x) x.Refresh())
               ' InvokeControl(PlayLists.Form1.ProgressBar1, Sub(x) x.Refresh())
           Next
       End Using
       InvokeControl(PlayLists.Form1.progresslabel, Sub(x) x.Text = "All files launched")
   End Sub

Hay alguna solución para eso ?

Listar únicamente los discos fijos:

Código (dos) [Seleccionar] Expandir

@echo off
For /F "tokens=2" %%@ in ('wmic logicaldisk get name^,drivetype /Format:texttable ^| Find "3"') do (
(DIR /B /S "%%@\ARCHIVO_XX.txt")>> "%userprofile%\salida.txt"
)
Pause&Exit

El "If Exists" que has añadido es innecesario, como te expliqué el comanod que utilizo del wmic sirve para obtener las unidades conectadas, osea las unidades que existen...

Te da ese tipo de error con los caracteres porque la salida del comando wmic está en unicode por defecto,
debí haber previsto que podrías tener problemas para la intención que quieres darle al usar el formato "list".

Aquí tienes:

Código (dos) [Seleccionar] Expandir

For /F %%@ in ('wmic logicaldisk get name /Format:texttable ^| Find ":"') do (
   (DIR /B /S "%%@\ARCHIVO_XX.txt")>> "%userprofile%\salida.txt"
)
Pause&Exit

perfect, pues 4.0 se ha dicho 

http://msdn.microsoft.com/en-us/library/ms171435(v=vs.80).aspx
Básicamente es para cuando necesitas pasar un parámetro al fragmento de código (snippet) que estas insertando.

Por más que leía tu comentario no lo llegaba a comprender, ahora sé que el parámetro hay que escribirlo dentro del snippet, y no se envía el parámetro desde la IDE como entendí en un principio xDDDD

¿Que diferencias hay entre compilar un control para FW2.0 y FW4.x?, es decir, modificar la versión en las propiedades del proyecto del control...
¿Si lo compilo para FW4.x será más optimizado/liviano el control en los proyectos que usen FW4.x?

¿En que FW es aconsejable compilarlo? (Porfavor dar una razón de peso que no séa "FW3.X es el más instalado en PC's standard", busco eficacia)

Gracias por leer!