Estoy haciendo un simple drag an drop entre dos listbox y me quede estancado con el uso del punero del mouse.
Mas especificamente en la función
Código: Seleccionar todo
Sub MouseListener_mousePressed(oEv)
Dim Ctrl_Evento as String
Ctrl_Evento = oEv.Source.Model.Name
Select Case oEv.Buttons
Case com.sun.star.awt.MouseButton.LEFT
oPointer = createUnoService("com.sun.star.awt.Pointer")
oPointer.SetType(27)
oEv.Source.Peer.SetPointer(oPointer)
Nom_Control1 = Ctrl_Evento
Nom_Control2 = ""
oDlg.getControl(Nom_Control1).SelectItem(Item_Seleccionado, True)
Case com.sun.star.awt.MouseButton.RIGHT
End Select
End Sub
cuando arrastro el mouse no hace lo mismo
Código: Seleccionar todo
Sub MouseMotionListener_mouseDragged(oEv as com.sun.star.awt.MouseEvent)
Select Case oEv.Buttons
Case com.sun.star.awt.MouseButton.LEFT
Dim Ctrl_Evento as String
Ctrl_Evento = oEv.Source.Model.Name
oPointer = createUnoService("com.sun.star.awt.Pointer")
oPointer.SetType(27)
oEv.Source.Peer.SetPointer(oPointer)
if Ctrl_Evento = "ListBox01" then
SueltaPosX = oEv.X + Array_Listbox1(0)
SueltaPosY = oEv.Y + Array_Listbox1(1)
end if
if Ctrl_Evento = "ListBox02" then
SueltaPosX = oEv.X + Array_Listbox2(0)
SueltaPosY = oEv.Y + Array_Listbox2(1)
end if
Seleccion_Item(Ctrl_Evento, SueltaPosX, SueltaPosY)
Case com.sun.star.awt.MouseButton.RIGHT
'MsgBox("Right Button")
End Select
End Sub
Les dejo un ejemplo de lo que estoy haciendo para que lo vean y ver si encuentran la forma de corregirlo.