msgbox 中显示的内容不完全！！！

Question

要在msgbox中显示很多内容，查找了一下，似乎只能显示1024字节的长度。有没有啥办法可以改变它显示的长度？？
或者自己写个函数来把要显示的内容显示到一个弹出窗口中。
高手指点下。
小弟先谢谢了！！！

Answer 1

制作一个Form1,上面放一个文本框,设置好滚动条，一个OK按钮sub mymsgbox(byval sMessage as string)
  dim tmpForm as new Form1
  tmpForm.text1.text=sMessage
  tmpForm.Show vbmodal
end sub

Answer 2

Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

Answer 3

Option Explicit
Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As LongPrivate Sub Command1_Click()
  Dim Data As String
  Dim i As Long
  For i = 1 To 1024
    Data = Data & i
    DoEvents
  Next
  
  MessageBox Me.hwnd, Data, "fvflove", 1
  '显示这么多够不够?
End Sub

Answer 4

其实就是弹出一个界面，足够了。把该界面设置成MessageBox 的弹出样式。

Answer 5

还有个问题，因为弹出的 MessageBox  太长了，我想在 MessageBox 中加个滚动条。这个能实现吗？？

Answer 6

那就自己做个 MessAgeBox 吧.