问题描述

VB.NET自定义类型转换问题

窗体上有多个Button,定义一个变更getbt循环引用每个Button的属性；

Dim pp As Object =“Button变量”
Dim getbt As Button = New Button()
getbt = DirectCast(pp, Windows.Forms.Button) //类型转换有误；getbt为空值；
用getbt如何引用每个Button属性；

解决方案

pp是变量，怎么转成button对象。不理解你要干嘛。

解决方案二：

简单的说，用一个变量（类似指针）指向每一个Button，用该变更来引用每一个Button属性；

解决方案三：

Dim pp As Object = dvf.Item(i)("Object") //Button变量
(1) pp = DirectCast(pp, Windows.Forms.Button)
(2) pp = CType(pp, Button)
以上两种类型转均不行，请高手指点，谢谢；

解决方案四：

最终目的，是循环改变每个Button的属性；

解决方案五：

自己搞定了，合大家分享一下；

            Dim getbt As Control
            For Each getbt In Me.Panel1.Controls
                If getbt.Name = “Button变量” Then
                        getbt.Visible = True
                    Else
                        getbt.Visible = False
                    End If
                End If
            Next