VB 中怎么实现 改变 命令按钮 下的 名称

VB 中如何实现 改变 命令按钮 上的 名称？
在界面上 加上  一个 命令按钮 CMDTXT后，先起名为“方向” ，如何 改变这个名称为 “大小”？
[解决办法]
CMDTXT.caption="大小“
[解决办法]
CMDTXT.caption="大小"
[解决办法]
 在触发事件里改变 caption 就好了，比如：

Private Sub Text1_Change()
    Me.Command1.Caption = Me.Text1.Text
End Sub

[解决办法]

Private Sub CMDTXT_Click()
 Dim a As String
a = InputBox("请输入新的名称", "提示")
If a <> "" Then
 CMDTXT.Caption = a
End If
End Sub

[解决办法]

'命令按钮单击事件
Private Sub CMDTXT_Click()
   CMDTXT.Caption = "大小"
End Sub

[解决办法]
还可以setwindowtext

这个方法还可以设置其他程序
[解决办法]
樓主,你是不是想要這種效果:
if CMDTXT.caption="大小"  then
   CMDTXT.caption="方向" 
else
   CMDTXT.caption="大小" 
end if
[解决办法]
在程序里边修改。
 cmdtxt.caption=“大小”
[解决办法]
按钮名.caption="你要的名称"
[解决办法]

引用:

thank you，这个我知道，我是说? 如何 在 程序运行过程中 ，通过 某种 方式 如? 输入新名称“大小”，然后 这个名称 就 成为? 这个 按钮的名称，即动态 改变按钮名称 如何 实现？

你是说VB程序本身改变按钮字符,还是改变其他程序的按钮字符?
[解决办法]
你说这个是一个按钮有两个或两个以上的功能、或是有两个以上的语句块或条件是，改变按钮标题来显示当前的状态，也可以通预先赋值来改变。

Private Sub Command1_Click()
If Command1.Caption = "是" Then '根据不同条件，显示按钮标题。
Command1.Caption = "否"
Debug.Print "再次按下按钮时，按钮显示为：是"
Else
Command1.Caption = "是"
Debug.Print "再次按下按钮时，按钮显示为：否"
End If
End Sub

Private Sub Form_Load()
Command1.Caption = "是"
End Sub

[解决办法]

引用:

感谢大家，我从回复中 已经知道了，
我需要 在程序? 运行中改，而不是 在源代码中改

楼主动了，我不懂了。。。
[解决办法]

引用:

引用:
 感谢大家，我从回复中 已经知道了，
 我需要 在程序? 运行中改，而不是 在源代码中改

 楼主动了，我不懂了。。。

楼主太搞笑了!!!
如此楼主.我们CSDN的人可以闪了.这个贴也没必要继续回复了...

查看更多 下一篇