vb点虐 公共变量 vb如何定义公共变量

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点虐 如何做到一个子窗体绑定一个数据库

加个模块，定义公共变量2个窗体都可以对数据库进行读写，每次读写之前先刷新一次，保证数据最新就行了。

VB.NET的特点：

1.真正成为面向对象以及支持继承性的语言。

2.窗体设计器支持可视化继承，并且包含了许多新的特性，比如自动改变窗体大小、资源本地化支持、数据类工具内在支持XML数据。

3.直接建立在.NET的框架结构上，因此开发人员可以充分利用所有.NET平台特性，也可以与其他的.NET语言交互。

4.为Windows应用程序提供了XCOPY部署，开发者不再需要为DLL的版本问题担忧。

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点虐 module 里面的 公共变量 ?

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

public module module1

Public i As Integer = 365

end module