重慶分公司,新征程啟航
為企業(yè)提供網(wǎng)站建設(shè)、域名注冊、服務(wù)器等服務(wù)
為企業(yè)提供網(wǎng)站建設(shè)、域名注冊、服務(wù)器等服務(wù)
把變量定義時增加Shared關(guān)鍵字即可.如:
讓客戶滿意是我們工作的目標(biāo),不斷超越客戶的期望值來自于我們對這個行業(yè)的熱愛。我們立志把好的技術(shù)通過有效、簡單的方式提供給客戶,將通過不懈努力成為客戶在信息化領(lǐng)域值得信任、有價值的長期合作伙伴,公司提供的服務(wù)項目有:域名申請、虛擬空間、營銷軟件、網(wǎng)站建設(shè)、浮山網(wǎng)站維護(hù)、網(wǎng)站推廣。
Private
Shared
AAA
As
String
Public
Shared
AAA
As
String
......
這樣AAA在一個應(yīng)用程序里就是公用的.
------------------------------------------------------
補充:
不可能沒用,我都是這樣做的.
該控件使用中,自己看吧:
Public
Class
CMB_MemoryTextBox
Inherits
TextBox
#Region
"
變量定義
"
Private
Shared
p_HisData
As
STRU_DATA
'用數(shù)據(jù)表保存所有控件的歷史記錄
Private
Shared
p_FileName
As
String
'保存歷史記錄的文件名
......
加個模塊,定義公共變量2個窗體都可以對數(shù)據(jù)庫進(jìn)行讀寫,每次讀寫之前先刷新一次,保證數(shù)據(jù)最新就行了。
VB.NET的特點:
1.真正成為面向?qū)ο笠约爸С掷^承性的語言。
2.窗體設(shè)計器支持可視化繼承,并且包含了許多新的特性,比如自動改變窗體大小、資源本地化支持、數(shù)據(jù)類工具內(nèi)在支持XML數(shù)據(jù)。
3.直接建立在.NET的框架結(jié)構(gòu)上,因此開發(fā)人員可以充分利用所有.NET平臺特性,也可以與其他的.NET語言交互。
4.為Windows應(yīng)用程序提供了XCOPY部署,開發(fā)者不再需要為DLL的版本問題擔(dān)憂。
試試下面的:
Public?Class?Form1
Public?i?As?Boolean?=?False
Delegate?Sub?MySubDelegate()
Private?Sub?F()
Label1.Text?=?(Int(Label1.Text)?+?1).ToString
Label1.Text?=?(Int(Label1.Text)?+?2).ToString
End?Sub
Private?Sub?setA()
Dim?msd?As?MySubDelegate?=?AddressOf?F
Me.Invoke(msd)
i?=?True
End?Sub
Private?Sub?Form1_Load(sender?As?Object,?e?As?EventArgs)?Handles?MyBase.Load
End?Sub
Private?Sub?Button1_Click(sender?As?Object,?e?As?EventArgs)?Handles?Button1.Click
Dim?t1?As?Threading.Thread?=?New?Threading.Thread(AddressOf?setA)
t1.Start()
Do
Application.DoEvents()?'關(guān)鍵
If?i?=?True?Then
Exit?Do
End?If
Loop
End?Sub
End?Class
您僅僅聲明了一個變量,變量在未被賦值時,它指向一個空的地址,所以,它沒有被實例化。您給它賦一個值,它就指向您定義的值,就行了。
public module module1
Public i As Integer = 365
end module