输出超过msgbox中最大字符数限制的方法？

Question

我需要在msgbox中向用户显示一条相当长的消息。但是有些情况下，msgbox似乎达到了它的字符限制。这是什么解决方案？

Answer 1

我用objShell.Popup来实现这个

Set objShell = CreateObject("Wscript.Shell")
    objShell.Popup messagehere

Answer 2

使用Wscript.Echo 消息 而不是MsgBox 消息

Answer 3

With CreateObject("wscript.shell")
.Popup b
End With

其中b是具有您需要在消息框中显示的所有内容的变量。

Answer 4

这是解决1023个字符限制的一种方法：

Sub testWSHEnvironment()
    Dim WshShell  As IWshRuntimeLibrary.WshShell, WshSysEnv  As _
        CIWshRuntimeLibrary.WshEnvironment
    Set WshShell = CreateObject("WScript.Shell")
    Set WshSysEnv = WshShell.Environment("SYSTEM")
    theList = "Environmental Variables:"
    theCount = 0
    For Each thisItem In WshSysEnv
        If (Len(theList) + Len(CStr(theCount)) + 4 + Len(thisItem) > 1023) Then
            MsgBox theList
            theList = "More Variables:"
        End If
        theCount = theCount + 1
        theList = theList & vbCrLf & theCount & ": " & thisItem
    Next thisItem
    MsgBox theList
End Sub

这将生成您需要的MsgBox弹出窗口，以显示环境变量列表。请注意，您需要在总数中包括4，以便将vbCrLf = CarriageReturn / LineFeed和“：”用于列表中的每个项目。