MsgBox自定义按钮问题
需要更改這個msgbox上OK按鈕文本為:清除,按完這個按鈕后需要調用一個方法。请问怎么写?
--------------------编程问答-------------------- 直接修改提示信息:“此货品已做过收货,按OK清除”
或者修改msgbox带yes no两个按钮的模式。
似乎无法修改按钮文本 --------------------编程问答-------------------- 把两个命令按钮重合放在界面上,单击第一个命令按钮时,显示“此货品已做过收货”且切换到第二个按钮上。第二个按钮上写有“清除”字样。单击清除,执行清除操作! --------------------编程问答-------------------- 自己用窗体模拟那个msgbox得了.
要不整一堆api,取句柄,发消息,设置按钮...不知道可以不可以.. --------------------编程问答--------------------
--------------------编程问答-------------------- 三楼正解 如果你一定要改
Private Sub Command1_Click()
If MsgBox("此货品已做过收货,按确定清除", vbOKCancel) = vbOK Then
'处理清除
MsgBox "清除完毕!"
Else
MsgBox "不清除"
End If
End Sub
两条路 一API 二就是三楼 --------------------编程问答-------------------- --------------------编程问答--------------------
最好的办法就是自定义一个MyMsgBOx窗口,自己可以精细的控制显示外观及内部行为 --------------------编程问答-------------------- 用钩子 加SendMessage --------------------编程问答-------------------- 用API虽说可以,但不推荐,自己封装一个吧,别人也好用。 --------------------编程问答-------------------- 最简单的办法就是自己做一个窗体,然后用模式窗体的形态显示出来即可。 --------------------编程问答-------------------- 最简单的方法就是自己写一个窗口,弄得跟msgbox很像就行了 --------------------编程问答-------------------- 可以这样:
新建一个模块
在里面加入以下代码
Option Explicit
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 Declare Function SetDlgItemText Lib "user32" Alias "SetDlgItemTextA" (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal lpString As String) As Long
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
Public Const HCBT_ACTIVATE = 5
Public Const WH_CBT = 5
Public Hook_Msg As Long
Private Function HookProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If nCode = HCBT_ACTIVATE Then
'设定按钮的文字
SetDlgItemText wParam, vbOK, ByVal "清除"
'卸载Hook
UnhookWindowsHookEx Hook_Msg
End If
HookProc = 0
End Function
Public Function MsgBox(Prompt As String, Optional Button As Long = vbOKOnly, Optional Title As String) As Long
If Len(Title) = 0 Then Title = App.Title
Hook_Msg = SetWindowsHookEx(WH_CBT, AddressOf HookProc, App.hInstance, App.ThreadID)
MsgBox = MessageBox(Form1.hwnd, Prompt, Title, Button)
End Function
然后再在窗体中调用
MsgBox "此货品已做过收货!"
看看结果.
--------------------编程问答-------------------- 哦,楼上的自制信息框强大。
补充:VB , 控件