更改标准消息框按钮、文字的简单方法
2004-09-08 01:07
531 查看
'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
效果如下:
'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
效果如下:
相关文章推荐
- File input 浏览上传按钮样式和文字的更改方法
- File input 浏览上传按钮样式和文字的更改方法
- JS简单实现点击按钮或文字显示遮罩层的方法
- iOS 更改导航栏返回按钮文字
- JAVA之简单界面设计(布局,更改背景图片,按钮监听 + 数据库登陆注册相关..)
- 在ASP.NET中点击一个按钮后让它变灰的简单方法
- js实现文字在按钮上滚动的方法
- 抽取一个简单的按钮方法
- 表单元素input、按钮、文字完美垂直居中对齐方法
- Android TextView 横排文字变竖排的简单方法
- 在使用GridView中删除的按钮弹出提示框最简单的一中方法
- UISearchBar 按钮的文字和颜色更改
- android 滑动出现删除按钮 - swipelistview 入口方法以及简单布局说明
- 更改UITextField的placeholder文字颜色的5种方法
- MFC改变按钮的颜色,方法简单,实用
- File input 的样式和文字的更改方法
- iOS 更改webView文字颜色丶文字大小丶背景色的方法
- C# 文字转换最简单的方法
- 最简单的方法修改Ubuntu设置为默认文字界面启动 (修改内核)
- File input 的样式和文字的更改方法__适用于Firefox、IE等浏览器