vb点虐 公用变量 vba 公共变量 窗体调用

vb点虐 module 里面的 公共变量 ?

您仅仅声明了一个变量，变量在未被赋值时，它指向一个空的地址，所以，它没有被实例化。您给它赋一个值，它就指向您定义的值，就行了。

成都创新互联专注于邯山企业网站建设,自适应网站建设,商城网站定制开发。邯山网站建设公司,为邯山等地区提供建站服务。全流程按需策划设计，专业设计，全程项目跟踪，成都创新互联专业和态度为您提供的服务

public module module1

Public i As Integer = 365

end module

vb点虐  怎么实现多个控件共同使用一个变量

把变量定义时增加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

'保存历史记录的文件名

......

VB点虐 里的公共变量操作语句为什么不执行？

试试下面的：

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

vb点虐 中变量的引用

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

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