Mensajes

hey genial Karcrack lo tomare como alternativa vere que otros metodos habra me has motivado xD... Salu2 y thankz

si no me equivoco creo que son como prueba1 prueba2 prueba3 y su respectivas estadisticas sobre el tiempo que toma realizar cada una 

como todos los que te respondieron aqui yo tengo Win 7 Ultimate 64 bits al principio tuve problemas al instalar luego intente denuevo y obvie los errores de compatibilidad al = hize con mi laptop que tiene el mismo SO pero eso si al abrirlo se veia lentisimo cuando movia el mouse y lo que hize fue mirar las propiedades del ejecutable y tuve que desabilitar la composicion del escritorio o como sea en espanol que no lo se Disable Desktop Composition y despues de eso al abrir VB6 se va lo aero pero lo bueno es que me va bien y rapido U_U .....

Lo he probado en W$ XP SP3, a ver si alguien puede probarlo en otro W$

Noo pero kerias ver k tal iva en otro SO no?

d naa amio

jeje el d arriba tiene razon kuando apenas lo posteaste lo probe y pensek era xk tenia Win 7 64bits....    pero kon tan solo postearlo y tener una idea d komo c hace es una buena ayuda y gracias  x eso

Pusiste un intervalo al timer? xD

xk a mi eso me funciona bien U_U y asegurate d k txtlog es un label xk si fuera un textbox no tiene esa propiedad ..... mira prueba con esto

Código [Seleccionar] Expandir


Private Sub Command1_Click()
    Label1.Caption = "abajo"
End Sub

Private Sub Label1_Change()
    If Label1.Caption = "abajo" Then
        Timer1.Enabled = True
    End If
End Sub

Private Sub Timer1_Timer()
    SendKeys "{down}"
End Sub


y al timer dale un intervalo de 100 o si kieres mas komo kieras

jejeje de naa amigo te estaba complicando la vida teniendo el codigo k posteaste arriba xD ... Salu2

jejeje ya te me tas confundiendo mucha mira aqui te hize un ejemplo

Código [Seleccionar] Expandir


Private Sub Label1_Change()
    If Label1.Caption = "izquierda" Then
        MsgBox "Cambio a izquierda"
    ElseIf Label1.Caption = "derecha" Then
        MsgBox "Cambio a derecha"
    End If
End Sub


Mira esto

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Dim x As Integer
For x = 0 To List1.ListCount
    If List1.List(x) = "dedo" Then
        MsgBox "Aki Toy"
    End If
Next x
End Sub