Mar 28, 2013, 1:50 AM
[CLOSED] Calendar Move Event not refresh.
Move Event not refresh.
<%@ 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" />
<script src="../Shared/resources/js/common.js"></script>
<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>
</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
'Dim objEvtStore As New Ext.Net.EventStore
'objEvtStore.ID = "EvtStore1"
CalendarPanel1.EventStore = EventStore1
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim objPar As New Ext.Net.Parameter
mobjCol = getLstOfEvt()
If Ext.Net.X.IsAjaxRequest = False Then
CalendarPanel1.EventStore.Events.AddRange(mobjCol)
End If
AddHandler CalendarPanel1.DirectEvents.EventClick.Event, AddressOf dayClick
objPar.Mode = ParameterMode.Raw
objPar.Name = "recorddata"
objPar.Value = "Ext.encode(record.data)"
CalendarPanel1.DirectEvents.EventMove.ExtraParams.Clear()
CalendarPanel1.DirectEvents.EventMove.ExtraParams.Add(objPar)
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)
''I can see Event Model data is updated. but screen not refresh
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).AddHours(1)
obj.EndDate = Now.AddDays(i).AddHours(2)
obj.IsAllDay = False
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 " & i
obj.StartDate = Now.AddDays(i).AddHours(1)
obj.EndDate = Now.AddDays(i).AddHours(2)
obj.IsAllDay = False
obj.Notes = "Note " & i
objCol.Add(obj)
Next
Return objCol
End Function
End Class
Last edited by Baidaly; Apr 02, 2013 at 3:22 AM.
Reason: [CLOSED]