MsgBox的分行显示。

fatmingli

MsgBox可以用& vbCrLf & _来分行，但下面的要怎么分行呢？

If MsgBox("请将动态系统的“船舶签证登记簿”导出，并命名为“签证资料”，A1命名为“船舶名称”，A列全部为具体的船名，然后按“确定”开始", vbOKCancel, "") = vbOK Then



Else

   MsgBox "“导出电话”的操作已被取消"

End If

Henry D. Sy

vbCrLf

luhao

Dim Msg, ResponseMsg = "请将动态系统的“船舶签证登记簿”导出，" & Chr(10) & "并命名为“签证资料”," & Chr(10) & "A1命名为“船舶名称”," & Chr(10) & "A列全部为具体的船名，" & Chr(10) & "然后按“确定”开 ...
wuheng 发表于 2005-3-18 19:14

真感谢老师

异乡客

真好使，我也在找呢，谢谢

wuheng

Dim Msg, ResponseMsg = "请将动态系统的“船舶签证登记簿”导出，" & Chr(10) & "并命名为“签证资料”," & Chr(10) & "A1命名为“船舶名称”," & Chr(10) & "A列全部为具体的船名，" & Chr(10) & "然后按“确定”开始"""

Response = MsgBox(Msg, vbOKCancel, "")

If Response = vbOK ThenElse

   MsgBox "“导出电话”的操作已被取消"

End If这样子行吗？

szhtszx

+Chr(13)+Chr(10)+