level 4
msgbox限制太多了，你可以用form写一个吖
2018年07月29日 15点07分
level 10
VB6“自身环境”是基于ANSI的，超出GB2312和GBK字符集范围的字符，都不能直接显示。
如果要使用的话，只能用支持Unicode字符集的方法。
比如，你的MsgBox改用W版的API函数MessageBox( )代替。
2018年07月29日 15点07分
3
如果要使用的话，只能用支持Unicode字符集的方法。
比如，你的MsgBox改用W版的API函数MessageBox( )代替。
谢谢，这个API方法如果用VBA能不能用？其实我是在Excel中使用的，别的地方问不出来所以到这里问的
2018年07月30日 00点07分
@jessylake 当然能用！不过你需要用Declare声明那个API（要W版的），并且记得把第2个和第3个参数类型改为ByVal xxx As long ，调用时的字符串内容通过StrPtr( )函数传递。
2018年07月30日 01点07分
level 15
level 4
jessylake
楼主
#If VBA7 Then
Private Declare PtrSafe Function MessageBoxTimeout Lib "user32" Alias "MessageBoxTimeoutW" ( _
ByVal hWnd As Long, ByVal lpText As LongPtr, _
ByVal lpCaption As LongPtr, ByVal wType As Long, _
ByVal wLange As Long, ByVal dwTimeout As Long) As Long
#Else
Private Declare Function MessageBoxTimeout Lib "user32" Alias "MessageBoxTimeoutW" ( _
ByVal hWnd As Long, ByVal lpText As Long, _
ByVal lpCaption As Long, ByVal wType As Long, _
ByVal wLange As Long, ByVal dwTimeout As Long) As Long
#End If
Private lngTimeOut As Long
Public Property Let MsgboxTimeOutSecond(ByVal TimeOut As Long)
On Error GoTo LetSecondError
If TimeOut < 0 Then
lngTimeOut = 0
Else
lngTimeOut = TimeOut * 1000
End If
Exit Property
LetSecondError:
lngTimeOut = &H7FFFFFFF
End Property
Public Property Let MsgboxTimeOut(ByVal TimeOut As Long)
If TimeOut < 0 Then
lngTimeOut = 0
Else
lngTimeOut = TimeOut
End If
End Property
Public Property Get MsgboxTimeOut() As Long
MsgboxTimeOut = lngTimeOut
End Property
Public Function MsgboxX(ByVal Prompt As String, Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, _
Optional ByVal Title As String = vbNullString, Optional ByVal TimeOut As Long = -1&, _
Optional ByVal LangeId As Long = 0&) As VbMsgBoxResult
'TimeOut以毫秒为单位，1 second = 1000 ms,TimeOut值为0时表示不自动返回,为负值时表示使用全局默认值
'如果信息框弹出后，用户未点击任何按钮，将返回3200,但如果Buttons的按钮值为VbOkOnly时，返回VbOk
If TimeOut < 0 Then TimeOut = lngTimeOut
If Len(Title) < 1 Then Title = Application.Caption
MsgboxX = MessageBoxTimeout(Application.hWnd, StrPtr(Prompt), StrPtr(Title), Buttons Or &H2000&, LangeId, TimeOut)
End Function
2018年07月30日 02点07分
5
Private Declare PtrSafe Function MessageBoxTimeout Lib "user32" Alias "MessageBoxTimeoutW" ( _
ByVal hWnd As Long, ByVal lpText As LongPtr, _
ByVal lpCaption As LongPtr, ByVal wType As Long, _
ByVal wLange As Long, ByVal dwTimeout As Long) As Long
#Else
Private Declare Function MessageBoxTimeout Lib "user32" Alias "MessageBoxTimeoutW" ( _
ByVal hWnd As Long, ByVal lpText As Long, _
ByVal lpCaption As Long, ByVal wType As Long, _
ByVal wLange As Long, ByVal dwTimeout As Long) As Long
#End If
Private lngTimeOut As Long
Public Property Let MsgboxTimeOutSecond(ByVal TimeOut As Long)
On Error GoTo LetSecondError
If TimeOut < 0 Then
lngTimeOut = 0
Else
lngTimeOut = TimeOut * 1000
End If
Exit Property
LetSecondError:
lngTimeOut = &H7FFFFFFF
End Property
Public Property Let MsgboxTimeOut(ByVal TimeOut As Long)
If TimeOut < 0 Then
lngTimeOut = 0
Else
lngTimeOut = TimeOut
End If
End Property
Public Property Get MsgboxTimeOut() As Long
MsgboxTimeOut = lngTimeOut
End Property
Public Function MsgboxX(ByVal Prompt As String, Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, _
Optional ByVal Title As String = vbNullString, Optional ByVal TimeOut As Long = -1&, _
Optional ByVal LangeId As Long = 0&) As VbMsgBoxResult
'TimeOut以毫秒为单位，1 second = 1000 ms,TimeOut值为0时表示不自动返回,为负值时表示使用全局默认值
'如果信息框弹出后，用户未点击任何按钮，将返回3200,但如果Buttons的按钮值为VbOkOnly时，返回VbOk
If TimeOut < 0 Then TimeOut = lngTimeOut
If Len(Title) < 1 Then Title = Application.Caption
MsgboxX = MessageBoxTimeout(Application.hWnd, StrPtr(Prompt), StrPtr(Title), Buttons Or &H2000&, LangeId, TimeOut)
End Function
