Rubrik: Controls · Sonstiges | VB-Versionen: VB5, VB6 | 06.07.06 |
MonthView: Datum unter dem Mauszeiger ermitteln Sie möchten wissen, auf welchem Datum sich der Mauszeiger innerhalb des MonthViews-Controls aktuell befindet? | ||
Autor: Dieter Otter | Bewertung: | Views: 11.654 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Sie möchten wissen, auf welchem Datum sich der Mauszeiger innerhalb des MonthViews-Controls aktuell befindet?
Nichts leichter als das
Sie brauchen hierzu lediglich die aktuellen Mauskoordinaten an die HitTest-Funktion übergeben und den Rückgabewert entsprechend abfragen:
Private Sub MonthView1_MouseMove(Button As Integer, Shift As Integer, _ X As Single, Y As Single) Dim vDate As Date If MonthView1.HitTest(X, Y, vDate) = mvwCalendarDate Then ' Datum, auf dem sich die Maus befindet Me.Caption = vDate End If End Sub
Das Ganze lässt sich natürlich auch beim Klicken auf ein Datum abfragen, um so bspw. ein spezielles Kontextmenü einzublenden:
Private Sub MonthView1_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If Button = vbRightButton Then Dim vDate As Date If MonthView1.HitTest(X, Y, vDate) = mvwCalendarDate Then ... End If End If End Sub