vb中怎么实现点击按钮时，标签里显示该按钮的名称

比如：四个按钮A、B、C、D，一个标签空白，点A时标签里显示A，点B时该标签里显示B，依此类推......

举报该文章

相关建议推荐于2017-10-03

1、打开VB软件，新建一个标准exe工程；
2、设计窗口中，添加一个Command控件和一个Label控件；
3、Command控件的Caption属性设置为需要的名称，例如"测试按钮"；
4、双击Command控件进入代码界面，在Command1的命令行里添加代码如下：

Private Sub Command1_Click()
Label1.Caption = Command1.Caption
End Sub

5、运行新建的工程，单击按钮，发现Label1标签的内容变为按钮的标签了。

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/f7f7f2sf78f8ff777v7.html

其他看法

第1个回答推荐于2017-09-09

'楼主您好!
'不知道您说的是按钮的名称(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

本回答被提问者采纳

第2个回答 2014-02-17

label1.caption=commondA.caption

相似回答

大家正在搜