用几行向消息框添加标题

Question

我有一个关于消息框，当用户按下按钮时，会打开一个消息框并在多行中打印有关软件的信息。为了使它看起来更整洁，我希望删除消息框的 'Microsoft Excel' 标题。我所做的是在消息后加上两个逗号，这是我通常做的，但只有一行文本，但我不断收到带有等号或无效语法错误的表达式错误。有人可以帮忙吗？

这是我当前的代码:)

    Private Sub about_button_Click()
    MsgBox ("Name: gemUI" & vbCrLf & "Version: 1.0" & vbCrLf & "Build: 0001" & _
    vbCrLf & "(C) 2018 Josh Face", , "About gemUI")
    End Sub

如果有人能提供帮助，将不胜感激:) 晚上好:)

乔希

Answer 1

你的括号太多了。 Ether 去掉参数周围的括号或使用 Call 关键字。

Private Sub about_button_Click()
    MsgBox "Name: gemUI" & vbCrLf & "Version: 1.0" & vbCrLf & "Build: 0001" & _
        vbCrLf & "(C) 2018 Josh Face", , "About gemUI"
End Sub

或

Private Sub about_button_Click()
    Call MsgBox( "Name: gemUI" & vbCrLf & "Version: 1.0" & vbCrLf & "Build: 0001" & _
        vbCrLf & "(C) 2018 Josh Face", , "About gemUI")
End Sub

在 VBA 中，您使用

调用子程序

MySub arg1, arg2, arg3

或

Call MySub(arg1, arg2, arg3)

当你写

MySub (arg1, arg2, arg3)

它试图将多个参数组合成一个东西，但失败了。

Answer 2

只是添加一个（也许）不那么笨拙的方法：

MsgBox Join(Array("Name: gemUI", "Version: 1.0", "Build: 0001", "(C) 2018 Josh Face"), vbCrLf), , "About gemUI"

用几行向消息框添加标题

Add Title to message box with several lines

vba

msgbox