vb中怎么实现点击按钮时,标签里显示该按钮的名称
比如:四个按钮A、B、C、D,一个标签空白,点A时标签里显示A,点B时该标签里显示B,依此类推.........
比如:四个按钮A、B、C、D,一个标签空白,点A时标签里显示A,点B时该标签里显示B,依此类推......
展开
展开全部
1、打开VB软件,新建一个标准exe工程;
2、设计窗口中,添加一个Command控件和一个Label控件;
3、Command控件的Caption属性设置为需要的名称,例如"测试按钮";
4、双击Command控件进入代码界面,在Command1的命令行里添加代码如下:
Private Sub Command1_Click()
Label1.Caption = Command1.Caption
End Sub
5、运行新建的工程,单击按钮,发现Label1标签的内容变为按钮的标签了。
展开全部
'楼主您好!
'不知道您说的是按钮的名称(Name),还是标题(Caption),其中标题是在控件上显示出来的,而名称是代码中用到的名称。
'控件名称如下:
'按钮A:A
'按钮B:B
'按钮C:C
'按钮D:D
'标签:Label1
'若为名称(Name),代码如下:
Option Explicit
Private Sub A_Click()
Me.Label1.Caption = Me.A.Name
End Sub
Private Sub B_Click()
Me.Label1.Caption = Me.B.Name
End Sub
Private Sub C_Click()
Me.Label1.Caption = Me.C.Name
End Sub
Private Sub D_Click()
Me.Label1.Caption = Me.D.Name
End Sub
Private Sub Form_Load()
Me.Label1.Caption = ""
End Sub
'若为标题(Caption),代码如下:
Option Explicit
Private Sub A_Click()
Me.Label1.Caption = Me.A.Caption
End Sub
Private Sub B_Click()
Me.Label1.Caption = Me.B.Caption
End Sub
Private Sub C_Click()
Me.Label1.Caption = Me.C.Caption
End Sub
Private Sub D_Click()
Me.Label1.Caption = Me.D.Caption
End Sub
Private Sub Form_Load()
Me.Label1.Caption = ""
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
label1.caption=commondA.caption
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询