Custom Tooltips???

 

I would also like that to be added to the next version.

 

Claus

Managed to workaround it with the Mousemove and HitTest.

 

Put a timer on the desktop i.e. tmrTooltip and set it to enabled = False and Interval 1000 (1 second)

 

The following code should get you a tooltip that appears 1 second after you scroll over an Event in the Calendar control. I wanted a delay before the tooltip appeared.

 

Private Sub CalendarControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 0 Then
        Dim HitTest As CalendarHitTestInfo
        Set HitTest = CalendarControl.ActiveView.HitTest
       
        CalendarControl.EnableToolTips False
        
        If Not HitTest.ViewEvent Is Nothing Then

            ' Set the caption of the Tooltip Label
            lblTooltip.Caption = Replace(HitTest.ViewEvent.Event.Subject & vbCrLf & HitTest.ViewEvent.Event.Body, "&", "&&")
             

             ' Check to see if the Tooltip goes beyond the Screen width
            If X + lblTooltip.Width > Screen.Width Then
                X = Screen.Width - lblTooltip.Width
            End If
                
            ' Position the Tooltip
            lblTooltip.Move X, Y + 1300
                
            ' Start the Timer for the Tooltip
            If lblTooltip.Visible <> True Then
                tmrTooltip.Enabled = True
            End If

        Else
            ' Hide the Tooltip
            tmrTooltip.Enabled = False
            lblTooltip.Visible = False
        End If

    Else

        ' Hide the Tooltip
        tmrTooltip.Enabled = False
        lblTooltip.Visible = False
    End If

 

Private Sub tmrTooltip_Timer()

    ' Display the Tooltip & stop the Timer
    lblTooltip.Visible = True
    tmrTooltip.Enabled = False
End Sub

 

You may need to add additional code depending on how you use this in your app.