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.645
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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.