Foxtable(狐表)用户栏目专家坐堂 → 判断窗口文本框多个内容为空


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

主题:判断窗口文本框多个内容为空

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


加好友 发短信
等级:超级版主 帖子:107739 积分:548028 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/2/16 10:53:00 [显示全部帖子]

给控件命名有规律的名称,比如所有需要判断非空的控件加上某个前缀,以及有意义的名称,如:no_编号、no_姓名、no_日期、......

For Each c As WinForm.Control In e.Form.Controls
    If c.name.StartsWith("no_") Then
        Dim t = c
        If  t.Text = "" Then
            Messagebox.Show(t.name.split("_")(1) & "无内容,无法打印","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            t.Select()
            Return
        End If
    End If
Next

 回到顶部