Visual Basic - CONTADOR

Life is soft - evento anual de software empresarial
   
Vista:

CONTADOR

Publicado por Anna (1 intervención) el 03/10/2009 18:41:01
Gente necesito ayuda con un contador de apariciones de un objeto, necesito contra cuantas veces aparace cierto objeto (visible) y guardarlo en una variable "X".

Saludos y gracias.
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:CONTADOR

Publicado por alfonso (64 intervenciones) el 04/10/2009 19:20:09
podrias poner mas informacion sobre el proyecto que estas haciendo

asi alomejor vemos de que se trata y te damos la mejor explicacion
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:CONTADOR

Publicado por juan carlos (518 intervenciones) el 05/10/2009 03:19:20
hola Anna para probar el ejemplo necesitas 4 botones y un label1
el procedimiento para probar este ejemplo es asi:
ocultas con el boton command2 el command4
al ocultarlo das click en el command1
el command1 llamara un proceso llamado verificar
que verificara si el command4 es visible o no y metera la salida en la variable global a
si lo encuentra invisible escribira en el label1 el numero de desaparicion
si lo encuentra visible no hara nada
el command2 es para volver a poner visible el command4
espero que esto sea lo que pediste.
desde luego lo puedes usar con otros objetos pero el proposito es poner un ejemplo

este es mi correo si deseas el ejemplo
mega.juca@hotmail.es
====================================================================
rem variables globales
Dim a As Boolean
Dim b As Integer

Private Sub Command1_Click()
verificar
If a = False Then
b = b + 1
label1.Caption = b
Else
Exit Sub
End If
End Sub

Sub verificar()
If Command4.Visible = False Then
a = False
Else
If Command4.Visible = True Then
a = True
End If
End If
End Sub

Private Sub Command2_Click()
Command4.Visible = False
End Sub

Private Sub Command3_Click()
Command4.Visible = True
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