1,添加一個(gè)模塊,在模塊里聲明一個(gè)全局公共變量N;
公司主營(yíng)業(yè)務(wù):網(wǎng)站設(shè)計(jì)制作、網(wǎng)站設(shè)計(jì)、移動(dòng)網(wǎng)站開(kāi)發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實(shí)現(xiàn)互聯(lián)網(wǎng)宣傳,提高企業(yè)的競(jìng)爭(zhēng)能力。創(chuàng)新互聯(lián)建站是一支青春激揚(yáng)、勤奮敬業(yè)、活力青春激揚(yáng)、勤奮敬業(yè)、活力澎湃、和諧高效的團(tuán)隊(duì)。公司秉承以“開(kāi)放、自由、嚴(yán)謹(jǐn)、自律”為核心的企業(yè)文化,感謝他們對(duì)我們的高要求,感謝他們從不同領(lǐng)域給我們帶來(lái)的挑戰(zhàn),讓我們激情的團(tuán)隊(duì)有機(jī)會(huì)用頭腦與智慧不斷的給客戶帶來(lái)驚喜。創(chuàng)新互聯(lián)建站推出加格達(dá)奇免費(fèi)做網(wǎng)站回饋大家。
2,在控件的調(diào)用窗體代碼段里,把此控件名稱給這個(gè)全局公共變量N賦值;
3,在窗體的Load()事件里,寫代碼: Me.Text = N。
在類中獲得其他窗體的值。可以使用。
窗體名稱.控件名稱.Text,如:Form1.TextBox1.Text。即可取到Form1窗體下的TextBox1控件的文本。
一般屬性聲明都是這樣的啊。
dim _name as String ‘您的這里沒(méi)必要使用public
Property Name() As String
Get
Return _name
End Get
Set(ByVal value As String)
_name = value
End Set
End Property
Me.Text
例如:MsgBox(Me.Text)
或者:窗體名.Text
例如: MsgBox(Form1.Text)
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
非常簡(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
先選中要改名的窗體,在屬性里找Caption屬性,一般第一個(gè)窗體都默認(rèn)Form1,然后想改成什么就改成什么。
或者在代碼中你想改窗體名的地方,比如
Private Sub Form_Load()
formname.caption=‘窗體名’
End Sub
formname 是窗體這個(gè)實(shí)例的名字,用于引用該實(shí)例。
窗體名 是顯示在這個(gè)窗體最上面的那個(gè)名字
網(wǎng)站欄目:vb.net得到窗體名,vb的窗體文件
網(wǎng)頁(yè)鏈接:http://sd-ha.com/article2/dsiphic.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供做網(wǎng)站、企業(yè)網(wǎng)站制作、搜索引擎優(yōu)化、云服務(wù)器、、服務(wù)器托管
聲明:本網(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)容