or
Private
Sub
rgAvailableDocks_DataBound(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
rgAvailableDocks.DataBound
For
Each
item
As
GridDataItem
In
rgAvailableDocks.Items
Dim
addlnkbtn
As
LinkButton = item.FindControl(
"lnkbtnAddDock"
)
If
addlnkbtn IsNot
Nothing
Then
Dim
DockUniqueName
As
String
=
DirectCast
(item.DataItem, DataRowView).Row.Field(Of
String
)(
"DockUniqueName"
)
'UniqueNameToDock(DockUniqueName) => RadDock I want to update (make visible)
RadAjaxManager1.AjaxSettings.AddAjaxSetting(addlnkbtn, UniqueNameToDock(DockUniqueName))
End
If
Next
End
Sub
' Each of these RadGrid objects are inside a RadDock
For
Each
Grid
As
RadGrid
In
Grids
RadAjaxManager1.AjaxSettings.AddAjaxSetting(Grid, Grid)
Next
' A postback on a Dock should update the lblMessage (Label), the Panel that shows the
' closed/available docks, and the header the dashboard header
For
Each
Dock
As
RadDock
In
Docks
RadAjaxManager1.AjaxSettings.AddAjaxSetting(Dock, lblMessage)
RadAjaxManager1.AjaxSettings.AddAjaxSetting(Dock, pnlAvailableDocks, RadAjaxLoadingPanel1)
RadAjaxManager1.AjaxSettings.AddAjaxSetting(Dock, pnlDashboardHeader, RadAjaxLoadingPanel1)
Next
For
Each
Zone
As
RadDockZone
In
Zones
RadAjaxManager1.AjaxSettings.AddAjaxSetting(Zone, lblMessage, RadAjaxLoadingPanel1)
Next
RadAjaxManager1.AjaxSettings.AddAjaxSetting(rgAvailableDocks, pnlAvailableDocks, RadAjaxLoadingPanel1)
<
html
xmlns
=
"http://www.w3.org/1999/xhtml"
>
<
head
runat
=
"server"
>
<
title
></
title
>
<
script
language
=
"javascript"
type
=
"text/javascript"
>
function StartSync(sender, args) {
sender.click();
}
</
script
>
</
head
>
<
body
>
<
form
id
=
"frm"
runat
=
"server"
>
<
div
style
=
"display: none"
>
<
telerik:RadButton
ID
=
"cmdSync"
runat
=
"server"
OnClientLoad
=
"StartSync"
/>
</
div
>
<
div
style
=
"padding-top: 10px;"
>
<
telerik:RadScriptManager
id
=
"ScriptManager1"
runat
=
"server"
/>
<
telerik:RadProgressManager
id
=
"radProcessMan"
runat
=
"server"
/>
<
telerik:RadProgressArea
id
=
"radProcessArea"
runat
=
"server"
Width
=
"375px"
SkinID
=
"radProcArea"
>
<
Localization
CurrentFileName
=
"Koppelen:"
UploadedFiles
=
"Status:"
/>
<
ProgressTemplate
>
<
ul
class
=
"ruProgress"
style
=
"background-image: none; padding-top: 10px;"
>
<
li
class
=
"ruFileCount"
>
<
div
id
=
"SecondaryProgressBarOuterDiv"
class
=
"ruBar"
runat
=
"server"
>
<
div
id
=
"SecondaryProgressBarInnerDiv"
runat
=
"server"
>
<!-- -->
</
div
>
</
div
>
Status: <
span
id
=
"SecondaryPercent"
runat
=
"server"
></
span
>% (<
span
id
=
"SecondaryValue"
runat
=
"server"
></
span
>)
</
li
>
<
li
class
=
"ruCurrentFile"
style
=
"font-size: 12px;"
>
Bestand: <
br
/>
<
div
style
=
"height: 30px; overflow: hidden;"
>
<
b
><
span
id
=
"CurrentOperation"
runat
=
"server"
style
=
"font-size: 12px"
></
span
></
b
>
</
div
>
</
li
>
</
ul
>
</
ProgressTemplate
>
</
telerik:RadProgressArea
>
</
div
>
</
form
>
</
body
>
</
html
>
Imports
Telerik.Web.UI
Partial
Class
frmSync
Inherits
System.Web.UI.Page
Protected
Sub
Page_Load(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
Me
.Load
If
Not
Page.IsPostBack
Then
radProcessArea.ProgressIndicators = Upload.ProgressIndicators.CurrentFileName
Or
_
Upload.ProgressIndicators.FilesCount
Or
_
Upload.ProgressIndicators.FilesCountBar
Or
_
Upload.ProgressIndicators.FilesCountPercent
End
If
End
Sub
Protected
Sub
cmdSync_Click(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
cmdSync.Click
doSync()
ClientScript.RegisterClientScriptBlock(
GetType
(Page),
"CloseWindow"
,
"GetRadWindow().close()"
,
True
)
End
Sub
Private
Sub
doSync()
Dim
counter
As
Integer
Dim
i
As
Integer
Dim
strFileName
As
String
'set progress to zero
UpdateProgress(0,
"adressen verwerken..."
, 0, 0)
Try
strFileName =
"c:\temp\xmlfile.xml"
If
File.Exists(strFileName)
Then
xmldoc =
New
XmlDocument
xmldoc.Load(strFileName)
counter = xmldoc.SelectNodes(
"/nodes"
).Count
i = 0
Dim
xmlNode
As
XmlNode
For
Each
xmlNode
In
xmldoc.SelectNodes(
"/nodes"
)
'Process each node
'update progressbar
UpdateProgress(
CInt
(i / (counter / 100)),
""
, counter, i)
i += 1
Next
End
If
Catch
ex
As
Exception
exceptions.log.Publish(ex)
Finally
xmldoc =
Nothing
End
Try
End
Sub
Private
Sub
UpdateProgress(
ByVal
intPercent
As
Integer
,
ByVal
strMessage
As
String
,
ByVal
intCount
As
Integer
,
ByVal
intCurrent
As
Integer
)
Dim
radProgress
As
RadProgressContext
Try
radProgress = RadProgressContext.Current
radProgress.SecondaryPercent = intPercent
radProgress.SecondaryTotal = 100
radProgress.SecondaryValue =
String
.Format(
"adres {0} van {1} adressen"
, intCurrent, intCount)
radProgress.CurrentOperationText = strMessage
Catch
ex
As
Exception
exceptions.log.Publish(ex)
End
Try
End
Sub
End
Class
<telerik:RadTabStrip AutoPostBack="true" ID="MainTab" runat="server" MultiPageID="MP1" SelectedIndex="0"> | |
<Tabs> | |
<telerik:RadTab runat="server" Text="Tab 1" /> | |
<telerik:RadTab runat="server" Text="Tab 2" /> | |
<telerik:RadTab runat="server" Text="Tab 3" /> | |
<telerik:RadTab runat="server" Text="Tab 4" /> | |
<telerik:RadTab runat="server" Text="Tab 5" /> | |
</Tabs> | |
</telerik:RadTabStrip> | |
<telerik:RadMultiPage ID="MP1" RenderSelectedPageOnly="true" runat="server" SelectedIndex="0"> | |
<telerik:RadPageView ID="PV1" runat="server"> | |
<h1>Page View 1</h1> | |
<telerik:RadTabStrip ID="SubTab" MultiPageID="MP2" runat="server" AutoPostBack="true" SelectedIndex="0" EnableViewState="true"> | |
<Tabs> | |
<telerik:RadTab runat="server" Text="SubTab 1" PageViewID="SubView1" /> | |
<telerik:RadTab runat="server" Text="SubTab 2" PageViewID="SubView2" /> | |
<telerik:RadTab runat="server" Text="SubTab 3" PageViewID="SubView3" /> | |
<telerik:RadTab runat="server" Text="SubTab 4" PageViewID="SubView4" /> | |
<telerik:RadTab runat="server" Text="SubTab 5" PageViewID="SubView5" /> | |
</Tabs> | |
</telerik:RadTabStrip> | |
<telerik:RadMultiPage ID="MP2" runat="server" SelectedIndex="0" RenderSelectedPageOnly="false"> | |
<telerik:RadPageView ID="SubView1" runat="server"> | |
<h2>SubView 1</h2> | |
</telerik:RadPageView> | |
<telerik:RadPageView ID="SubView2" runat="server"> | |
<h2>SubView 2</h2> | |
</telerik:RadPageView> | |
<telerik:RadPageView ID="SubView3" runat="server"> | |
<h2>SubView 3</h2> | |
</telerik:RadPageView> | |
<telerik:RadPageView ID="SubView4" runat="server"> | |
<h2>SubView 4</h2> | |
</telerik:RadPageView> | |
<telerik:RadPageView ID="SubView5" runat="server"> | |
<h2>SubView 5</h2> | |
</telerik:RadPageView> | |
</telerik:RadMultiPage> | |
</telerik:RadPageView> | |
<telerik:RadPageView ID="PV2" runat="server"> | |
<h1>Page View 2</h1> | |
</telerik:RadPageView> | |
<telerik:RadPageView ID="PV3" runat="server"> | |
<h1>Page View 3</h1> | |
</telerik:RadPageView> | |
<telerik:RadPageView ID="PV4" runat="server"> | |
<h1>Page View 4</h1> | |
</telerik:RadPageView> | |
<telerik:RadPageView ID="PV5" runat="server"> | |
<h1>Page View 5</h1> | |
</telerik:RadPageView> | |
</telerik:RadMultiPage> | |
|
|