在由CreateObject("WScript.Shell")创建的弹出消息框中插入新行 [英] Insert a new line in a pop up message box created by CreateObject("WScript.Shell")

问题描述

对不起，但我试图寻找答案已有几个小时，但找不到答案.我尝试使用vbNewLine和vbCrLf，但无法使其在函数和函数调用中正常工作.

Sorry but I was trying to find the answer for hours but could not figure it out. I tried playing with vbNewLine and vbCrLf but could not make it to work in the function and in the function call.

如何使用下面的代码添加新行?

How do I add a new line with the code below?

对此进行了尝试，但是没有用:

Tried this but it did not work:

checker = MessageTimeOut("Underlying raw data in the workbook has been updated." & vbNewLine & "This will close automatically.", "UPDATE RAW DATA - COMPLETED", 5) 

也尝试过:

checker = MessageTimeOut("Underlying raw data in the workbook has been updated." & vbCrLf & "This will close automatically.", "UPDATE RAW DATA - COMPLETED", 5)

我想要这将自动关闭".在新行中显示.

I want the "This will close automatically." shown in a new line.

Function MessageTimeOut(str_message As String, str_title As String, int_seconds As Integer) As Boolean
    Dim Shell
    Set Shell = CreateObject("WScript.Shell")
    Shell.Run "mshta.exe vbscript:close(CreateObject(""WScript.shell"").Popup(""" & str_message & """," & int_seconds & ",""" & str_title & """))"
    MessageTimeOut = True
End Function


Sub Some_Sub()
    ' some lengthy code....
    Dim checker As Boolean
    checker = MessageTimeOut("Underlying raw data in the workbook has been updated. This will close automatically.", "UPDATE RAW DATA - COMPLETED", 5)

推荐答案

编辑:我以前的答案不是使用mshta，我认为您需要mshta来使消息异步并允许您的代码继续...

EDIT: My previous answer wasn't using mshta which I think you needed in order to make your message asynchronous and allow your code to continue...

这可以解决问题:

Sub Test2()

    mshta "Me`s`s`age", "test", 5 '<<< all backticks become newlines

    Debug.Print "This runs right away"

End Sub


Function mshta(ByVal MessageText As String, Optional ByVal Title As String, _
            Optional ByVal PauseTimeSeconds As Integer)

    Dim ConfigString As String, WScriptShell
    Set WScriptShell = CreateObject("WScript.Shell")

    ConfigString = "mshta.exe vbscript:close(CreateObject(""WScript.Shell"").Popup(Replace(""" & MessageText & """,""`"",vbLf)," & PauseTimeSeconds & ",""" & Title & """))"
    WScriptShell.Run ConfigString

End Function

这篇关于在由CreateObject("WScript.Shell")创建的弹出消息框中插入新行的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！