以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [原创]窗口中实现字典控件的方法参考  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=109784)
--  作者：mositu
--  发布时间：2017/11/19 19:16:00
--  [原创]窗口中实现字典控件的方法参考
控件：一个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
Next

②TextBox--dataformat事件：
e.Form.Controls("ComboBox").text= zd(e.Value)

③TextBox--valuechanged事件：
e.Sender.WriteValue()

注意：TextBox不要设置为不可见，否则无效，可以将其设为最底层，盖起来
[此贴子已经被作者于2017/11/19 19:16:55编辑过]
--  作者：有点甜
--  发布时间：2017/11/19 20:06:00
--  
 不错