自定义Msgbox窗体图标代码

更改自定义Msgbox窗体图标源代码。
VB中Msgobx函数是默认是居中弹出的，怎么样能让它在指定的位置弹出呢？此份代码就能实现，除此以外就是可以更改 MsgBox 窗体上的那个信息提示图标.


示例：
'* HOW TO USE
'*********************
'* Just pop this module in your VB5 or 6 project.  Then you can call MsgBoxEx instead of MsgBox
'* MsgBoxEx will return the same vbMsgBoxResults as MsgBox, but adds the frm, Left, and Top parameters.
'*
'* Useage sample:
'*
'* Dim ret As VbMsgBoxResult
'* ret = MsgBoxEx(Me, "This is a test", vbOKCancel, "Cool!", 10, 10)
'* If ret = vbOK Then
'*     MsgBox "User pressed OK!"
'* End If
'*
'*  *Note if you leave out the Left and Top parameters the MsgBox will center itself over the Form
'*
'*  e.g.;
'*  Call MsgBoxEx(Me, "This is a test")
'*
'*  This will center the msgBox and use the default (vbOKonly) button style and default (app.title) title text
'*

  本站提供自定义Msgbox窗体图标代码免费下载，版权归其软件公司或原作者所有。如果你喜欢，请支持正版！