or
Imports
Telerik.WinControls.UI.Docking
Public
Class
Form1
Private
file
As
String
=
"a.xml"
Private
Sub
Form1_Load(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
Me
.Load
Me
.Visible =
False
If
(System.IO.File.Exists(file))
Then
RadDock1.LoadFromXml(file)
RadDock1.Visible =
False
Me
.Visible =
True
End
Sub
Private
Sub
Form1_FormClosing(
ByVal
sender
As
Object
,
ByVal
e
As
System.Windows.Forms.FormClosingEventArgs)
Handles
Me
.FormClosing
RadDock1.SaveToXml(file)
End
Sub
Private
Sub
RadMenuItem1_Click(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
RadMenuItem1.Click
Static
flag
As
Boolean
If
flag
Then
RadDock1.Visible =
False
Else
RadDock1.Visible =
True
End
If
flag =
Not
flag
End
Sub
End
Class
For
i
As
Integer
= 0
To
9
Dim
oItem
As
New
RadListDataItem
oItem.Text =
"COM"
& i
oItem.Value =
"COM"
& i
rddReceiveCOM.Items.Add(oItem)
rddSendCOM.Items.Add(oItem)
oItem =
Nothing
Next