.
Eso es vb.net
Te has equivocado de sección, la tuya es esta:
http://foro.elhacker.net/net-b62.0/
DoEvents!
Eso es vb.net
Te has equivocado de sección, la tuya es esta:
http://foro.elhacker.net/net-b62.0/
DoEvents!
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: raul338 en 2 Diciembre 2010, 00:52 AMCoincido.
Es medio cutre usar shutdown.exe, investiga sobre la API ExitWindowsEx asi te entretienes y lo haces mas original
Citar31 Mayo 2009, 21:41Pero no postee/mire nada hasta :
Citar2 Febrero 2010, 18:20Ahi empieza mi vbida en este foro!
Option Explicit
Rem Añade un TextBox, un CommandButton y un Timer
Private sTextBoxLines$()
Private lLimit&
Private lLine&
Private Sub Form_Load()
With Timer1
.Enabled = False
.Interval = 1000
End With
Command1.Caption = "Prueba"
Text1.Text = "Que" & vbCrLf & _
"vivan" & vbCrLf & _
"las" & vbCrLf & _
"ranas"
End Sub
Public Function LoadLines(ByVal sText$) As Boolean
Erase sTextBoxLines$() : lLine& = 0
sTextBoxLines$() = Split(sText$, vbCrLf)
lLimit& = UBound(sTextBoxLines$())
LoadLines = CBool(lLimit&)
End Function
Private Sub Timer1_Timer()
MsgBox sTextBoxLines$(lLine&)
lLine& = lLine& + 1
If lLine& > lLimit& Then
Timer1.Enabled = False
End
End If
End Sub
Private Sub Command1_Click()
If LoadLines(Text1.Text) Then
Timer1.Enabled = True
End If
End Sub