如何在VB.net中判断控件的类型？

snailbug 2004-06-29 10:54:09

在一个form中，存在若干个button和label以及其他的控件。我想在语句中一次设置不同类型的控件的不同的样式，如下所示：

For i = 0 To Me.Container.Components.Count - 1
If Me.Container.Components.Item 是 botton Then
Me.Container.Components.Item。。。。。
。。。。
End If
If Me.Container.Components.Item 是 Label Then
Me.Container.Components.Item。。。。。
。。。。
End If

Next

请问中间的代码该如何写？？

...全文

1626 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

snailbug 2004-07-03

打赏
举报

Problem have been solved.
thx.

水如烟 2004-07-02

打赏
举报

mycontrol.Button要全名吧，前头加上你的命名空间

Ctype(cT,myNameSpace.myControl.Button)

估计是这样。

snailbug 2004-07-01

打赏
举报

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
我碰到这样的一个问题。
我自己的一个属于mycontrol.button命名控件的类，并且是从 System.Windows.Forms.Control继承而来的。当我执行：

dim cT as control
for each cT in me.Controls
CTYPE(cT,mycontrol.button)
Next

在CTYPE(cT,mycontrol.button)总是出现mycontrol.button未定义。这是什么原因？？
而CTYPE(cT,system.windows.form.button)是没有错误的。

如果要把cT转换成mycontrol.Button应该如何做？？谢谢
应该如何进行类型转换？
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

sglwm 2004-07-01

打赏
举报

Dim ctrlX As Control
For Each ctrlX In Me.Controls
If ctrlX.Tag <> "" Then
strTG = ctrlX.Tag
Select Case strTG
Case "Text"
..........

Case "Comb"
......
Case "Date"
........
Case "Check"
.....
End Select
End If
Next ctrlX

zheninchangjiang 2004-07-01

打赏
举报

if ctrl.gettype.tostring="yourclassname" then
ctrl.buttonstyle.....

snailbug 2004-07-01

打赏
举报

可是我自定义的控件mycontrol.Button的有些属性是control所没有的，我想通过将control转换成mycontrol.Button的类型，然后在访问它的属性。

比如mycontrol.Button有 buttonstyle属性（我自定义的），而一般Control是没有这个属性的。怎么办？？？

snailbug 2004-06-30

打赏
举报

I get some information there:
http://www.dotnet247.com/247reference/msgs/40/204071.aspx

but I still can not solve this problem?
anyone can help me?

Relta 2004-06-30

打赏
举报

Private Sub Button3_Click(略...) Handles Button3.Click
Dim cT As Control
For Each cT In Me.Controls
If TypeOf ct is button Then
with ctype(ct,button)
...
end with
Elseif TypeOf ct is label then
with ctype(ct,label )
...
end with
Elseif TypeOf ct is textbox then
with ctype(ct,textbox )
...
end with
End If
Next
End Sub

lxcc 2004-06-30

打赏
举报

已经测试，昨天因为没有环境，所以写错了！:P
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim i As Integer = 0
Dim con As Control
For Each con In Me.Controls
If con.GetType().ToString() = "System.Windows.Forms.Button" Then
i = i + 1
End If
Next
MsgBox(i)
End Sub

snailbug 2004-06-29

打赏
举报

I get a error when run the line:
For i = 1 To Me.Container.Components.Count

& Error Message below:

n unhandled exception of type 'System.NullReferenceException' occurred in WindowsApplication1.exe

Additional information: Object reference not set to an instance of an object.

What's WRONG???

lxcc 2004-06-29