1,添加一個模塊,在模塊里聲明一個全局公共變量N;

公司主營業(yè)務(wù):網(wǎng)站設(shè)計制作、網(wǎng)站設(shè)計、移動網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實現(xiàn)互聯(lián)網(wǎng)宣傳,提高企業(yè)的競爭能力。創(chuàng)新互聯(lián)建站是一支青春激揚、勤奮敬業(yè)、活力青春激揚、勤奮敬業(yè)、活力澎湃、和諧高效的團隊。公司秉承以“開放、自由、嚴謹、自律”為核心的企業(yè)文化,感謝他們對我們的高要求,感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn),讓我們激情的團隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。創(chuàng)新互聯(lián)建站推出加格達奇免費做網(wǎng)站回饋大家。
2,在控件的調(diào)用窗體代碼段里,把此控件名稱給這個全局公共變量N賦值;
3,在窗體的Load()事件里,寫代碼: Me.Text = N。
在類中獲得其他窗體的值。可以使用。
窗體名稱.控件名稱.Text,如:Form1.TextBox1.Text。即可取到Form1窗體下的TextBox1控件的文本。
一般屬性聲明都是這樣的啊。
dim _name as String ‘您的這里沒必要使用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
非常簡單.
先用 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
先選中要改名的窗體,在屬性里找Caption屬性,一般第一個窗體都默認Form1,然后想改成什么就改成什么。
或者在代碼中你想改窗體名的地方,比如
Private Sub Form_Load()
formname.caption=‘窗體名’
End Sub
formname 是窗體這個實例的名字,用于引用該實例。
窗體名 是顯示在這個窗體最上面的那個名字
網(wǎng)站欄目:vb.net得到窗體名,vb的窗體文件
網(wǎng)頁鏈接:http://chinadenli.net/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)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)