insertar imagen en coordenadas del cursor
Publicado por CRIS (9 intervenciones) el 04/11/2004 12:55:19
Hola, necesito insertar una imagen en las corrdenadas del ratón, pero cuando hago clic en un lugar cualquiera del formulario.
con:
Option Explicit
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ShowMouseState Button, Shift, X, Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
ShowMouseState Button, Shift, X, Y
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
ShowMouseState Button, Shift, X, Y
End Sub
Private Sub ShowMouseState(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim descr As String
descr = Space$(20)
If Button And vbLeftButton Then Mid$(descr, 1, 1) = "I"
If Button And vbRightButton Then Mid$(descr, 3, 1) = "D"
If Button And vbMiddleButton Then Mid$(descr, 2, 1) = "M"
If Shift And vbShiftMask Then Mid$(descr, 5, 5) = "Mayús"
If Shift And vbCtrlMask Then Mid$(descr, 11, 4) = "Ctrl"
If Shift And vbAltMask Then Mid$(descr, 16, 3) = "Alt"
descr = "(" & X & "," & Y & ")" & descr
Label1.Caption = descr
Debug.Print descr
End Sub
obtengo las coordenadas, pero no se cómo insertar una imagen justo en la posición donde hago clic en el formulario
Gracias
con:
Option Explicit
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ShowMouseState Button, Shift, X, Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
ShowMouseState Button, Shift, X, Y
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
ShowMouseState Button, Shift, X, Y
End Sub
Private Sub ShowMouseState(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim descr As String
descr = Space$(20)
If Button And vbLeftButton Then Mid$(descr, 1, 1) = "I"
If Button And vbRightButton Then Mid$(descr, 3, 1) = "D"
If Button And vbMiddleButton Then Mid$(descr, 2, 1) = "M"
If Shift And vbShiftMask Then Mid$(descr, 5, 5) = "Mayús"
If Shift And vbCtrlMask Then Mid$(descr, 11, 4) = "Ctrl"
If Shift And vbAltMask Then Mid$(descr, 16, 3) = "Alt"
descr = "(" & X & "," & Y & ")" & descr
Label1.Caption = descr
Debug.Print descr
End Sub
obtengo las coordenadas, pero no se cómo insertar una imagen justo en la posición donde hago clic en el formulario
Gracias
Valora esta pregunta


0