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

這個不容易做到啊

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

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

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

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

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

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

參考資料：

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

可以的，需要判斷控件類型并做一下類型轉(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怎么獲取窗口標題

非常簡單.

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

我給你寫了個代碼 你運行看下就明白了..

在窗體上創(chuàng)建一個timer控件(用來隨時檢測活動窗口的標題),然后復(fù)制下面的代碼 運行 就看到了...哥們,最好追加點分哦~~ 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 "活動窗口標題是 " tt

End Sub

vb.net 歷遍項目的窗體

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遍歷窗口標題 vb 遍歷文件夾
網(wǎng)址分享：http://www.rwnh.cn/article10/hiiogo.html

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

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)