Simular Pulsación

Erick
11 de Octubre del 2004
Hola
Bueno el Problema que tengo o lo que intento hacer es que por ejemplo al hacer clic en un objeto cualquiera por ejemplo un PictureBox se simule la pulsación de un CommandButton pero me refiero a la pulsación Visual osea que se vea como si se le Hubiera dado clic al Boton, me imagino que existira un api o algo asi para hacer esto gracias por cualquier comentario.
Salu2.

Bartolom
11 de Octubre del 2004
Puedes hacerlo con un Checkbox en vez de un CommandButton. Toma un Checkbox, coloca su propiedad Style en Graphical. Luego, en el evento click del objeto cualquiera que quieras hacer click (p ejemplo un picture), ejecutas lo siguiente:

Private Sub Picture1_Click()
Dim n As Integer
n = 1
Check1.Value = 1
TIEMPO = Timer
While Timer < TIEMPO + n
DoEvents
Wend
Check1.Value = 0
End Sub

En el momento que el check cambie su propiedad value a 1, ejecutará todo el contenido que está en su evento click, por lo tanto, funciona igual que un command, o sea, en el evento click del check colocas las instrucciones que querías realizar con el click del CommandButton.
El valor de n son los segundos que desees mostrar el botón apretado visualmente.

Saludos!
Bartolom
Chile