自定义消息框上的按钮的文字
来源:互联网 发布:东北大学ipv6网络电视 编辑:程序博客网 时间:2024/05/20 11:25
'/////////////////////////////////////
'自定义消息框上的按钮的文字
'\\\\\\\\\\\\\\\\\\
'鬼龙之舞
'2004-3-1
'以下代码在模块
Option Explicit
Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
Private Declare Function SetDlgItemText Lib "user32" Alias "SetDlgItemTextA" (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal lpString As String) As Long
Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Private Const WH_CBT = 5
Private Const HCBT_ACTIVATE = 5
Private hHook As Long
Private Function HookProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If nCode = HCBT_ACTIVATE Then
'HCBT_ACTIVATE时wParam是将被激活的窗口的句柄
Dim hwnd As Long
hwnd = wParam
'设定按钮的文字
SetDlgItemText hwnd, vbOK, ByVal "确定[&O]"
SetDlgItemText hwnd, vbCancel, ByVal "取消[&C]"
SetDlgItemText hwnd, vbYes, ByVal "是[&Y]"
SetDlgItemText hwnd, vbNo, ByVal "否[&N]"
SetDlgItemText hwnd, vbAbort, ByVal "放弃[&A]"
SetDlgItemText hwnd, vbIgnore, ByVal "忽略[&I]"
SetDlgItemText hwnd, vbRetry, ByVal "重试[&R]"
'不要再Hook,以免带来不必要的麻烦
UnhookWindowsHookEx hHook
End If
HookProc = 0
End Function
'使用和VB的MsgBox一样的名字,如果你不想使用自定文字格式,只需要移除本模块即可
Public Function MsgBox(Prompt As String, Optional Button As VbMsgBoxStyle = vbOKOnly, Optional Title As String) As VbMsgBoxResult
If Len(Title) = 0 Then Title = App.Title
hHook = SetWindowsHookEx(WH_CBT, AddressOf HookProc, App.hInstance, App.ThreadID)
'注意下面的第一个参数最好传递一个窗口的句柄,当然,让它作为0也可以
'MsgBox= MessageBox(0, Prompt, Title, Button) '不推荐这样做
MsgBox = MessageBox(Form1.hwnd, Prompt, Title, Button)
End Function
- 自定义消息框上的按钮的文字
- 关于自定义按钮上文字的绘制总结
- 自定义一个图片在上,文字在下的按钮
- 改变按钮上的文字
- 更改标准消息框按钮、文字的简单方法
- 自定义带文字的返回按钮
- NavigationItem按钮的自定义(图片+文字)
- 自定义导航栏的按钮,文字
- 自定义按钮图片和文字的位置
- 自定义navigationBar上的按钮
- 自定义navigationBar上的按钮
- 自定义键盘上的按钮
- js修改comfirm提示框中按钮上的文字
- html按钮上文字的换行
- 获取一个按钮上的文字
- robotium获取某一个按钮上的文字
- C# 带提示消息的自定义按钮
- 自定义UITableViewCell上的图片文字
- 个人QQ技术群列表
- 佛家经典语录
- [zz]国外程序员推荐的免费编程书籍资源
- 7款同步备份手机通讯录工具
- webapp 技巧
- 自定义消息框上的按钮的文字
- BCB 中数据导出为WORD文件的实现
- wget下载出现failed: Temporary failure in name resolution错误的解决方法
- Java非阻塞算法简介
- ORA-3136(WARNING Inbound Connection Timed Out)分析
- 总结---与ORACLE数据库交互程序性能优化篇
- dblink ora-12170
- 面试题大数相加相减
- Iphone 上使用libz库解压zip,gzip文件