启动窗体时按钮的字竖排

lufabao7788 · 发表于 2024-3-19 13:58

CommandButton1.Caption = "添加"
请教："添加"两个字怎么样竖排出现在按钮上，

micch · 发表于 2024-3-19 14:43

中间插入一个换行符

cmb67 · 发表于 2024-3-20 03:34

双击按钮Private Sub CommandButton1_Click() CommandButton1.Caption = "添" & Chr(13) & "加" End Sub

cmb67 · 发表于 2024-3-20 03:35

Private Sub CommandButton1_Click()
CommandButton1.Caption = "添" & Chr(13) & "加"
End Sub

lufabao7788 · 发表于 2024-3-20 11:04

cmb67你好谢谢你的回复，怨我问的简单了。我想要的是"添加"和"查询"能循环变化，而且反映在按钮上的字是竖着排列的，麻烦你看看能否解决，谢谢！

Private Sub CommandButton5_Click()
With CommandButton5
If .Caption = "添加" Then
      .Caption = "查询"
   Exit Sub
End If
If .Caption = "查询" Then
      .Caption = "添加"
Exit Sub
End If
End With
End Sub

micch · 发表于 2024-3-20 11:30

lufabao7788 发表于 2024-3-20 11:04
cmb67你好谢谢你的回复，怨我问的简单了。我想要的是"添加"和"查询"能循环变化，而且反映在按钮上的字是竖 ...

x=CommandButton5.Caption
if x like "查*" then x="添加" else x="查询"
CommandButton5.Caption=x

		自动登录	找回密码
密码			免费注册

[求助] 启动窗体时按钮的字竖排