自定义信息框按钮标题

自定义信息框按钮标题

.版本 2

.子程序 _按钮1_被单击

hook ＝ SetWindowsHookEx (5, &HookProc, GetWindowLong (取窗口句柄 (), -6), 0)
MessageBox (取窗口句柄 (), “方圆软件工作室”, “近在眼前”, 1 ＋ #信息图标)

.子程序 HookProc, 整数型
.参数 code
.参数 wp
.参数 lp
.局部变量 hwnd, 整数型

.如果真 (code ＝ 5)
    ' 设定按钮的文字,草稿文字为替换前标题请一一对应,如果要加快捷键后面加“&”＋一个英文字母
    SetDlgItemText (wp, 1, “哈哈……”)  ' 确定
    SetDlgItemText (wp, 2, “呵呵……”)  ' 取消
    SetDlgItemText (wp, 3, “近在眼前(&Z)”)  ' 终止
    SetDlgItemText (wp, 4, “方圆软件”)  ' 重试
    SetDlgItemText (wp, 5, “易语言”)  ' 忽略
    SetDlgItemText (wp, 6, “嘎嘎”)  ' 是
    SetDlgItemText (wp, 7, “嘿嘿”)  ' 否
    UnhookWindowsHookEx (hook)
.如果真结束
返回 (0)

.子程序 _按钮2_被单击

信息框 (“sdfs”, 1 ＋ #信息图标, )

.子程序 _按钮4_被单击

hook ＝ SetWindowsHookEx (5, &HookProc, GetWindowLong (取窗口句柄 (), -6), 0)
信息框 (“sdfs”, 2 ＋ #信息图标, )

.子程序 _按钮5_被单击

hook ＝ SetWindowsHookEx (5, &HookProc, GetWindowLong (取窗口句柄 (), -6), 0)
信息框 (“sdfs”, 3 ＋ #信息图标, )

.子程序 _按钮6_被单击

hook ＝ SetWindowsHookEx (5, &HookProc, GetWindowLong (取窗口句柄 (), -6), 0)
信息框 (“sdfs”, 4 ＋ #信息图标, )

.子程序 _按钮7_被单击

hook ＝ SetWindowsHookEx (5, &HookProc, GetWindowLong (取窗口句柄 (), -6), 0)
信息框 (“sdfs”, 5 ＋ #信息图标, )

.子程序 _按钮8_被单击

信息框 (“sdfs”, 2 ＋ #信息图标, )

.子程序 _按钮9_被单击

信息框 (“sdfs”, 3 ＋ #信息图标, )

.子程序 _按钮10_被单击

信息框 (“sdfs”, 4 ＋ #信息图标, )

.子程序 _按钮11_被单击

信息框 (“sdfs”, 5 ＋ #信息图标, )

@易语言学习论坛