‘添加 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
Private Sub Form_Unload(Cancel As Integer)
ShowWindow bWnd, SW_NORMAL
DestroyWindow ncWnd
End
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
摘自：網絡整理
★VB部分相關文章推薦：★
☆VB6 中善用ByRef 提升速度
☆[vb] Set 語句
☆VB_Format自定義格式
☆用VB如讀取內存地址
☆vb FindwindowEx的用法實例
☆進制轉化進10進制數
☆收藏:如何獲取當前已經打開的IE對象(VB6代碼)
☆DXInput中鍵碼的轉換(VB6.0代碼)
☆如何在VB6.0里動態使用具有事件的對象
☆[vb]格式輸出Format函數
☆讀取和寫入Windows的INI文件
☆簡述UTF－8編碼原理及其文本文件的讀寫技術【轉】
☆VB中的文件操作
☆VB中的文件操作文檔
☆vb 中拷貝文件
☆VB反跟蹤技術點滴
☆VB共享軟件防破解設計技術初探（二）
☆VB共享軟件防破解設計技術初探（三）
☆VB共享軟件防破解設計技術初探（一）
☆RTF文件格式【轉】
☆VB壓縮技術
☆[vb]FSO對象模型在VB中的應用
☆VB 窗體實現文件拖拽獲取路徑方法
☆VB：注冊表的讀寫
☆vb中空操作（等待）的指令、延時方法
☆VB讓控件可以當標題欄拖動
☆FSO對象新建、打開、保存文件
☆獲取網關IP和MAC 的VB源碼
☆VB文件關聯
☆vb獲得本地和遠程的MAC地址(網卡地址)
☆VB中shellexecute的應用
☆VB打開網址方法大全
☆vb簡單控制音量大小及靜音的方法
☆拖動無邊框窗體(VB6代碼)
☆VB使用FileSystemObject對象寫文件
☆VB 從注冊表中刪除項及其某個值
☆vb 字符串轉為數字和判斷字符串是否是數字字符串【轉】
☆vb按熱鍵啟動應用程序
☆VB的坐標系統綜述
☆VB利用API函數來處理文件
☆關于VB中Shell及ShellExecute的總結與記錄
☆[vb]On Error GoTo 0和On Error resume區別
☆[vb]On Error 語句
☆記錄一下:在菜單上添加自繪圖形的例子(VB6代碼)
☆vb中findwindow的疑惑
☆[vb]FindWindow使用方法
☆常用文件類[轉，無法運行通，待調試]
☆[vb]url utf-8編碼
☆VB中的Unicode 和Ansi 格式
☆VB中的format格式化函數
☆VB中字符串匹配的多種方式
☆VB抓圖
☆談vb目錄文件操作的三種方法－2
☆談vb目錄文件操作的三種方法－1
☆vb使用open方法讀寫文件
☆VB的MD5加密模塊
☆VB 超簡單的屏幕截圖代碼
☆vb以類名或窗口標題查找句柄并關閉
☆VB將配置保存到EXE本身（生成EXE木馬程序）
☆VB 調用騰訊截圖控件CameraDLL.dll
☆在VB6.0中怎么實現escape和unescape
☆vb求任意兩線交點
☆VB中調用Windows API的注意事項[VB知識庫]
☆VB 一個獲得自己外網ip 地址的程序代碼
☆VB程序中實現IP地址子網掩碼網關DNS的更改[轉]
☆在VB 中應用FSO 對象模型介紹（摘自網絡）
☆[轉] Vb中FSO 對象的介紹
☆VB 畫坐標軸
☆VB 二進制文件的操作
☆[VB]BMP轉JPG
☆VB中KeyCode常數用法
☆vb實時曲線的繪制和保存
更多精彩>>>
本文由 貴州做網站公司 整理發布，部分圖文來源于互聯網，如有侵權，請聯系我們刪除，謝謝！
網絡推廣與網站優化公司（網絡優化與推廣專家）作為數字營銷領域的核心服務提供方，其價值在于通過技術手段與策略規劃幫助企業提升線上曝光度、用戶轉化率及品牌影響力。這...
在當今數字化時代，公司網站已成為企業展示形象、傳遞信息和開展業務的重要平臺。然而，對于許多公司來說，網站建設的價格是一個關鍵考量因素。本文將圍繞“公司網站建設價...
在當今的數字化時代，企業網站已成為企業展示形象、吸引客戶和開展業務的重要平臺。然而，對于許多中小企業來說，高昂的網站建設費用可能會成為其發展的瓶頸。幸運的是，隨...
qq綠鉆和黃鉆區別？綠鉆和黃鉆的區別是:的綠鉆是指音樂給用戶提供的一些特權服務，黃鉆是空間的會員。不同的會員所對應的特權不同，綠鉆可以用來下載高質量音樂，黃鉆則可以給空間添加背景，裝飾，文字，等的美化還有其他的特權例如的vip和svip等，可以根據所需進行購買。黃鉆有什么用？有什么好處？開哪個鉆最劃來？騰訊的鉆都是各有功能的！ 黃鉆主要是空間裝扮，皮膚等可以免費用，好處就是空間比普通用戶的弄得漂亮...
nba每節及中場休息多久？NBA比賽有15分鐘的中場休息。第一、二節休息時間與第三、四節相同，均為130秒。在NBA，每次兩場比賽結束后，都會進入中場休息。在這15分鐘里，競技場里會有很多表演，球員們會立刻回到室。一般很多玩家在第二場比賽結束后會花一兩分鐘去上個廁所。畢竟NBA球員也是人。玩了一個小時，有的玩家會尿急。上完廁所后，他們要花幾分鐘時間補充能量。一般會吃漢堡、香蕉、烤全雞等高能量食物。...
怎么登錄青驕第二課堂？首先點擊鏈接https://www.2-class.com/competition進入清教第二課堂官方網站后，電腦用戶點擊網站第一個登錄頁面進入賬號登錄界面，手機用戶點擊我的課程進入賬號登錄界面。2-class平臺怎么注冊？點擊flash場景右上角的【注冊】按鈕，進入注冊頁面，根據頁面要求填寫注冊信息，注冊成功。注意：不支持個人注冊帳戶。所有參與者的帳號和密碼均由學校管理員提...
免責聲明：本站內容部分文字和圖片來源于網絡，版權屬于原作者所有，若有冒犯，請聯系我們進行刪除，謝謝。聯系郵箱：1051388971#qq.com （把#換成@）
