This is a migrated thread and some comments may be shown as answers.

Radtooltip in Scheduler in DNN

1 Answer 43 Views
Scheduler
This is a migrated thread and some comments may be shown as answers.
Karl
Top achievements
Rank 1
Karl asked on 24 May 2008, 05:38 PM

I'm recreating your example on using the Radtolltip in the Scheduler, however  in a DNN module.  Has anyone succeeded with it? If you try it one to one there are 2 problems I encounter:

a) There is an error that the module couldn't load totally. However, the schedule shows.
b) Dim toolTip As AppointmentToolTip ...Will not be recognised as defined.  

Should anyone have tried this and succeeded - I'd be thankful for info's on how you did it.

Karl


1 Answer, 1 is accepted

Sort by
0
tx55
Top achievements
Rank 1
answered on 26 Jun 2008, 12:10 AM
I tried this in DNN ascx (viewMyScheduler) and it seem to work for now.
I will try to go further after a nice sleep !

Protected Sub RadScheduler1_AppointmentCreated(ByVal sender As Object, ByVal e As Telerik.Web.UI.AppointmentCreatedEventArgs)
    Dim clientID As String = e.Appointment.ClientID 
    Me.RadToolTipManager1.TargetControls.Add(clientID,e.Appointment.ID.ToString(), True)
End Sub

Protected Sub RadToolTipManager1_AjaxUpdate(ByVal sender As Object, ByVal e As Telerik.Web.UI.ToolTipUpdateEventArgs)
    Dim appointment As Appointment = Me.RadScheduler1.Appointments.FindByID(Int32.Parse(e.Value)) 
Dim ctlTooltip As Control = LoadControl("YourToolTipControl.ascx")

Dim lblSomelabel As Label = DirectCast(ctlTooltip.FindControl("lblSomelabel"), Label)

Dim lblSomelabel2 As Label = DirectCast(ctlTooltip.FindControl("lblSomelabel2"), Label)

Dim txtSomeTextBox As TextBox = DirectCast(ctlTooltip.FindControl("txtSomeTextBox"), TextBox)

Diml lblStartDate As Label = DirectCast(ctlTooltip.FindControl("lblStartDate"), Label)

Dim lblEndDate As Label = DirectCast(ctlTooltip.FindControl("lblEndDate"), Label)

lblSomelabel .text = "GetTheStuffFromDB"

lblSomelabel1.text = "GetTheOtherStuffFromDB"

txtSomeTextBox
.Text = appointment.Subject.ToString

lblStartDateText = appointment.Start.ToString

lblEndDate.Text = appointment.End.ToString

    
e.UpdatePanel.ContentTemplateContainer.Controls.Add(ctlTooltip)

End Sub  

 

        <telerik:RadScheduler  
            ID="RadScheduler1"  
            runat="server"  
            ... 
            OnAppointmentCreated="RadScheduler1_AppointmentCreated"> 
        </telerik:RadScheduler> 
         
        ... 
 
        <telerik:RadToolTipManager  
            ID="RadToolTipManager1" 
            runat="server"  
            AutoTooltipify = "true" 
               ShowEvent="OnRightClick"
               ManualClose="true"
               Modal="true"
           OnAjaxUpdate="RadToolTipManager1_AjaxUpdate"> 
        </telerik:RadToolTipManager>

Tags
Scheduler
Asked by
Karl
Top achievements
Rank 1
Answers by
tx55
Top achievements
Rank 1
Share this question
or