vb點虐 module 里面的 公共變量 ?

您僅僅聲明了一個變量，變量在未被賦值時，它指向一個空的地址，所以，它沒有被實例化。您給它賦一個值，它就指向您定義的值，就行了。

成都創(chuàng)新互聯(lián)專注于邯山企業(yè)網(wǎng)站建設(shè),自適應網(wǎng)站建設(shè),商城網(wǎng)站定制開發(fā)。邯山網(wǎng)站建設(shè)公司,為邯山等地區(qū)提供建站服務。全流程按需策劃設(shè)計，專業(yè)設(shè)計，全程項目跟蹤，成都創(chuàng)新互聯(lián)專業(yè)和態(tài)度為您提供的服務

public module module1

Public i As Integer = 365

end module

vb點虐 ?怎么實現(xiàn)多個控件共同使用一個變量

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

Private

Shared

AAA

As

String

Public

Shared

AAA

As

String

......

這樣AAA在一個應用程序里就是公用的.

------------------------------------------------------

補充:

不可能沒用,我都是這樣做的.

該控件使用中,自己看吧:

Public

Class

CMB_MemoryTextBox

Inherits

TextBox

#Region

"

變量定義

"

Private

Shared

p_HisData

As

STRU_DATA

'用數(shù)據(jù)表保存所有控件的歷史記錄

Private

Shared

p_FileName

As

String

'保存歷史記錄的文件名

......

VB點虐 里的公共變量操作語句為什么不執(zhí)行？

試試下面的：

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

vb點虐 中變量的引用

在form1中的變量要定義成公用變量，即Public strNum As String

在form2中引用form1的公用變量，例：str1 = form1.strNum即可。