句柄是 Windows 系統(tǒng)中的概念,和VB.NET無關(guān)。

10年積累的成都網(wǎng)站設(shè)計(jì)、網(wǎng)站建設(shè)經(jīng)驗(yàn),可以快速應(yīng)對客戶對網(wǎng)站的新想法和需求。提供各種問題對應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認(rèn)識(shí)你,你也不認(rèn)識(shí)我。但先網(wǎng)站設(shè)計(jì)后付款的網(wǎng)站建設(shè)流程,更有當(dāng)陽免費(fèi)網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。
通俗地講,句柄就是一個(gè)數(shù)字,也就是一個(gè)編號(hào)。
比如說,你電腦中有10個(gè)窗口,每個(gè)窗口都會(huì)有一個(gè)編號(hào),這是操作系統(tǒng)區(qū)分各個(gè)窗口的依據(jù)
你好。
很幸運(yùn)看到你的問題。
但是又很遺憾到現(xiàn)在還沒有人回答你的問題。也可能你現(xiàn)在已經(jīng)在別的地方找到了答案,那就得恭喜你啦。
可能是你問的問題有些專業(yè)了,沒人會(huì)。或者別人沒有遇到或者接觸過你的問題,所以幫不了你。建議你去問題的相關(guān)論壇去求助,那里的人通常比較多,也比較熱心,可能能快點(diǎn)幫你解決問題。
希望我的回答也能夠幫到你!
祝你好運(yùn)~!
Dim hwnd0 As Integer
Dim hwnd11 As Integer
第二個(gè)是你要生成EXE后 運(yùn)行EXE
第三就是沒好像沒有文本框控件
FindWindowEx
VB聲明
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
說明
在窗口列表中尋找與指定條件相符的第一個(gè)子窗口
返回值
Long,找到的窗口的句柄。如未找到相符窗口,則返回零。會(huì)設(shè)置GetLastError
參數(shù)表
參數(shù)
類型及說明
hWnd1
Long,在其中查找子的父窗口。如設(shè)為零,表示使用桌面窗口(通常說的頂級(jí)窗口都被認(rèn)為是桌面的子窗口,所以也會(huì)對它們進(jìn)行查找)
hWnd2
Long,從這個(gè)窗口后開始查找。這樣便可利用對FindWindowEx的多次調(diào)用找到符合條件的所有子窗口。如設(shè)為零,表示從第一個(gè)子窗口開始搜索
lpsz1
String,欲搜索的類名。零表示忽略
lpsz2
String,欲搜索的類名。零表示忽略
首先聲明一下API
在你窗口最頂?shù)奈恢蒙蠈懮?/p>
Private Declare Function 取窗口句柄 Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'由于VB支持中文的 我就定義成 取窗口句柄 這個(gè)了
'在窗體中添加一個(gè)按鈕里面放進(jìn)下面代碼就OK了
Private Sub Command1_Click()
Dim 窗口句柄 As Long '聲明窗口句柄變量存儲(chǔ)
窗口句柄 = 取窗口句柄(vbNullString, "新建 文本文檔.txt - 記事本") '取窗口標(biāo)題的句柄 把得到窗口標(biāo)題句柄賦予給剛才 窗口句柄 這變量里
If 窗口句柄 = 0 Then '判斷窗口句柄是否等于0 如果等于0表示無法找到窗口句柄
MsgBox "無法找到需要的窗口句柄"
Else
MsgBox "已找到窗口句柄 句柄數(shù)為:" 窗口句柄
End If
End Sub
非常簡單.
先用 GetForegroundWindow 來獲取當(dāng)前活動(dòng)窗口的句柄,然后用 GetWindowText 來獲得這個(gè)句柄的標(biāo)題..就可以了,
我給你寫了個(gè)代碼 你運(yùn)行看下就明白了..
在窗體上創(chuàng)建一個(gè)timer控件(用來隨時(shí)檢測活動(dòng)窗口的標(biāo)題),然后復(fù)制下面的代碼 運(yùn)行 就看到了...哥們,最好追加點(diǎn)分哦~~ o(∩_∩)o...~~
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Sub Form_Load()
Timer1.Interval = 500
Timer1.Enabled = True
Me.Width = Screen.Width / 2
End Sub
Private Sub Timer1_Timer()
Dim hd As Long, tt As String
tt = Space(255)
hd = GetForegroundWindow
GetWindowText hd, tt, 256
Cls
Print "活動(dòng)窗口標(biāo)題是 " tt
End Sub
新聞名稱:vb.net句柄標(biāo)題,vb獲取窗口句柄
本文來源:http://chinadenli.net/article20/dsgioco.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站內(nèi)鏈、網(wǎng)站改版、軟件開發(fā)、企業(yè)建站、網(wǎng)站策劃、標(biāo)簽優(yōu)化
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)