Es mucho más fácil con timer...
timer1()_tick
'Comandos
start timer1()
timer1()_tick
'Comandos
start timer1()
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: 0xDani en 13 Septiembre 2012, 13:05 PM
Apuesto por Microsoft.
find /boot/grub/stage1
root (hdX,Y)
setup (hdX)
Cita de: seba123neo en 1 Septiembre 2012, 00:12 AM
no se puede directamente, para simular una demora o pausa (tipo sleep pero sin que se trabe todo), debes hacer un bucle que ejecute el Application.DoEvents() y que termine cuando se cumpla una condicion, en este caso cuando se cumpla la cantidad de segundos que vos quieras, te haces una simple funcion y la llmas con los segundos como parametro, asi se hace tambien en visual basic 6,
aca te paso un ejemplo de pausa que no traba la aplicacion.Public Class Form1
Private Sub Pausa(ByVal pSegundos As Integer)
Dim vInicio As Integer = Environment.TickCount()
While ((Environment.TickCount() - vInicio) <= pSegundos)
Application.DoEvents()
End While
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i As Integer = 1 To 30
TextBox1.Text = i
Call Pausa(1000)
Next
End Sub
End Class
al apretar el boton se va sumando 1 al valor del textbox y con una pausa de 1 segundo, esta no traba la pantalla y podes mover los controles y la pantalla. sin embargo dicen que el DoEvents ocupa mucho procesador, pero bueno no creo que sea tan drastico. la otra es usar Threads.
saludos.
Cita de: Stakewinner00 en 1 Septiembre 2012, 00:09 AM
personalmente utilizaria un timer
Cita de: seba123neo en 31 Agosto 2012, 20:39 PM
al usar Sleep ya que traba toda la aplicacion (en este caso es solo 1 segundo asi que casi ni lo notas), pero mejor es usar Application.DoEvents para generar un retraso, y en ese retraso vas a poder mover la pantalla sin que se trabe.
System.Threading.Thread.Sleep(1000)
Navegador.navigate(txt_direccion.text)
Button1.Hide()
Button2.Show()
total.text = 1
Dim counter As Integer = 0
While counter < 20
counter += 1
' Insert code to use current value of counter.
If total.Text = 1 Then Navegador.Refresh()
End While
Navegador.navigate(txt_direccion.text)
Button1.Hide()
Button2.Show()
total.text = 1
Dim i As Integer = 0
For i = 1 to 20
If total.Text = 1 Then Navegador.Refresh()