把變量定義時(shí)增加Shared關(guān)鍵字即可.如:

成都創(chuàng)新互聯(lián)作為成都網(wǎng)站建設(shè)公司,專注網(wǎng)站建設(shè)公司、網(wǎng)站設(shè)計(jì),有關(guān)企業(yè)網(wǎng)站設(shè)計(jì)方案、改版、費(fèi)用等問題,行業(yè)涉及LED顯示屏等多個(gè)領(lǐng)域,已為上千家企業(yè)服務(wù),得到了客戶的尊重與認(rèn)可。
Private
Shared
AAA
As
String
Public
Shared
AAA
As
String
......
這樣AAA在一個(gè)應(yīng)用程序里就是公用的.
------------------------------------------------------
補(bǔ)充:
不可能沒用,我都是這樣做的.
該控件使用中,自己看吧:
Public
Class
CMB_MemoryTextBox
Inherits
TextBox
#Region
"
變量定義
"
Private
Shared
p_HisData
As
STRU_DATA
'用數(shù)據(jù)表保存所有控件的歷史記錄
Private
Shared
p_FileName
As
String
'保存歷史記錄的文件名
......
textbox1.enabled=false
就行啊,不像MFC那樣為控件分配變量的,直接是 控件.屬性=表達(dá)式
在.NET中,對(duì)象和結(jié)構(gòu)還是有些不同的,定義方式也是其中之一。
像整型、字符串和一些數(shù)值類型都屬于結(jié)構(gòu)。結(jié)構(gòu)只需要這樣定義就可以了:
Dim str As String
系統(tǒng)自動(dòng)分配內(nèi)存,然后就可以對(duì)它進(jìn)行訪問了。
如果像這樣聲明普通類:
Dim cla As Class
此時(shí)直接訪問cla類成員會(huì)引發(fā)一個(gè)null異常。因?yàn)槟銉H僅聲明了cla的類型(cla是Class類型的),而內(nèi)存中沒有一個(gè)真正的對(duì)象(類的實(shí)例)。如果你需要一個(gè)實(shí)例,就需要用New關(guān)鍵字,例如:
Dim cla As New Class("some words")
這時(shí)系統(tǒng)會(huì)建立一個(gè)Class對(duì)象,并將cla指向這個(gè)對(duì)象。這樣就完成了一次實(shí)例化。這時(shí)就可以直接訪問cla的成員了。
在實(shí)例化時(shí),系統(tǒng)會(huì)調(diào)用對(duì)象的New函數(shù),即構(gòu)造函數(shù)。后面括號(hào)里的內(nèi)容并不是對(duì)象的屬性,而是要傳遞給這個(gè)構(gòu)造函數(shù)的參數(shù)。至于對(duì)象的構(gòu)造函數(shù)是否需要參數(shù)、需要多少參數(shù)以、參數(shù)的類型及重載情況等,取決于要實(shí)例化的類型。
上面的Class只是例子,代換成實(shí)際的類即可。
mytest1是繼承自什么類,通常應(yīng)該繼承自UerControl,雖然你這樣也能編譯通過,但實(shí)際上沒有任何意義。所以你先改了再說。繼承之后,編譯,工具箱就會(huì)多這么個(gè)控件,拖動(dòng)到Form1上,這樣按鈕下就不用再new了。然后你再來問。
當(dāng)前文章:vb.net定義控件變量,vb定義變量類型
URL標(biāo)題:http://chinadenli.net/article42/dsgoehc.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站制作、網(wǎng)站設(shè)計(jì)、云服務(wù)器、網(wǎng)站設(shè)計(jì)公司、網(wǎng)站維護(hù)、微信小程序
聲明:本網(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í)需注明來源: 創(chuàng)新互聯(lián)