使用下拉窗口
我们了解一下如何设计一个带有下拉窗口的DropDownBox。
本节的内容可以参考CaseStudy目录下的文件:下拉窗口演示.Table
一、设计下拉窗口
1、首先新建一个窗口,假定窗口名称为"窗口1",窗口布局如下:
窗口类型设置为"DropDownForm":
“确定”按钮的Click事件代码为:
For
Each ctl
As WinForm.Control
In e.Form.Controls
'遍历所有控件
If
TypeOf ctl Is WinForm.RadioButton Then
'如果此控件是RadionButton(单选框)
Dim
rdo As
WinForm.RadioButton = ctl
If rdo.Checked
Then
'如果已经选中
e.Form.DropDownBox.Value = rdo.Text
'将此单选框的文本赋值给下拉组合框
e.Form.DropDownBox.CloseDropdown() '关闭下拉窗口
Exit For
End
If
End
If
Next
“取消”按钮的Click事件代码为:
e.Form.DropDownBox.CloseDropDown()
'关闭下拉窗口
窗口的DropDownOpened事件代码为:
Dim Val
As
String =
e.Form.DropDownBox.Text
For
Each ctl As
WinForm.Control In
e.Form.Controls '遍历所有控件
If
TypeOf ctl Is WinForm.RadioButton Then
'如果此控件是RadionButton(单选框)
Dim rdo As
WinForm.RadioButton = ctl
If rdo.Text =
Val Then
'如果此单选框的文本等于下拉组合框的文本
rdo.Checked =
True
'则选中此单选框
Exit
For
End
If
End
If
Next
快速提示:
1、Form(窗口)的DropDownBox属性返回打开此窗口的下拉组合框,DropDownOpened事件在显示此下拉窗口后执行。
2、“确定”和“取消”两个按钮的代码只有作为下拉窗口打开时才能正常执行,否则会出错,这是因为只有此时DropDownBox才会返回打开此窗口的下拉组合框。
二、使用下拉窗口
2、新增一个窗口,插入一个下拉组合框(DropDowmBox)控件,将其“下拉窗口”属性设置为“窗口1”:
现在打开此窗口,即可实现如下效果:
本页地址:http://www.foxtable.com/webhelp/topics/2099.htm