更改标准消息框按钮、文字的简单方法

原创 2004年09月08日 01:07:00

'Code By 魑魅魍魉
'mailto:DemonStudio@hotmail.com

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName 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
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Const WM_SETFONT = &H30
Private Const WM_GETFONT = &H31
Private Const WM_KILLFOCUS = &H8

Private Sub Command1_Click()
 Timer1.Enabled = True
 MessageBox Me.hwnd, "我爱你", "bbbb", 0
End Sub

Private Sub Form_Load()
 Timer1.Interval = 100
 Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Dim a, b As Long
a = FindWindowEx(FindWindow("#32770", "bbbb"), 0, "button", "确定")
b = FindWindowEx(FindWindow("#32770", "bbbb"), 0, "static", "我爱你") '""是图标STATIC的窗口名
If a <> 0 Then
 SetWindowLong a, -16, &H50008000
 SendMessage a, &H8, 0, 0
 Text1 = SendMessage(Text1.hwnd, &H31, 0, 0)
 SendMessage a, &H30, CLng(Text1), 0
 SendMessage b, &H30, CLng(Text1), 0
End If
Timer1.Enabled = False
End Sub

效果如下:

使用目录内容建立菜单

目的:根据目录内容,建立一个菜单。菜单项为目录中的文件和子目录(以弹出方式显示)。解决方案:遍历子目录,建立一个文件路径数组。菜单项的ID是数组的索引。当用户单击某个菜单项时,从数组中读取文件路径并执...
  • jiangsheng
  • jiangsheng
  • 2001-08-02 22:58:00
  • 2067

Android 通过按钮Button更改全部的TextView、EditText、Button的字体大小、字体颜色、背景颜色

本文实现的是自定义设置字体大小、字体颜色、背景颜色,然后通过一键全部修改整个视图内所有的TextView、EditText、Button的字体大小、字体颜色、背景颜色。 实现的逻辑:通过遍历Vi...
  • AMinfo
  • AMinfo
  • 2012-07-28 12:22:36
  • 7870

让网页支持文字的描边

filter:glow(color=black,strength=1); text-shadow: 1px 0px 0px #000, -1px 0px 0px #000, 0px 1px 0px ...
  • alongken2005
  • alongken2005
  • 2011-12-14 20:58:22
  • 400

C++ Button设置按钮文本

1、类CButtonST中定义一个设置按钮图标的成员函数DWORD CButtonST::SetIcon(int nIconIn, int nIconOut){    HICON        hIc...
  • weixin_40407666
  • weixin_40407666
  • 2018-04-03 10:15:11
  • 25

ABAP 构建一个弹出式窗口,其中包含单选按钮

效果如图: CODE: REPORT z_wuwei_0010. TYPE-POOLS: slis. INCLUDE . TYPES: BEGIN OF itype_alv_f...
  • szlaptop
  • szlaptop
  • 2013-01-10 10:01:54
  • 2964

android 带文字的图片按钮的实现

  • 2011年06月01日 16:13
  • 14KB
  • 下载

SDK XP样式按钮

  • 2008年10月11日 10:48
  • 132KB
  • 下载

wpf MessageBox 消息框

MessageBox 类 显示消息框。 MessageBoxButton 枚举 指定在消息框显示的按钮。 作为MessageBox.Show 方法的参数 OK 该消息框显示...
  • i1tws
  • i1tws
  • 2017-02-28 22:05:28
  • 840

C#之WinForm基础 点击按钮出现 打开文件的对话框

慈心积善融学习,技术愿为有情学。善心速造多好事,前人栽树后乘凉。我今于此写经验,愿见文者得启发。 1、UI 2、代码 using System; using Sy...
  • yushaopu
  • yushaopu
  • 2016-09-18 17:29:56
  • 719

获取button上文字的宽度

NSDictionary *attributes = @{NSFontAttributeName:[UIFontsystemFontOfSize:17]}; //获取button上文字    ...
  • zhanghaibo369
  • zhanghaibo369
  • 2017-02-07 16:59:26
  • 501
收藏助手
不良信息举报
您举报文章:更改标准消息框按钮、文字的简单方法
举报原因:
原因补充:

(最多只允许输入30个字)