重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
For Each c As Control In Me.Controls
曲松ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景,ssl证书未来市场广阔!成为创新互联公司的ssl证书销售渠道,可以享受市场价格4-6折优惠!如果有意向欢迎电话联系或者加微信:18980820575(备注:SSL证书合作)期待与您的合作!
MessageBox.Show(c.ToString())
Next
一个简单的例子,遍历当前Form下所有TextBox并将Text属性设置为空
For Each ct As Control In Me.Controls
If TypeOf ct Is TextBox Then
ct.Text = ""
End If
Next
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
1、打开VB软件,在编辑界面中插入一个CommandButton按钮,并设置名称为判断。
2、接着,来更改按钮中文本的字体格式。在右侧属性窗口中,找到Font选项。
3、单击字体后面的浏览按钮。
4、字体选项中,可以更改控件中文本的字体,本人选择隶书。
5、字形中,可以更改控件文本的字形,本人选择了粗体倾斜。
6、大小中,可以更改文本的大小,本人将其设置为二号。
7、效果中,可以选择是否添加删除线和下划线,本人不进行设置。
8、单击确定后,可以看到按钮控件中的文本,设置为自己需要的格式了。
这个简单。
在VB.net中,每个事件都对应有两个参数:sender 和 e 。提取 sender 参数信息就可以获取控件名称。如果不理解其中机制,你直接 msgbox(sender) 将其输出,就能查看其中玄机。
获取控件名称代码:CType(sender, Control).Name。