Question

易语言信息框按钮文字自定义

Answer 1

.程序集变量 hook, 整数型.子程序 _按钮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 ＋ #信息图标, ) '只要改那些信息框前面的字就行!比如上面那句就改【sdfs】！