使用下拉窗口

使用下拉窗口

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