vb FindwindowEx的用法实例「建议收藏」

大家好，又见面了，我是你们的朋友全栈君。

‘添加 Command1

Const WS_CHILD = &H40000000
Const WM_LBUTTONDOWN = &H201
Const WM_LBUTTONUP = &H202
Const SW_HIDE = 0
Const SW_NORMAL = 1
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
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 Declare Function FindWindow Lib “user32” Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib “user32” (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function GetWindowRect Lib “user32” (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function CreateWindowEx Lib “user32” Alias “CreateWindowExA” (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Private Declare Function DestroyWindow Lib “user32” (ByVal hwnd As Long) As Long
Dim tWnd As Long, bWnd As Long, ncWnd As Long
Private Sub Form_Load()
    Dim R As RECT
    tWnd = FindWindow(“Shell_TrayWnd”, vbNullString)
    bWnd = FindWindowEx(tWnd, ByVal 0&, “BUTTON”, vbNullString)
    GetWindowRect bWnd, R
    ncWnd = CreateWindowEx(ByVal 0&, “BUTTON”, “Hello!”, WS_CHILD, 0, 0, R.Right – R.Left, R.Bottom – R.Top, tWnd, ByVal 0&, App.hInstance, ByVal 0&)
    ShowWindow ncWnd, SW_NORMAL
    ShowWindow bWnd, SW_HIDE
End Sub

vb FindwindowEx的用法实例「建议收藏」

相关推荐

转载：QT版本系列介绍[通俗易懂]

当黑客说：我入侵了你的电脑，并拍下你看XXOO的画面时，你该怎么办？[通俗易懂]

csgo怎么绑定一键跳投_CSGO投掷物一键跳投的设置方法[通俗易懂]

2年开发经验总结的java面试题(有完整答案)

ICMP协议报文_三菱mc协议报文格式

html里面超链接alt_怎样用HTML代码在图片插入超链接[通俗易懂]

发表回复