[原创]窗口中实现字典控件的方法参考 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

控件：一个ComboBox，一个TextBox（绑定字段），两者联动，ComboBox用来显示文字，TextBox用来显示编号，联动事件代码如下:

Dim zd As New Dictionary(Of Integer, String)

存入数值后

①ComboBox--valuechanged事件：

Dim str As String = e.Sender.Text

For Each val As Short zd.keys

If str = zd(val) Then

e.Form.Controls("TextBox").text= val

End If

②TextBox--dataformat事件：

e.Form.Controls("ComboBox").text= zd(e.Value)

③TextBox--valuechanged事件：

e.Sender.WriteValue()

注意：TextBox不要设置为不可见，否则无效，可以将其设为最底层，盖起来

[此贴子已经被作者于2017/11/19 19:16:55编辑过]

主题：[原创]窗口中实现字典控件的方法参考