使用下拉窗口

我们了解一下如何设计一个带有下拉窗口的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