Zdarzenie DragOver

Zdarzenie DragOver jest generowane podczas przeciągania obiektu nad innym obiektem. Można użyć tego zdarzenia do obserwowania wskaźnika myszy, w chwili gdy obiekt wchodzi nad cel, jest nad celem i wychodzi znad celu. Pozycja wskaźnika myszy określa, że obiekt celu odebrał to zdarzenie.

Składnia:

Private Sub Form_DragOver (Źródło As Control, X As Single, Y As Single, Stan As Integer)
Private Sub MDIForm_DragOver(Źródło As Control, X As Single, Y As Single, Stan As Integer)
Private Sub obiekt_DragOver ([Indeks As Integer,] Źródło As Control, X As Single, Y As Single, Stan As Integer)

Składnia zdarzenia DragOver składa się z następujących części:

obiekt	obiekt, który wykorzystuje zdarzenie DragOver, dostępny na liście
Indeks	Argument określający element sterujący w tablicy elementów sterujących.
Żrdóło	Argument określający przeciągany element sterujący. Można włączyć właściwości i metody do procedury tego zdarzenia z tym argumentem - na przykład: Źródło.Visible=0.
X, Y	Argumenty określające współrzędne kursora myszy w chwili zakończenia przeciągania. Te współrzędne są zawsze odpowiednie do układu współrzędynych obiektu (ustawionego przez właściwości ScaleHeight, ScaleWidth, ScaleLeft i ScaleTop).
Stan	Agrument określający aktualny stan przeciągania i przyjmuje wartości: 0 = Enter (obiekt wszedł nad cel) 1 = Leave (obiekt znalazł się poza celem) 2 = Over (obiekt jest nad celem)

Zdarzenie DragOver używane jest, aby sprawdzać co się dzieje, kiedy przeciąganie obiektu się rozpocznie i przed tym kiedy się zakończy. Na przykład, można weryfikować błędne położenie celu przez podświetlenie celu (ustawiając właściwości BackColor lub ForeColor) bądź przez wyświetlenie specjalnego wskaźnika przeciągania (ustawienie właściwości DragIcon lub MousePointer z kodu programu).

Argument Stan jest używany do określenia punktów zmian akcji. Na przykład można podświetlić przewidywany cel, kiedy Stan jest ustawiony na 0 (Enter) i przywrócić poprzedni wygląd obiektu kiedy Stan jest ustawiony na 1 (Leave).

Jeżeli obiekt odbierze zdarzenie DragOver a argument Stan jest ustawiony na 0 (Enter):

jeżeli przeciągany obiekt zostanie upuszczony nad innym obiektem, wtedy ten obiekt odbierze zdarzenie DragOver,
jeżeli przeciągany obiekt nie zostanie upuszczony na inny obiekt, wtedy ten obiekt odbierze inne zdarzenie DragOver z argumentem Stan ustawionym na 1 (Leave).

Można użyć właściwości DragMode i metody Drag do określenia sposobu zainicjowania przeciągania.

Lista obiektów wykorzystujących zdarzenie DragOver:
Animation
CheckBox
ComboBox
CommandButton
Data
DBCombo
DBGrid
DBList
DirListBox
DriveListBox
FileListBox
Form
Frame
HScrollBar
Image
Label
ListBox
MDIForm
OLEContainer
OptionButton
PictureBox
ProgressBar
PropertyPage
Slider
SSTab
StatusBar
TabStrip
TextBox
ToolBar
UpDown
UserControl
UserDocument
VScrollBar

na górę strony...