Visual Basic - porque no funciona?

Life is soft - evento anual de software empresarial
 
Vista:

porque no funciona?

Publicado por Hector (233 intervenciones) el 20/10/2001 08:42:26
Option Explicit
Dim X As Long

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
X = X + 1
Label1.Caption = "Me has tocado: " + Str(X) + "Veces"
End
End Sub

Private Sub Form_Load()
X = 0
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:porque no funciona?

Publicado por Cha Men (92 intervenciones) el 20/10/2001 15:34:06
porque en ese evento es cada vez que mouse pasa por encima, para saber cuantas veces has hecho click usa el evento command_click

Private Sub Command1_Click()
X = X + 1
Label1.Caption = "Me has tocado: " + Str(X) + "Veces"
End
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:porque no funciona?

Publicado por edu (423 intervenciones) el 20/10/2001 19:58:58
Cha Men, tiene razon, pero tambien Declarastes una variable X, y X es usada por la funcion MOUSE MOVE para señalar la posicion en el eje de las X del Mouse, el codigo te funciona si cambias el nombre de X por otro nombre, pero como Cha Men digo, si quieres capturar el click usa el evento del mismo.

Atte.
Eduardo
Caracas-Vzla
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:pero ademas...

Publicado por WEBon Master (4 intervenciones) el 21/10/2001 10:20:54
...hay que declarar como publica x

En la seccion de declaraciones:

Public x As Integer

Si no no funciona....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar