vb.net遍歷窗口標(biāo)題 vb 遍歷文件夾

vb 遍歷窗口下所有控件里的文字(高分)

這個(gè)不容易做到啊

目前創(chuàng)新互聯(lián)公司已為超過(guò)千家的企業(yè)提供了網(wǎng)站建設(shè)、域名、網(wǎng)站空間、網(wǎng)站改版維護(hù)、企業(yè)網(wǎng)站設(shè)計(jì)、蓮湖網(wǎng)站維護(hù)等服務(wù)，公司將堅(jiān)持客戶導(dǎo)向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長(zhǎng)，共同發(fā)展。

首先要看外部程序是什么編的，大致有以下幾種情況：

1. 標(biāo)簽有句柄，是由 SetWindowText 實(shí)現(xiàn)的（其實(shí)從底層一點(diǎn)看，還是發(fā)送了 WM_SETTEXT 消息），

例如VC、Masm 32 的程序。這種情況好解決，GetWindowText 或 發(fā)送WM_GETTEXT消息就OK了；

2. TextOut 畫上去的（例如 VB 就是這樣的）。這種情況要 hook TextOut；

GetWindowText()或SendMessage()都無(wú)法取得vb程序的label的文字,因?yàn)関b的label沒有handle, 但大家發(fā)現(xiàn) KingSoft CIBA 可以取得vb的label值,這是因?yàn)?KingSoft CIBA 攔下了Win32API中的textOut函數(shù)

參考資料：

關(guān)于遍歷VB.net窗體里面控件的問(wèn)題

可以的，需要判斷控件類型并做一下類型轉(zhuǎn)換。

For Each c As Control In Me.Controls

If TypeOf(c) Is TextBox Then

Dim t As TextBox = CType(c ,TextBox)

'調(diào)用t的方法即可

End If

Next

VB怎么獲取窗口標(biāo)題

非常簡(jiǎn)單.

先用 GetForegroundWindow 來(lái)獲取當(dāng)前活動(dòng)窗口的句柄,然后用 GetWindowText 來(lái)獲得這個(gè)句柄的標(biāo)題..就可以了,

我給你寫了個(gè)代碼 你運(yùn)行看下就明白了..

在窗體上創(chuàng)建一個(gè)timer控件(用來(lái)隨時(shí)檢測(cè)活動(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 歷遍項(xiàng)目的窗體

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

Dim?myAssembly?As?System.Reflection.Assembly?=?System.Reflection.Assembly.GetExecutingAssembly()

Dim?TheTypes?As?Type()?=?myAssembly.GetTypes()

Dim?myType?As?Type

For?Each?myType?In?TheTypes

If?myType.BaseType.ToString?=?"System.Windows.Forms.Form"?Then

ListBox1.Items.Add(myType.Name)

End?If

Next

End?Sub

文章題目：vb.net遍歷窗口標(biāo)題 vb 遍歷文件夾
網(wǎng)址分享：http://m.kartarina.com/article10/hiiogo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供外貿(mào)建站、品牌網(wǎng)站制作、網(wǎng)站策劃、ChatGPT、虛擬主機(jī)、企業(yè)建站

廣告

聲明：本網(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)