Apr 03, 2013, 4:45 AM
[CLOSED] How to Get Calendar EventStore.Events Code behind
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="frmCalendar.aspx.vb" Inherits="prjExtNetTest.frmCalendar" %>
<!DOCTYPE html>
<html>
<head id="Head1" runat="server">
<title>Calendar - Ext.NET Examples</title>
<link rel="stylesheet" href="../Shared/resources/css/main.css" />
<style>
.ext-color-4,
.ext-ie .ext-color-4-ad,
.ext-opera .ext-color-4-ad {
color: #7F0000;
}
.ext-cal-day-col .ext-color-4,
.ext-dd-drag-proxy .ext-color-4,
.ext-color-4-ad,
.ext-color-4-ad .ext-cal-evm,
.ext-color-4 .ext-cal-picker-icon,
.ext-color-4-x dl,
.ext-color-4-x .ext-cal-evb {
background: #7F0000;
}
.ext-color-4-x .ext-cal-evb,
.ext-color-4-x dl {
border-color: #7C3939;
}
</style>
</head>
<body>
<form id="Form1" runat="server">
<ext:ResourceManager ID="ResourceManager1" runat="server" Namespace="CompanyX" />
<ext:EventStore ID="EventStore1" runat="server"></ext:EventStore>
<ext:Panel
ID="Panel2"
runat="server"
Title="..." >
<Items>
<ext:CalendarPanel
ID="CalendarPanel1"
runat="server"
Region="Center"
Border="false" Height="600">
<CalendarStore ID="CalendarStore1" runat="server">
<Calendars>
<ext:CalendarModel CalendarId="1" Title="Home" />
<ext:CalendarModel CalendarId="2" Title="Work" />
<ext:CalendarModel CalendarId="3" Title="School" />
<ext:CalendarModel CalendarId="4" Title="Other" />
</Calendars>
</CalendarStore>
</ext:CalendarPanel>
<ext:Button ID="btnTestSave" runat="server" Text="Submit">
</ext:Button>
</Items>
</ext:Panel>
</form>
</body>
</html>Imports Ext.Net
Public Class frmCalendar
Inherits System.Web.UI.Page
Private mobjCol As Ext.Net.EventModelCollection
Private Sub frmCalendar_Init(sender As Object, e As EventArgs) Handles Me.Init
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim objEvtStore As New Ext.Net.EventStore
objEvtStore.ID = "EvtStore1"
CalendarPanel1.EventStore = EventStore1
'CalendarPanel1.Listeners.Move.Handler = "record.commit()"
mobjCol = getLstOfEvt()
If Ext.Net.X.IsAjaxRequest = False Then
CalendarPanel1.EventStore.Events.AddRange(mobjCol)
End If
Dim objMV = New Ext.Net.MonthView
'objMV.EnableDD = False
'objMV.EnableAddFx = False
'objMV.EnableFx = False
CalendarPanel1.MonthView = objMV
CalendarPanel1.ShowWeekView = False
CalendarPanel1.ShowDayView = False
''CalendarPanel1.Listeners.Handler = "record.commit();";
AddHandler CalendarPanel1.DirectEvents.EventClick.Event, AddressOf dayClick
Dim objPar As New Ext.Net.Parameter
objPar.Mode = ParameterMode.Raw
objPar.Name = "recorddata"
objPar.Value = "Ext.encode(record.data)"
CalendarPanel1.DirectEvents.EventMove.ExtraParams.Clear()
CalendarPanel1.DirectEvents.EventMove.ExtraParams.Add(objPar)
CalendarPanel1.Listeners.EventMove.Handler = "record.commit()"
AddHandler CalendarPanel1.DirectEvents.EventMove.Event, AddressOf EventMove
End Sub
Private Sub EventMove(ByVal sender As Object, e As DirectEventArgs)
Dim strJSON As String = e.ExtraParams("recorddata").ToString
Dim obj As EventModel = Newtonsoft.Json.JsonConvert.DeserializeObject(Of Ext.Net.EventModel)(strJSON)
CalendarPanel1.Listeners.Move.Handler = "record.commit();"
End Sub
Private Sub dayClick(ByVal sender As Object, e As DirectEventArgs)
'Debug.Print(sender.ToString)
End Sub
Private Function getLstOfEvt() As Ext.Net.EventModelCollection
Dim objCol As New Ext.Net.EventModelCollection
Dim obj As Ext.Net.EventModel
Dim i As Integer
For i = 1 To 10
obj = New Ext.Net.EventModel
obj.EventId = i + 1000
obj.CalendarId = 1
obj.Title = "Title " & i
obj.StartDate = Now.AddDays(i)
obj.EndDate = Now.AddDays(i)
obj.IsAllDay = True
obj.Notes = "Note " & i
objCol.Add(obj)
Next
For i = 1 To 10
obj = New Ext.Net.EventModel
obj.EventId = i + 2000
obj.CalendarId = 1
obj.Title = "Title x" & i
obj.StartDate = Now.AddDays(i)
obj.EndDate = Now.AddDays(i)
obj.IsAllDay = True
obj.Notes = "Note " & i
objCol.Add(obj)
Next
Return objCol
End Function
Private Sub btnTestSave_DirectClick(sender As Object, e As DirectEventArgs) Handles btnTestSave.DirectClick
Debug.Print(CalendarPanel1.EventStore.Events.Count)
End Sub
End Class
Last edited by Daniil; Apr 09, 2013 at 4:10 AM.
Reason: [CLOSED]
