Public
Class IngredientSource
Private _ID As Integer
Private _CompanyID As String
Private _CompanyName As String
Private _AddlCompanyName As String
Private _EntryDate As DateTime
Private _Comment As String
Private _AgencyID As Integer
Private _AgencyName As String
Private _RenewalMonth As String
Public Property ID() As Integer
Get
Return _ID
End Get
Set(ByVal value As Integer)
_ID = value
End Set
End Property
Public Property CompanyName() As String
Get
Return _CompanyName
End Get
Set(ByVal value As String)
_CompanyName = value
End Set
End Property
Public Property AddlCompanyName() As String
Get
Return _AddlCompanyName
End Get
Set(ByVal value As String)
_AddlCompanyName = value
End Set
End Property
Public Property EntryDate() As DateTime
Get
Return _EntryDate
End Get
Set(ByVal value As DateTime)
_EntryDate = value
End Set
End Property
Public Property Comment() As String
Get
Return _Comment
End Get
Set(ByVal value As String)
_Comment = value
End Set
End Property
Public Property AgencyID() As Integer
Get
Return _AgencyID
End Get
Set(ByVal value As Integer)
_AgencyID = value
End Set
End Property
Public Property AgencyName() As String
Get
Return _AgencyName
End Get
Set(ByVal value As String)
_AgencyName = value
End Set
End Property
Public Property RenewalMonth() As String
Get
Return _RenewalMonth
End Get
Set(ByVal value As String)
_RenewalMonth = value
End Set
End Property
Public ReadOnly Property FullName() As String
Get
Return Trim(_CompanyName) + ", " + Trim(_AddlCompanyName)
End Get
End Property
End
Class
Public
Class IngredientSourceList
Inherits List(Of IngredientSource)
Public Sub New()
End Sub
End
Class
How would I implement Ienumerable with this class and does the IngredientSourceList use Ienumberable by using List(of)
Thank you . I am a newbie at vb.net
Judith
| <telerik:RadTextBox ID="Description" Text='<%# Bind("Description") %>' Runat="server" Skin="WebBlue" |
| Width="200px" ReadOnly="true" MaxLength="50"> |
| </telerik:RadTextBox> |
Hello,
I was wondering if Telerik supports some of the other event attributes like UID, Category, Location, etc. that are in the ICS file specification but not currently coming out of the scheduler. Is Telerik doing that at all?
Also, are you aware if the ICS's UID is stored and used by outlook at all? I'm trying to research it, but I can't find documentation. I was wondering if the UID could be used to edit an existing appointment, instead of creating a new one.
Thanks.
In some cases, "RadMenu1" will be present, but $find("RadMenu1") will return null. A safer way to find your
RadControl is to use a server tag to output the control ClientID to the $find() method. We leave it up to the
RadControl to figure out the correct ClientID in case the control is nested within a master page or user
control and the ClientID wouldn't be what we expect:
ID and ClientID
The
ID property of a control identifies an ASP.NET server control. The ID is only unique within
the current NamingContainer (page, user control, item template).
3)
The
ClientID property is unique within the entire page. The ClientID will be rendered with the
container control, an underscore
and the control ID. If "RadMenu1" is located directly on the
page the two properties would be:
ID: "RadMenu1"
ClientID: "RadMenu1"
If "RadMenu1" is located in a user control "WebUserControl1", the properties are:
ID: "RadMenu1"
ClientID: "WebUserControl1_RadMenu1"
function
OnClientAppointmentInserting(sender, eventArgs)
{
eventArgs.set_cancel(
true);
var x=eventArgs.get_resource(); // not working i need a suitable function here.
if(eventArgs.get_startTime().getHours() < 8)
{
alert(
"non-business hour");
}
else
{
window.location.href =
"NewBooking.aspx";
}
}
i want to store the id of the resource in x and send it through querystring.
| <%@ Page Language="VB" MasterPageFile="~/MasterPage.master" AutoEventWireup="false" CodeFile="RentalCalendar.aspx.vb" Inherits="HowToRent" %> |
| <%@ Register TagPrefix="UsrContent01" TagName="usrCtlMain" Src="~/ClientPages/Calendar.ascx" %> |
| <%@ Register Assembly="Telerik.Web.UI" Namespace="Telerik.Web.UI" TagPrefix="telerik" %> |
| <asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server"> |
| <style type="text/css"> |
| div.RadScheduler .rsMonthView .rsWrap |
| { |
| height: auto; |
| font-size: 0; |
| min-height: 10px; /* * 4 = empty cell height */ |
| line-height:10px; |
| } |
| div.RadScheduler .rsMonthView .rsDateWrap, |
| div.RadScheduler .rsWrap div.rsApt, |
| div.RadScheduler .rsRow div.rsShowMore |
| { |
| position: relative; |
| font: 8px/16px verdana,sans-serif; |
| } |
| </style> |
| <UsrContent01:usrCtlMain ID="UsrCtlMain" runat="server" /> |
| <telerik:RadScheduler ID="RadScheduler1" runat="server" |
| CustomAttributeNames="SelectedColor,SelectedColor1,PostEvent" |
| DataEndField="End" Skin="Web20" |
| OverflowBehavior="Expand" |
| ShowViewTabs="false" |
| SelectedView="MonthView" |
| EnableEmbeddedSkins="True" |
| AllowEdit="false" |
| AllowDelete ="false" |
| AllowInsert="false" |
| DataKeyField="ID" DataRecurrenceField="RecurrenceRule" |
| DataRecurrenceParentKeyField="RecurrenceParentID" |
| DataSourceID="AccessDataSource1" DataStartField="Start" |
| DataSubjectField="Subject" HoursPanelTimeFormat="htt" |
| ValidationGroup="RadScheduler1"> |
| <AppointmentTemplate> |
| (<asp:Literal ID="AppointmentStartTime" runat="server" Text='<%# Eval("Start", "{0:t}") %>'></asp:Literal> |
| - |
| <asp:Literal ID="AppoitmentEndTime" runat="server" Text='<%# Eval("End", "{0:t}") %>'></asp:Literal>) |
| <asp:Literal ID="AppointmentSubject" runat="server" Text='<%# Eval("Subject") %>'></asp:Literal> |
| </AppointmentTemplate> |
| </telerik:RadScheduler> |
| <asp:AccessDataSource ID="AccessDataSource1" runat="server" |
| DataFile="~/App_Data/scheduler1a.mdb" |
| DeleteCommand="DELETE FROM [Appointments] WHERE [ID] = ?" |
| InsertCommand="INSERT INTO [Appointments] ([Subject], [Start], [End], [RecurrenceRule], [RecurrenceParentID], [RoomID], [TypeID], [ResourceID], [Description], [SelectedColor], [SelectedColor1]) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?)" |
| SelectCommand="SELECT * FROM [Appointments]" |
| UpdateCommand="UPDATE [Appointments] SET [Subject] = ?, [Start] = ?, [End] = ?, [RecurrenceRule] = ?, [RecurrenceParentID] = ?, [RoomID] = ?, [TypeID] = ?, [ResourceID] = ?, [Description] = ?, [SelectedColor] = ?, [SelectedColor1] = ? WHERE [ID] = ?"> |
| <DeleteParameters> |
| <asp:Parameter Name="ID" Type="Int32" /> |
| </DeleteParameters> |
| <UpdateParameters> |
| <asp:Parameter Name="Subject" Type="String" /> |
| <asp:Parameter Name="Start" Type="DateTime" /> |
| <asp:Parameter Name="End" Type="DateTime" /> |
| <asp:Parameter Name="RecurrenceRule" Type="String" /> |
| <asp:Parameter Name="RecurrenceParentID" Type="Int32" /> |
| <asp:Parameter Name="RoomID" Type="Int32" /> |
| <asp:Parameter Name="TypeID" Type="Int32" /> |
| <asp:Parameter Name="ResourceID" Type="Int32" /> |
| <asp:Parameter Name="Description" Type="String" /> |
| <asp:Parameter Name="SelectedColor" Type="String" /> |
| <asp:Parameter Name="SelectedColor1" Type="String" /> |
| <asp:Parameter Name="ID" Type="Int32" /> |
| </UpdateParameters> |
| <InsertParameters> |
| <asp:Parameter Name="Subject" Type="String" /> |
| <asp:Parameter Name="Start" Type="DateTime" /> |
| <asp:Parameter Name="End" Type="DateTime" /> |
| <asp:Parameter Name="RecurrenceRule" Type="String" /> |
| <asp:Parameter Name="RecurrenceParentID" Type="Int32" /> |
| <asp:Parameter Name="RoomID" Type="Int32" /> |
| <asp:Parameter Name="TypeID" Type="Int32" /> |
| <asp:Parameter Name="ResourceID" Type="Int32" /> |
| <asp:Parameter Name="Description" Type="String" /> |
| <asp:Parameter Name="SelectedColor" Type="String" /> |
| <asp:Parameter Name="SelectedColor1" Type="String" /> |
| </InsertParameters> |
| </asp:AccessDataSource> |
| </asp:Content> |
| Imports Telerik.Web.UI |
| Imports System.Collections.Generic |
| Partial Class HowToRent |
| Inherits BasePage |
| Protected Sub RadScheduler1_AppointmentCreated(ByVal sender As Object, ByVal e As Telerik.Web.UI.AppointmentCreatedEventArgs) Handles RadScheduler1.AppointmentCreated |
| 'Dim subj As Label = e.Container.FindControl("apptSubj") |
| 'subj.Text = e.Appointment.Subject |
| End Sub |
| Protected Sub RadScheduler1_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadScheduler1.PreRender |
| If RadScheduler1.SelectedView = SchedulerViewType.MonthView Then |
| RadScheduler1.DataBind() |
| Dim maxAppointmentsPerDay As Integer = 2 |
| Dim currentDay As DateTime = RadScheduler1.VisibleRangeStart |
| While currentDay < RadScheduler1.VisibleRangeEnd |
| Dim nextDay As DateTime = currentDay.AddDays(1) |
| Dim visibleAppointments As IList(Of Appointment) = RadScheduler1.Appointments.GetAppointmentsInRange(currentDay, nextDay) |
| maxAppointmentsPerDay = Math.Max(maxAppointmentsPerDay, visibleAppointments.Count) |
| currentDay = nextDay |
| End While |
| RadScheduler1.MonthView.VisibleAppointmentsPerDay = maxAppointmentsPerDay |
| End If |
| MyBase.OnPreRender(e) |
| End Sub |
| End Class |