or
Microsoft Windows Server 2003, Standard Edition, Service Pack 2
English (Australia)
.NET 4.0.30319 SP1Rel, Visual Studio 2010 Version 10.0.40219.1 SP1Rel
Runtime Version v2.0.50727, Version 2011.3.11.1116
Thanks,
Clive
Imports Telerik.WinControls.UI Public Class Form10 Inherits System.Windows.Forms.Form 'Form overrides dispose to clean up the component list. <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub 'Required by the Windows Form Designer Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Dim RadListDataItem1 As Telerik.WinControls.UI.RadListDataItem = New Telerik.WinControls.UI.RadListDataItem() Dim RadListDataItem2 As Telerik.WinControls.UI.RadListDataItem = New Telerik.WinControls.UI.RadListDataItem() Dim RadListDataItem3 As Telerik.WinControls.UI.RadListDataItem = New Telerik.WinControls.UI.RadListDataItem() Dim RadListDataItem4 As Telerik.WinControls.UI.RadListDataItem = New Telerik.WinControls.UI.RadListDataItem() Dim RadListDataItem5 As Telerik.WinControls.UI.RadListDataItem = New Telerik.WinControls.UI.RadListDataItem() Me.RadDropDownList1 = New Telerik.WinControls.UI.RadDropDownList() Me.CheckBox1 = New System.Windows.Forms.CheckBox() CType(Me.RadDropDownList1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'RadDropDownList1 ' Me.RadDropDownList1.DropDownAnimationEnabled = True RadListDataItem1.Text = "ListItem 1" RadListDataItem1.Value = 1 RadListDataItem1.Tag = 1 RadListDataItem1.TextWrap = True RadListDataItem2.Text = "ListItem 2" RadListDataItem2.Value = 2 RadListDataItem2.Tag = 2 RadListDataItem2.TextWrap = True RadListDataItem3.Text = "ListItem 3" RadListDataItem3.Value = 3 RadListDataItem3.Tag = 3 RadListDataItem3.TextWrap = True RadListDataItem4.Text = "ListItem 4" RadListDataItem4.Value = 4 RadListDataItem4.Tag = 4 RadListDataItem4.TextWrap = True RadListDataItem5.Text = "ListItem 5" RadListDataItem5.Value = 5 RadListDataItem5.Tag = 5 RadListDataItem5.TextWrap = True Me.RadDropDownList1.Items.Add(RadListDataItem1) Me.RadDropDownList1.Items.Add(RadListDataItem2) Me.RadDropDownList1.Items.Add(RadListDataItem3) Me.RadDropDownList1.Items.Add(RadListDataItem4) Me.RadDropDownList1.Items.Add(RadListDataItem5) Me.RadDropDownList1.Location = New System.Drawing.Point(65, 40) Me.RadDropDownList1.Name = "RadDropDownList1" Me.RadDropDownList1.ShowImageInEditorArea = True Me.RadDropDownList1.Size = New System.Drawing.Size(106, 20) Me.RadDropDownList1.TabIndex = 0 ' 'CheckBox1 ' Me.CheckBox1.AutoSize = True Me.CheckBox1.Location = New System.Drawing.Point(65, 83) Me.CheckBox1.Name = "CheckBox1" Me.CheckBox1.Size = New System.Drawing.Size(81, 17) Me.CheckBox1.TabIndex = 1 Me.CheckBox1.Text = "CheckBox1" Me.CheckBox1.UseVisualStyleBackColor = True ' 'Form10 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(292, 273) Me.Controls.Add(Me.CheckBox1) Me.Controls.Add(Me.RadDropDownList1) Me.Name = "Form10" Me.Text = "Form10" CType(Me.RadDropDownList1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents RadDropDownList1 As Telerik.WinControls.UI.RadDropDownList Private Sub Form10_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load For Each item In RadDropDownList1.Items item.ForeColor = If(CInt(item.Value) Mod 2 = 0, Color.Red, Color.Black) Next RadDropDownList1.AutoCompleteMode = AutoCompleteMode.SuggestAppend AddHandler RadDropDownList1.DropDownListElement.AutoCompleteSuggest.DropDownList.PopupOpening, Sub() If Not CheckBox1.Checked Then Return For Each item In RadDropDownList1.DropDownListElement.AutoCompleteSuggest.DropDownList.Items ' can't think of a way to get the value from the original list If item.Value IsNot Nothing Then item.ForeColor = If(CInt(item.Value) Mod 2 = 0, Color.Blue, Color.Green) ElseIf item.Tag IsNot Nothing Then item.ForeColor = If(CInt(item.Tag) Mod 2 = 0, Color.Blue, Color.Green) Else item.ForeColor = Color.Orange End If Next End Sub AddHandler RadDropDownList1.DropDownListElement.AutoCompleteSuggest.DropDownList.ListElement.VisualItemFormatting, Sub(sender1 As Object, ee As VisualItemFormattingEventArgs) If Not CheckBox1.Checked Then ' can't find any way to get the RadDataListItem to find out the business rule to change the colour ee.VisualItem.ForeColor = Color.Brown End If End Sub End Sub End Classprivate void listBox1_MouseDown(object sender, MouseEventArgs e){ int index = listBox1.IndexFromPoint(e.Location); listBox1.SelectedIndex = index;}Private Sub RadTreeView1_ItemDrag(ByVal sender As Object, ByVal e As Telerik.WinControls.UI.RadTreeViewEventArgs) Handles RadTreeView1.ItemDrag If Not IsNothing(RadTreeView1.SelectedNode) Then Dim strSelected As String = RadTreeView1.SelectedNode.Text RadTreeView1.DoDragDrop(" ", Windows.Forms.DragDropEffects.Copy) Globals.ThisAddIn.Application.ActiveCell.Value = "LB (" & "" & ControlChars.Quote.ToString() & strSelected & ControlChars.Quote.ToString() & "" & ")" End If End Sub |
Sunday |
Monday |
||||
|
Morning |
Afternoon |
Evening |
Morning |
Afternoon |
Evening |
|
|
|
|
|
|
|