Codejock Forums Homepage
Forum Home Forum Home > Codejock Products > ActiveX COM > Calendar
  New Posts New Posts RSS Feed - Tooltip in day view
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

Tooltip in day view

 Post Reply Post Reply
Author
Message
WaaZ View Drop Down
Senior Member
Senior Member


Joined: 31 January 2006
Location: United Kingdom
Status: Offline
Points: 103
Post Options Post Options   Thanks (0) Thanks(0)   Quote WaaZ Quote  Post ReplyReply Direct Link To This Post Topic: Tooltip in day view
    Posted: 04 July 2006 at 8:22pm

Since in day view there is now no way of knowing when an appointment time starts or ends except to either see how it fits into the time scale on the side or open the appointment, is there a way i can have tooltips working like you have them working in week and month view, so by moving my mouse over the appointment i can see when the start and end time and what the appointment contains etc.

I need this for day view, i know its already in week and month view. Again ideally it would be good to have this AND ALSO the ability to show start and end times for an appointment.

Im using 9.81 but if you told me this has been fixed in later realises then that would be great.
 
Thanks
Back to Top
sserge View Drop Down
Moderator Group
Moderator Group


Joined: 01 December 2004
Status: Offline
Points: 1297
Post Options Post Options   Thanks (0) Thanks(0)   Quote sserge Quote  Post ReplyReply Direct Link To This Post Posted: 05 July 2006 at 2:55pm
Actually for such purposes you can disable standard calendar tooltips and
show your own one with some text.
 
See Custom Tooltips Example in calendar VB sample. 

--
WBR,
Serge
Back to Top
celebre View Drop Down
Newbie
Newbie


Joined: 11 July 2006
Location: Spain
Status: Offline
Points: 7
Post Options Post Options   Thanks (0) Thanks(0)   Quote celebre Quote  Post ReplyReply Direct Link To This Post Posted: 08 October 2006 at 7:41pm
Is possible to use CalendarControl.TooltipText in VBA?
 
I tried the following but I get an error in Access'03 "Object don't admit that property".
 
CalendarControl1.TooltipText = ""
 
Greetings
Back to Top
sserge View Drop Down
Moderator Group
Moderator Group


Joined: 01 December 2004
Status: Offline
Points: 1297
Post Options Post Options   Thanks (0) Thanks(0)   Quote sserge Quote  Post ReplyReply Direct Link To This Post Posted: 09 October 2006 at 8:43am
ToolTipText property is provided by VB engine and it is not accessible in VBA. However, VBA does have its own ways to handle tooltips. For example, in Access you can use ControlTipText property.

--
WBR,
Serge
Back to Top
celebre View Drop Down
Newbie
Newbie


Joined: 11 July 2006
Location: Spain
Status: Offline
Points: 7
Post Options Post Options   Thanks (0) Thanks(0)   Quote celebre Quote  Post ReplyReply Direct Link To This Post Posted: 09 October 2006 at 9:59am
Yes but I can't modify the CalendarControl Tooltip behavior in VBA when user move cursor over an event, right?

I'm a little confused... can I access somehow the ToolTip property of CalendarControl in VBA?

In the above code, Form.ControlTipText isn't the same than CalendarControl1.ToolTipText

Private Sub CalendarControl1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As Long)
    Dim HitTest As CalendarHitTestInfo
    Set HitTest = CalendarControl1.ActiveView.HitTest
   
    Dim ctl As Control, i As Integer
 
    If (Not HitTest.ViewEvent Is Nothing) Then
        For Each ctl In Me.Controls
            With ctl
                If .ControlType = acTextBox Then
                    .ControlTipText = "[" & HitTest.ViewEvent.Event.ID & "] " & HitTest.ViewEvent.Event.Subject
               End If
            End With
        Next ctl
        Set ctl = Nothing
    Else
       ...
        ctl.ControlTipText = ""
       ...
    End If
End Sub


Thx for your fast answer.
Back to Top
sserge View Drop Down
Moderator Group
Moderator Group


Joined: 01 December 2004
Status: Offline
Points: 1297
Post Options Post Options   Thanks (0) Thanks(0)   Quote sserge Quote  Post ReplyReply Direct Link To This Post Posted: 09 October 2006 at 5:20pm
Well, why do you need this loop at all?

Simple modifying of your code in a following way works just fine for me showing a needed tooltip (tried it in Access):

Private Sub CalendarControl1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As Long)
    Dim HitTest As CalendarHitTestInfo
    Set HitTest = CalendarControl1.ActiveView.HitTest
   
    If (Not HitTest.ViewEvent Is Nothing) Then
        CalendarControl1.ControlTipText = "[" & HitTest.ViewEvent.Event.Id & "] " & HitTest.ViewEvent.Event.Subject
    Else
        CalendarControl1.ControlTipText = ""
    End If
End Sub


--
WBR,
Serge
Back to Top
celebre View Drop Down
Newbie
Newbie


Joined: 11 July 2006
Location: Spain
Status: Offline
Points: 7
Post Options Post Options   Thanks (0) Thanks(0)   Quote celebre Quote  Post ReplyReply Direct Link To This Post Posted: 09 October 2006 at 6:41pm

It worked perfectly. It's clear now.

Thx for your help. 

Back to Top
 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 12.04
Copyright ©2001-2021 Web Wiz Ltd.

This page was generated in 0.172 seconds.