tooltip allday-event

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Is it correct that there is no tooltip for allday events?

I only get tooltips moving the mouse over events with specified time (either dayview or monthview or weekview). 

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
tjbobersen Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 01 August 2006 Status: Offline Points: 3	Post Options Post Reply Quote tjbobersen Report Post Thanks(0) Quote Reply Topic: tooltip allday-event Posted: 09 January 2008 at 3:00am
	Is it correct that there is no tooltip for allday events? I only get tooltips moving the mouse over events with specified time (either dayview or monthview or weekview).

dentor Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 30 November 2005 Location: France Status: Offline Points: 102	Post Options Post Reply Quote dentor Report Post Thanks(0) Quote Reply Posted: 02 February 2008 at 7:32am
	Hello, You can have tooltips for all case of positions in the Calendar Control. Personally, I use 3 types of tooltip in the Calendar Control: Event, Show the Time and the Subject All day Event, I only show the Subject No Event, useful to show the time of the cursor position You can set tooltip in the MouseMove Event : Private Sub Calendar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim HitTest As CalendarHitTestInfo Set HitTest = Calendar.ActiveView.HitTest If Not HitTest.ViewEvent Is Nothing Then If HitTest.ViewEvent.Event.AllDayEvent Then Calendar.ToolTipText = HitTest.ViewEvent.Event.Subject Else Calendar.ToolTipText = ExtractTime(HitTest.ViewEvent.Event.StartTime) & "-" & ExtractTime(HitTest.ViewEvent.Event.EndTime) & " " & HitTest.ViewEvent.Event.Subject End If Else Calendar.ToolTipText = ExtractTime(HitTest.HitDateTime) End If End Sub ' *** A function to extract the time from the date event Private Function ExtractTime(Dt As Date) As String ExtractTime = Format(Dt, "hh:nn") End Function Hope it will help you