vb.net控件命名大全,vb常用控件介绍

vb.net怎样获取同类控件名称

Private ctrName As String '控件名称

Private isClick As Boolean '鼠标点击状态

'注：如果已知点击目标控件的父控件，ctrParent变量可以不要。

Private WithEvents ctrParent As Control '父控件

 

Private Sub ControlAMouseDown(sender As Object, e As MouseEventArgs) _

    Handles Button1.MouseDown

    isClick = (e.Button = MouseButtons.Left _

               Or e.Button = MouseButtons.Right) '左键或右键按下

    If isClick Then

        Dim ctr As Control = CType(sender, Control) '转换Object为控件类型

        ctrName = ctr.Name '获取控件名称

        ctrParent = ctr.Parent '获取控件的父控件

    End If

End Sub

 

'增加这个父控件事件，是为了正确判别鼠标弹起时是否已进入指定目标

Private Sub ParentMouseMove(sender As Object, e As EventArgs) _

    Handles ctrParent.MouseMove '如果已取消ctrParent变量，改为相应的父控件

    If isClick Then isClick = False '点击状态关闭

End Sub

 

Private Sub ControlBMouseUp(sender As Object, e As EventArgs) _

    Handles Button2.MouseEnter

    If isClick Then '如果点击状态为打开

        Dim ctr As Control = CType(sender, Control) '转换Object为控件类型

        MsgBox(ctrName  " | "  ctr.Name) '弹出消息显示结果

    End If

End Sub

相关问答

Q1: VB.net如何实现点击不同控件分别调用相同子窗体，以控件名称动态命名子窗体名称

1，添加一个模块，在模块里声明一个全局公共变量N；

2，在控件的调用窗体代码段里，把此控件名称给这个全局公共变量N赋值；

3，在窗体的Load()事件里，写代码： Me.Text = N。

Q2: VB.NET 变量和字符串组成控件名

直接For就行了

Dim ctl As Control

Dim lbl as Label

For Each ctl In Me.Controls

If ctl.GetType.ToString = "System.Windows.Forms.Label" Then

lbl = CType(ctl,Label)

'得到一个Label,可以对它进行赋值操作了

Msgbox lbl.Name

End If

Next