大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
您仅仅声明了一个变量,变量在未被赋值时,它指向一个空的地址,所以,它没有被实例化。您给它赋一个值,它就指向您定义的值,就行了。
成都创新互联专注于邯山企业网站建设,自适应网站建设,商城网站定制开发。邯山网站建设公司,为邯山等地区提供建站服务。全流程按需策划设计,专业设计,全程项目跟踪,成都创新互联专业和态度为您提供的服务
public module module1
Public i As Integer = 365
end module
把变量定义时增加Shared关键字即可.如:
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
'用数据表保存所有控件的历史记录
Private
Shared
p_FileName
As
String
'保存历史记录的文件名
......
试试下面的:
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() '关键
If i = True Then
Exit Do
End If
Loop
End Sub
End Class
在form1中的变量要定义成公用变量,即Public strNum As String
在form2中引用form1的公用变量,例:str1 = form1.strNum即可。