Visual Basic - insertar imagen en coordenadas del cursor

Life is soft - evento anual de software empresarial
 
Vista:

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
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