Microsoft Visual Basic Express
Ver Más instrucciones
1
Abra Microsoft Visual Basic Express, seleccione el menú "Archivo" y luego en "Nuevo Proyecto". Seleccione " Visual Basic " en " Plantillas instaladas ", haga doble clic en " Biblioteca de clases " que se muestra en el centro del "Nuevo proyecto " Ventana
2
Escriba el siguiente por encima de " Public Class Class1 " . :
Imports System Imports System.Threading
3
Copia y pega el siguiente en " Public Class Class1 ":
privado Sub CntrFunc ()
iCntr Dim As Integer
ThreadState dévil como secuencia
Para iCntr = 1 a 70000
Si iCntr Mod 7000 = 0 Entonces
ThreadState = Thread.CurrentThread.ThreadState.ToString
Console.WriteLine ( "Contador :" + ThreadState )
End If
Siguiente
< p> End Sub
Esta subrutina se inició como un hilo y ejecutar un bucle .
4
Escriba lo siguiente para crear una función que se iniciará el hilo " CntrFunc " y supervisar su estado hasta que se hace :
Public Function createThreadInDLL () As String
ThreadState dévil como secuencia
tr Dim As New Thread ( AddressOf CntrFunc )
< p> tr.Start ()
Mientras tr.IsAlive
Thread.CurrentThread.Sleep ( 200 )
End While
ThreadState = tr.ThreadState . ToString
createThreadInDLL = "El hilo de rosca se hace es : " + _
ThreadState
End Function