or
<
telerik:RadRotator
runat
=
"server"
ID
=
"imageSlider"
RotatorType
=
"AutomaticAdvance"
ScrollDirection
=
"Left"
FrameDuration
=
"300"
ScrollDuration
=
"1"
Width
=
"640px"
ItemWidth
=
"640px"
Height
=
"640px"
ItemHeight
=
"640px"
PauseOnMouseOver
=
"False"
OnClientLoad
=
"onRotatorLoadHandler"
>
<
ItemTemplate
>
<
asp:Image
ID
=
"Image1"
ImageUrl='<%# "~/" + Eval("Path") %>' runat="server" />
</
ItemTemplate
>
</
telerik:RadRotator
>
<
table
>
<
tr
>
<
td
>
<
asp:ImageButton
ID
=
"cmdStepBack"
runat
=
"server"
ImageUrl
=
"~/App_Themes/Default/Images/360Controls/first.png"
OnClientClick
=
"return stepBackward();"
ToolTip
=
"Step Backwards"
/>
</
td
>
<
td
>
<
asp:ImageButton
ID
=
"cmdPause"
runat
=
"server"
ImageUrl
=
"~/App_Themes/Default/Images/360Controls/pause.png"
OnClientClick
=
"return pauseRotator();"
ToolTip
=
"Pause Animation"
/>
<
asp:ImageButton
ID
=
"cmdPlay"
runat
=
"server"
ImageUrl
=
"~/App_Themes/Default/Images/360Controls/play.png"
OnClientClick
=
"return startRotator();"
Style
=
"display: none;"
ToolTip
=
"Play Animation"
/>
</
td
>
<
td
>
<
asp:ImageButton
ID
=
"cmdStepForward"
runat
=
"server"
ImageUrl
=
"~/App_Themes/Default/Images/360Controls/last.png"
OnClientClick
=
"return stepForward();"
ToolTip
=
"Step Forward"
/>
</
td
>
</
tr
>
</
table
>
<script language=
"javascript"
type=
"text/javascript"
>
var
oRotator;
function
onRotatorLoadHandler(sender, args) {
oRotator = sender;
}
function
pauseRotator() {
document.getElementById(
"cmdPause"
).style.display =
"none"
;
document.getElementById(
"cmdPlay"
).style.display =
""
;
oRotator.pause();
return
false
;
}
function
startRotator() {
document.getElementById(
"cmdPause"
).style.display =
""
;
document.getElementById(
"cmdPlay"
).style.display =
"none"
;
oRotator.resume();
return
false
;
}
function
stepBackward() {
oRotator.showNext(Telerik.Web.UI.RotatorScrollDirection.Right);
pauseRotator();
return
false
;
}
function
stepForward() {
oRotator.showNext(Telerik.Web.UI.RotatorScrollDirection.Left);
pauseRotator();
return
false
;
}
</script>
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="test.aspx.vb" Inherits="test" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<
html
xmlns
=
"http://www.w3.org/1999/xhtml"
>
<
head
runat
=
"server"
>
<
title
></
title
>
</
head
>
<
body
>
<
form
id
=
"form1"
runat
=
"server"
>
<
telerik:RadScriptManager
ID
=
"RadScriptManager1"
runat
=
"server"
>
</
telerik:RadScriptManager
>
<
telerik:RadCodeBlock
ID
=
"RadCodeBlock1"
runat
=
"server"
>
<
script
type
=
"text/javascript"
>
//
<![CDATA[
function fileUploaded(sender, eventArgs) {
var btn = $get("<%= Me.BTN_loadfile.ClientID%>");
if (typeof (btn) != "defined") {
btn.disabled = false;
}
}
//]]>
</
script
>
</
telerik:RadCodeBlock
>
<
telerik:RadProgressManager
ID
=
"RPM_importAdmin"
runat
=
"server"
/>
<
br
/>
File to load administrators from (.CSV,.XLS, or .XLSX):
<
br
/>
<
br
/>
<
telerik:RadAsyncUpload
ID
=
"RAU_uploadFile"
MaxFileInputsCount
=
"1"
MaxFileSize
=
"10485760"
InputSize
=
"60"
AllowedFileExtensions
=
"csv,xls,xlsx"
runat
=
"server"
OverwriteExistingFiles
=
"true"
OnClientFileUploaded
=
"fileUploaded"
>
<
Localization
Select
=
"Browse"
/>
</
telerik:RadAsyncUpload
>
<
br
/>
<
br
/>
<
telerik:RadProgressArea
ID
=
"RPA_uploadFile"
DisplayCancelButton
=
"true"
runat
=
"server"
>
</
telerik:RadProgressArea
>
<
asp:Button
ID
=
"BTN_loadfile"
runat
=
"server"
Text
=
"Should Go"
Enabled
=
"false"
CausesValidation
=
"false"
PostBackUrl
=
"~/test2.aspx"
></
asp:Button
>
<
asp:Button
ID
=
"Button1"
runat
=
"server"
Text
=
"Goes"
CausesValidation
=
"false"
PostBackUrl
=
"~/test2.aspx"
></
asp:Button
>
<
br
/>
</
form
>
</
body
>
</
html
>
Imports
System.IO
Imports
Telerik.Web.UI
Partial
Class
test2
Inherits
System.Web.UI.Page
Protected
fileUploader
As
RadAsyncUpload =
Nothing
Protected
Sub
Page_PreInit(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
Me
.PreInit
If
PreviousPage
Is
Nothing
Then
If
Not
IsPostBack
Then
Me
.Label1.Text =
"no previous page"
End
If
Else
Me
.fileUploader =
CType
(PreviousPage.Form.FindControl(
"RAU_uploadFile"
), RadAsyncUpload)
If
Me
.fileUploader IsNot
Nothing
AndAlso
Me
.fileUploader.UploadedFiles.Count > 0
Then
Me
.Label1.Text =
"File: "
& Path.Combine(
Me
.fileUploader.TargetFolder,
Me
.fileUploader.UploadedFiles(0).FileName)
End
If
End
If
End
Sub
End
Class