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:     [ Jetzt bewerten ]	Views:  12.484
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 5 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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