vb.net更改父控件 vb控件名称属性修改

vb.net 控件属性设置

如控件自身无法设置滚动条vb.net更改父控件，那就在父容器控件中（如FORM）使用滚动条解决问题。另外vb.net更改父控件，也可将日期控件放在弹出窗口中vb.net更改父控件，

相关问答

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

Private ctrName As String '控件名称

Private isClick As Boolean '鼠标点击状态

'注：如果已知点击目标控件vb.net更改父控件的父控件vb.net更改父控件，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

 

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

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

Q2: 请问。VB. NET 如何更改子窗体(Form2)相对父窗体(Form1)的第一次显示位置。

Dim locForm2 As New Point

locForm2.X = 150

locForm2.Y = 50

Form2.MdiParent = Me

Form2.Show()

Form2.Location = locForm2

前三句，声明了一个坐标点，并且赋了值

最后一句，当Form2显示了后，把坐标点赋给Form2的位置属性，就可以让Form2出现在你给定的位置了

父窗体关闭的时候，子窗体自然就关闭了。所以你第二个问题不是问题。

vb.net更改父控件的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb控件名称属性修改、vb.net更改父控件的信息别忘了在本站进行查找喔。