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

原创 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

效果如下:

拷贝标准的选择屏幕修改为自定义的样式

SAP 模块如果使用了逻辑数据库,新建报表程序的时候会自动生成标准选择屏幕, 如果需要自定义选择屏幕,就需要从标准中拷贝出来,然后进行自定义设置,这里有些关键的操作步骤如果不注意,很容易出错,例如第7...
  • Belle_Wong
  • Belle_Wong
  • 2016年06月16日 15:01
  • 366

5分钟DIY一个自定义单选框单选按钮

转眼间2017年了,在这里祝大家2017都能 展翅高飞、心想事成! 上次写博已经是两个月前了,这两个月七搞八搞学了不少黑科技日后必会分享给大家~下面咱们就开门见山了由于浏览器本身自带的单选按钮且不说...
  • promiseCao
  • promiseCao
  • 2017年01月05日 00:07
  • 3773

【iOS】UISearchBar修改右边取消按钮的方法

【iOS】UISearchBar修改右边取消按钮的方法在做APP的时候,很多APP都有搜索框。有时我们可以使用UITextFlied最定义,有时我们直接使用UISearchBar就可以了。但是在UIS...
  • zhuming3834
  • zhuming3834
  • 2016年04月10日 11:13
  • 11336

如何更改MFC按钮的背景色

今天打算给自己写的工程上点色。但是在给按钮上色的时候出了点问题。在网上找的方法基本上都不管用。说得跟真的一样,各种OnCtrlColor()和OnEraseBkground(),各种技术帝的方法看起来...
  • WLONG724
  • WLONG724
  • 2014年04月30日 11:20
  • 759

如何更改MFC按钮的背景色

今天打算给自己写的工程上点色。但是在给按钮上色的时候出了点问题。在网上找的方法基本上都不管用。说得跟真的一样,各种OnCtrlColor()和OnEraseBkground(),各种技术帝的方法看起来...
  • ytmalhj
  • ytmalhj
  • 2013年03月28日 10:28
  • 281

如何更改MFC按钮的背景色

今天打算给自己写的工程上点色。但是在给按钮上色的时候出了点问题。在网上找的方法基本上都不管用。说得跟真的一样,各种OnCtrlColor()和OnEraseBkground(),各种技术帝的方法看起来...
  • dongsoso
  • dongsoso
  • 2013年10月27日 10:40
  • 1733

简单树组织数据格式化为标准树组织数据

在工作中,很多时候会遇到树组织,但是从数据库里面查询出来的结果是一个简单的树组织,这就需要将简单的树组织转换为标准的树组织,以便使用,本文分享一个简单的function来实现简单到标准的转换。...
  • GISShiXiSheng
  • GISShiXiSheng
  • 2016年12月13日 07:20
  • 558

【Android动画】简单的组合动画按钮

1.效果图这也是产品要求达到的效果,于是才有了这个实现。 2.实现思路总共就是7个按钮,中间的按钮然后被遮住的3个周报、日报、月报按钮,点击笔图标的按钮时,将被遮住的三个按钮移出,分别做左移、上移、...
  • zhuyb829
  • zhuyb829
  • 2016年02月23日 15:17
  • 1136

js前台与后台数据交互-前台调后台

     网站是围绕数据库来编程的,以数据库中的数据为中心,通过后台来操作这些数据,然后将数据传给前台来显示出来(当然可以将后台代码嵌入到前台)。即:      下面就...
  • wangchuan886
  • wangchuan886
  • 2015年12月10日 21:16
  • 194

修改RadioButton默认的按钮

现在有这么一个需求,有两个单选按钮,yon
  • qibin0506
  • qibin0506
  • 2014年11月04日 08:30
  • 3010
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:更改标准消息框按钮、文字的简单方法
举报原因:
原因补充:

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