以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于历遍所有控件的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56369)
--  作者：ap9709130
--  发布时间：2014/9/3 23:58:00
--  关于历遍所有控件的问题

我想通过代码去定义窗口的所有控件，因为有时窗口的控件很多。我的代码如下：

For Each kj As WinForm.Control In e.Form.Controls
    If Typeof kj Is WinForm.TextBox Then \'判断控件是否是文本框
       
        Dim kj.name As WinForm.TextBox = kj \'
    End If
    If Typeof kj Is WinForm.Button Then \'判断控件是否是文本框
        Dim kj.Name As WinForm.Button = kj \'
    End If
    If Typeof kj Is WinForm.Label Then \'判断控件是否是文本框
        Dim kj.Name As WinForm.Label = kj \'
    End If
    If Typeof kj Is WinForm.Table Then \'判断控件是否是文本框
        Dim kj.Name As WinForm.Table = kj \'
    End If
    If Typeof kj Is WinForm.ComboBox Then \'判断控件是否是文本框
        Dim kj.Name As WinForm.ComboBox = kj \'
    End If 
Next

 

这样会出错，说应为语免结束。请问各位老师，要如何实现。多谢！
--  作者：land089
--  发布时间：2014/9/4 0:17:00
--  
这样是行不通的
--  作者：逛逛
--  发布时间：2014/9/4 7:52:00
--  
以下是引用ap9709130在2014-9-3 23:58:00的发言：

我想通过代码去定义窗口的所有控件，因为有时窗口的控件很多。我的代码如下：

For Each kj As WinForm.Control In e.Form.Controls
    If Typeof kj Is WinForm.TextBox Then \'判断控件是否是文本框
       
        Dim kj.name As WinForm.TextBox = kj \'
    End If
    If Typeof kj Is WinForm.Button Then \'判断控件是否是文本框
        Dim kj.Name As WinForm.Button = kj \'
    End If
    If Typeof kj Is WinForm.Label Then \'判断控件是否是文本框
        Dim kj.Name As WinForm.Label = kj \'
    End If
    If Typeof kj Is WinForm.Table Then \'判断控件是否是文本框
        Dim kj.Name As WinForm.Table = kj \'
    End If
    If Typeof kj Is WinForm.ComboBox Then \'判断控件是否是文本框
        Dim kj.Name As WinForm.ComboBox = kj \'    将控件的名称定义为WinForm.ComboBox对象，并将控件的地址传递给他（自创的语法？）
    End If 
Next

 

这样会出错，说应为语免结束。请问各位老师，要如何实现。多谢！

1、先看帮助，把语法搞清楚。自创的语法是不行的

2、勤快一点，多写写注释，能帮助你加快理解

3、真的不知道你想实现什么.
--  作者：有点甜
--  发布时间：2014/9/4 9:11:00
--  
 你想做什么？例子发上来。