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:
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
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 = TrueCurrentX = XCurrentY = YEnd 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 = FalseEnd 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
0