- UID
- 7437
- 精华
- 积分
- 1095
- 威望
- 点
- 宅币
- 个
- 贡献
- 次
- 宅之契约
- 份
- 最后登录
- 1970-1-1
- 在线时间
- 小时
|
发表于 2024-7-14 15:42:00
|
显示全部楼层
本帖最后由 tlwh163 于 2024-7-14 17:58 编辑
'###############################################################################
' UNICODE VERSION MSGBOX
'###############################################################################
Public Function MsgBoxW(Optional ByVal hwnd As Long = 0, Optional ByVal lpText As String = "", Optional ByVal lpCaption As String = "", Optional ByVal wType As Long = 0) As Long
MsgBoxW = MessageBoxW(hwnd, StrPtr(lpText), StrPtr(lpCaption), wType)
End Function
这个我有点不理解 为什么是 Byval as String , VB会传进来什么? 是一个ANSI副本吧, ByRef as String为什么不行呢?
Public Function MsgBoxW(Prompt As String, Optional ByVal Buttons As VbMsgBoxStyle = 0, Optional Title As String = vbNullChar) As VbMsgBoxResult
If Title = vbNullChar Then Title = App.Title
MsgBoxW = MessageBoxW(0, StrPtr(Prompt), StrPtr(Title), Buttons)
End Function
这样的话 跟VB6使用习惯一致, 不过本程序的代码 调用到的地方就要调整一下 好在改动不多 |
|