首先聲明一下API
成都創(chuàng)新互聯(lián)專業(yè)IDC數(shù)據(jù)服務(wù)器托管提供商,專業(yè)提供成都服務(wù)器托管,服務(wù)器租用,達(dá)州服務(wù)器托管,達(dá)州服務(wù)器托管,成都多線服務(wù)器托管等服務(wù)器托管服務(wù)。
在你窗口最頂?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表示無(wú)法找到窗口句柄
MsgBox "無(wú)法找到需要的窗口句柄"
Else
MsgBox "已找到窗口句柄 句柄數(shù)為:" 窗口句柄
End If
End Sub
將NewForm設(shè)置為全局變量就可以了,如果新建窗口比較多,就設(shè)置為數(shù)組,例如:
Public Class Form1
Dim NewForm(10) As Form
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
NewForm(0) = New Form
NewForm(0).Show()
End Sub
End Class
如果我沒理解錯(cuò):
Form1(下窗體) Form2(上窗體)
且已在Form1中聲明了Form2
那不直接就可以在Form2中控制Form1的控件的值咯?
哦,明白了!
你是想不動(dòng)Form2找到值后就高亮顯示出來(lái)查詢結(jié)果?
那還不簡(jiǎn)單,在Form2里邊加上me.Topmast=True讓Form2位于頂層
前提是你的Form1里的文本控件可實(shí)現(xiàn)選擇效果,如RichTextBox,
在Form2中找到結(jié)果后寫入 Form1.RichTextBox1.Select( start , Length),選則結(jié)果文本就可以高亮了,這樣就實(shí)現(xiàn)了Form2 不關(guān)閉,且Form1 顯示結(jié)果。
您是想問vb.net查找未使用的函數(shù)方法嗎?vb.net查找未使用的函數(shù)方法是:
1、在VS.NET中右鍵單擊主RESX文件,然后從上下文菜單中選擇FindUsages。
2、雙擊解決方案窗口中的每個(gè)匹配項(xiàng),這將打開包含該資源的源代碼窗口。
3、在源代碼窗口中重命名此資源,它將彈出ReSharper的“重命名資源”對(duì)話框。
4、它將重命名資源和自動(dòng)生成的C#包裝器/訪問類。
5、對(duì)"Usages“窗口中的所有資源重復(fù)上述步驟2、3和4。
6、在VisualStudio的資源編輯器中打開RESX文件,并選擇所有不帶前綴的文件。
7、您最終得到了一個(gè)RESX文件,其中有未使用的函數(shù)。
我剛寫好的,獲取任務(wù)欄中已運(yùn)行的程序。
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
For Each p As Process In Process.GetProcesses
If p.MainWindowTitle "" Then ListBox1.Items.Add(p.MainWindowTitle)
Next
End Sub
End Class
網(wǎng)站欄目:vb.net查找窗口 用vb做一個(gè)查詢界面
URL網(wǎng)址:http://jinyejixie.com/article28/dodppcp.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供App開發(fā)、全網(wǎng)營(yíng)銷推廣、面包屑導(dǎo)航、外貿(mào)網(wǎng)站建設(shè)、網(wǎng)頁(yè)設(shè)計(jì)公司、ChatGPT
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)
猜你還喜歡下面的內(nèi)容