or
<
telerik:RadComboBox
runat
=
"server"
ID
=
"uxDepartment"
Width
=
"325px"
AutoPostBack
=
"true"
CausesValidation
=
"false"
OnSelectedIndexChanged
=
"uxDepartment_SelectedIndexChanged"
/>
<
asp:RequiredFieldValidator
runat
=
"server"
InitialValue
=
"-1"
ControlToValidate
=
"uxDepartment"
ErrorMessage="<%$ Resources:UI,inputRequired %>" />
Image.FromStream(stream);
Hello,
My Radscheduler header looks like the attached image. I want to bring the previous day and next day arrow keys on the either side of the month name. Like this
<| December 2013 |>. How can I do that? I am attaching an image for that as well. it is named as monthwanted.png
Also there is space between appointments. How can I get rid of that space and make the appointments to be adjacent to each other. I am attaching an image that shows space between the appointments
When I use this code:
window.radopen("..\\MyDirectory\\MyWebPage.aspx?Var1=" + v + "&Var2=" + v2, "myRadWindow");
Public
Class
CustomProvider
Inherits
FileSystemContentProvider
Public
Sub
New
(
ByVal
context
As
HttpContext,
ByVal
searchPatterns
As
String
(),
ByVal
viewPaths
As
String
(),
ByVal
uploadPaths
As
String
(),
ByVal
deletePaths
As
String
(),
ByVal
selectedUrl
As
String
, _
ByVal
selectedItemTag
As
String
)
MyBase
.
New
(context, searchPatterns, viewPaths, uploadPaths, deletePaths, selectedUrl, _
selectedItemTag)
End
Sub
Public
Overloads
Overrides
Function
ResolveDirectory(
ByVal
path
As
String
)
As
DirectoryItem
Dim
originalFolder
As
DirectoryItem =
MyBase
.ResolveDirectory(path)
Dim
originalFiles
As
FileItem() = originalFolder.Files
Dim
filteredFiles
As
New
List(Of FileItem)()
' Filter the files
For
Each
originalFile
As
FileItem
In
originalFiles
If
Not
Me
.IsFiltered(originalFile.Name)
Then
filteredFiles.Add(originalFile)
End
If
Next
Dim
newFolder
As
New
DirectoryItem(originalFolder.Name, originalFolder.Location, originalFolder.FullPath, originalFolder.Tag, originalFolder.Permissions, filteredFiles.ToArray(), _
originalFolder.Directories)
Return
newFolder
End
Function
Public
Overloads
Overrides
Function
ResolveRootDirectoryAsTree(
ByVal
path
As
String
)
As
DirectoryItem
Dim
originalFolder
As
DirectoryItem =
MyBase
.ResolveRootDirectoryAsTree(path)
Dim
originalDirectories
As
DirectoryItem() = originalFolder.Directories
Dim
filteredDirectories
As
New
List(Of DirectoryItem)()
' Filter the folders
For
Each
originalDir
As
DirectoryItem
In
originalDirectories
If
Not
Me
.IsFiltered(originalDir.Name)
Then
filteredDirectories.Add(originalDir)
End
If
Next
Dim
newFolder
As
New
DirectoryItem(originalFolder.Name, originalFolder.Location, originalFolder.FullPath, originalFolder.Tag, originalFolder.Permissions, originalFolder.Files, _
filteredDirectories.ToArray())
Return
newFolder
End
Function
Private
Function
IsFiltered(
ByVal
name
As
String
)
As
Boolean
If
Not
name.ToLower().EndsWith(
".sys"
.ToLower.ToString() +
".csv"
)
Then
Return
True
End
If
' else
Return
False
End
Function
End
Class