Foxtable(狐表)用户栏目专家坐堂 → 一键还原窗口内的所有组合框控件为初始状态


  共有5342人关注过本帖树形打印复制链接

主题:一键还原窗口内的所有组合框控件为初始状态

帅哥哟,离线,有人找我吗?
lsy
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2013/7/13 13:17:00 [显示全部帖子]

你弄个开发版的格式,试用版用户插不上嘴了。

哪个表都可以隐藏。

For Each c As WinForm.Control In e.Form.Controls
    If TypeOf c Is WinForm.ComboBox Then
        Dim cmb As WinForm.ComboBox = c
        cmb.Text = ""
    ElseIf TypeOf c Is WinForm.TextBox Then
        Dim txt As WinForm.TextBox = c
        txt.Text = ""
    ElseIf TypeOf c Is WinForm.CheckedComboBox Then
        Dim chcmb As WinForm.CheckedComboBox = c
        chcmb.Text = ""
    End If
Next


 回到顶部