Question

vb msgbox 显示不全

ConfirmDel = MsgBox("真的要删除第 " & CurrentItem & " 号 (" & Names(CurrentItem) & ") 吗?", vbExclamation + vbYesNo + vbDefaultButton2)
这一句中，CurrentItem是一个整数（假如等于6），Names(CurrentItem)是一个字符串数组中的一个字符串（加入等于“小明”）。运行时就显示了一个消息框：
真的要删除第 6 号 (小明
后面的 & ") 吗" 没了！！！！这是怎么回事？？？
更奇怪的是，当Names(CurrentItem)为非汉字时，后面的 & ") 吗" 又有了！！！奇怪。。。
我曾经试过将CurrentItem改成Cstr(CurrentItem)，可是也没用！！请问这到底是怎么了？？？

Answer 1

我试了没问题，是不是你的Names数组中的字符串中包含双引号？

追问

没有啊

追答

Private Sub Command1_Click()
Dim ConfirmDel As Integer, Names(0) As String, CurrentItem As Integer
Names(0) = "小明"
CurrentItem = 0
ConfirmDel = MsgBox("真的要删除第 " & CurrentItem & " 号 (" & Names(CurrentItem) & ") 吗?", vbExclamation + vbYesNo + vbDefaultButton2)
End Sub

这样一定没问题！

追问

我也试过新建一个工程在这么试试，在新建得工程中这样好使，但是回到我那程序中就又坏了！这里面的原因可能错综复杂。

追答

所以就不好判断了，原因肯定不在你给的语句上，你好好检查 Names(CurrentItem) 的值，可能包含双引号、回车符、删除符号，或者其他不可见字符