📄 readme.txt
字号:
created on 12/09/99
'****************************************************************
'* MsgBoxEx.exe - Custom MsgBox procedure for VB
'******************************************************
'*
'* Copyright (C) 1999-2000 by Ray Mercer <raymer@shrinkwrapvb.com>
'* created on 12/09/99
'*
'* MsgBoxEx for VB
'* Variable position custom MsgBox by Ray Mercer
'* Copyright (C) 1999 by Ray Mercer - All rights reserved
'* Based on a sample I posted to news://msnews.microsoft.com/microsoft.public.vb.general.discussion
'* Based on an earlier post by Didier Lefebvre <didier.lefebvre@free.fr> in the same newsgroup
'* Latest version available at www.shrinkwrapvb.com
'*
'* You are free to use this code in your own projects and modify it in any way you see fit
'* however you may not redistribute this archive sample without the express written consent
'* from the author - Ray Mercer <raymer@shrinkwrapvb.com>
'*
'*********************
'* 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
'*
'* Enjoy!
'*******************************************************
'* More information and latest version of this program
'* is available at:
'* http://www.shrinkwrapvb.com
'*
'* Copyright (c) 1999-2000, Ray Mercer. All rights reserved.
'****************************************************************
You may freely use and modify the source code contained in this
product. You may also freely distribute any application that uses this
sample code or derivations thereof. However, you may not redistribute
any part of this archive or in any way derive financial gain from
this sample without the express permission of it's author - Ray Mercer
<raymer@shrinkwrapvb.com>
Use this product at your own risk!
Please see the licensing and distribution section of the Shrinkwrap
Visual Basic website for more information.
Copyright (c) 1999, Ray Mercer all rights reserved
Another exclusive free product from Shrinkwrap Visual Basic(tm)!
http://www.shrinkwrapvb.com
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -