.
| Add | |
| Move | |
| SetFocus | . |
| Zorder |
.
| Click | , |
| Dbici'ick | , |
| Keypress | , , |
| Change | |
| GotFocus LostFocus | , |
| Error |
, .
,
MouseDown
MouseUp
MouseMove
:
Private Sub object_MouseDown(ByVal Button As fmButton, _
ByVal Shift As fmShiftState, ByVal X As Single, ByVal Y As Single)
Private Sub object_MouseUp (ByVal Button As fmButton, _
ByVal Shift As fmShiftState, ByVal X As Single, ByVal Y As Single)
Private Sub object_MouseMove(ByVal Button As fmButton,_
ByVal Shift As fmShiftState, ByVal X As Single, ByVal Y As Single)
:
| Button | () . : - fmButtonLeft l () -fmButtonRight 2 () -fmButtonMiddle 4 () |
| Shift | () . : fmShiftMask 1 (<Shift>) fmCtrlMask 2 (<Ctrl>) fmAltMask 4 (<Alt>). |
| X Y | , . MouseMove |
drag-and-drop, .
,
BeforeDragOver drag-and-drop
BeforeDropOrPaste drag-and-drop
:
Private Sub object_BeforeDragOver(ByVal Cancel As _
MSForms.ReturnBoolean, ByVal Data As DataObject, _
ByVal X As Single, ByVal Y As Single, _
ByVal DragState As fmDragState, _
ByVal Effect As MSForms.ReturnEffect, _
|
|
|
ByVal Shift As fmShiftState)
Private Sub object_BeforeDropOrPaste(ByVal Cancel As _
MSForms.ReturnBoolean, ByVal Action As fmAction, _
ByVal Data As DataObject, ByVal X As Single, ByVal Y As Single, _
ByVal Effect As MSForms.ReturnEffect, _
ByVal Shift As fmShiftState)
:
| Cancel | : False ( , ) True ( ) |
| Data | , drag-and-drop. DataObject. DataObject , |
| X Y | |
| DragState | . : fmDragStateEnter 0 ( ) fmDragStateLeave 1 ( ) fmDragStateOver 2 ( , ) |
| Effect | , . : - fmDropEffectNone 0( ) fmDropEffectCopy 1 ( ) fmDropEffectMove 2 ( ) fmDropEffectCopyOrMove 3 ( ) |
| Shift | () . : -fmShiftMask 1 (<Shift>) -fmCtrlMask 2 (<Ctrl>) - fmAltMask 4 (<Alt>) |
