Cronometro con VB6 con tecla F3
Hola! Como estas? Te molesto porque estoy empezando con programacion, y hay varias cosas que no tengo en claro. Trato de armar algo bastante complejo, y ya me trbe en la parte mas sencilla....no me funciona este
"trigger" para que inicie el cronometro. Mi idea es que con el primer
F3 arranque el cronometro y que se corte con el próximo F3. Lo que necesito es
el tiempo entre cada uno.
El problema que tengo es con el F3. Probé mil maneras y no me funciona. (keypress, es uno de ellos, pero no funciona... ¿Me
podrías asesorar con el código por favor? Ya le mande esta consulta a otro experto y creo que no me entendió bien, o yo no le entendí a el...
Private Sub Form_Load()
If Asc(KeyPress) = 75 Then ' Se presiono F3
Text1.Text = "Funciono" 'El "Funciono" lo deberia
reemplazar con el now()
End If
End Sub
Probe tambien con
Private Sub Form_Load()
Dim F3 as string*3
F3=75
If Asc(KeyPress) = F3 Then ' Se presiono F3
Text1.Text = "Funciono" 'El "Funciono" lo deberia
reemplazar con el now()
End If
End Sub
El problema es con el código ascii 075 en oct o 3D en Hex 61 en dec probé con
todo y no funciona.
Muchas gracias!
Saludos!
"trigger" para que inicie el cronometro. Mi idea es que con el primer
F3 arranque el cronometro y que se corte con el próximo F3. Lo que necesito es
el tiempo entre cada uno.
El problema que tengo es con el F3. Probé mil maneras y no me funciona. (keypress, es uno de ellos, pero no funciona... ¿Me
podrías asesorar con el código por favor? Ya le mande esta consulta a otro experto y creo que no me entendió bien, o yo no le entendí a el...
Private Sub Form_Load()
If Asc(KeyPress) = 75 Then ' Se presiono F3
Text1.Text = "Funciono" 'El "Funciono" lo deberia
reemplazar con el now()
End If
End Sub
Probe tambien con
Private Sub Form_Load()
Dim F3 as string*3
F3=75
If Asc(KeyPress) = F3 Then ' Se presiono F3
Text1.Text = "Funciono" 'El "Funciono" lo deberia
reemplazar con el now()
End If
End Sub
El problema es con el código ascii 075 en oct o 3D en Hex 61 en dec probé con
todo y no funciona.
Muchas gracias!
Saludos!
1 Respuesta
Respuesta de carloscharly
1