Visual Basic para Aplicaciones - Eventos mouse para dibujar

Life is soft - evento anual de software empresarial
   
Vista:

Eventos mouse para dibujar

Publicado por Edgar (7 intervenciones) el 19/05/2017 21:30:51
Dios les bendiga, escribo para preguntar si alguien sabe como se puede hacer un codigo como este pero en VBA, el codigo que presentare es de VB:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim Dibujar As Boolean
 
Private Sub UserForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dibujar = True
CurrentX = X
CurrentY = Y
End Sub
 
Private Sub UserForm_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Dibujar Then
Line -(X, Y)
End If
End Sub
 
Private Sub UserForm_MouseUp(Button As Integer,  Shift As Integer, X As Single,Y As Single)
Dibujar = False
End Sub

el codigo lo que hace es dibujar sobre el useform, a quien pueda ayudarme se lo agradeceria, ya saben hacer esto mismo pero en VBA, mil 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

Eventos mouse para dibujar

Publicado por JuanC juanc2942@gmail.com (498 intervenciones) el 19/05/2017 22:52:14
algo que te puede ayudar...

https://www.sendspace.com/file/0jnsdw
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

Eventos mouse para dibujar

Publicado por Edgar (7 intervenciones) el 20/05/2017 05:14:23
Si algo así pero modificable, es decir, que valla realizando lineas con cada click que haga, es como que si donde hiciera click enviara las coordenadas, si pudieras ayudarme te lo agradecería
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