vb多窗体

Sub b()

Dim i As Integer

Dim a(0 To 19) As New Form1

For i = 0 To UBound(a)

a(i)Show

Next i

End Sub

当然可以,一般可以直接引用

如A窗口内有TextBox名为AAA

则B窗口可以用AAAAText来引用其上的内容

如果是变量,则要定义为PUBLIC,这样就可引用

一般为了方便且安全,最好用类来集中变量,并在全局内引用类来达到共用变量

二、多窗体程序设计

当应用程序功能较强和分类较多，程序和用户的交互频繁时，如果只用一个窗体和用户进行交互，一方面难以进行合乎美观原则的设计，另一方面分类工作很难，设计出来的界面不符合友好原则。这时使用多重窗体程序设计，增强程序界面的友好性。

多窗体指的应用中有多个窗体，它们之间没有绝对的从属关系。每个窗体的界面设计与单窗体的完全一样，只是在设计之前应先建立窗体，这可以通过菜单“工程”/“添加窗体”命令实现。程序代码是针对每个窗体编写的，当然，应注意窗体之间存在的先后顺序和相互调用的关系。所以，多重窗体实际上是单一窗体的集合，而单一窗体是多重窗体程序设计的基础。

一般说来，多窗体的设计基本分成以下几个步骤：

◆分析应用要求，将其功能划分为不同的几部分

◆分别创建各个窗体、模块

◆在创建窗体时，除各窗体自身要完成的功能外，还要考虑窗体之间的调用关系

◆点击[工程]/[属性]菜单，在[启动对象]中选择应用运行时首先执行的对象

◆运行应用程序，检验应用及各窗体的运行情况

1、多窗体程序设计常用的方法

在单窗体程序设计中，所有的 *** 作都在一个窗体中完成，不需要在多个窗体中切换。而在多窗体程序中，需要打开、关闭、隐藏或显示指定的窗体，这可以通过相应的语句和方法来实现。

在多窗体程序设计经常用到下面四种方法：Load,Show Hide和Unload

（1）Load方法

它的语法结构如下：

Load [窗体名称]

使用Load方法调用的窗体被存入内存，并不显示出来，同时会产生一个Form_Load()事件。

例如：Load Form2 '将Form2窗体存入内存

（2）Show方法

它的语法结构如下：

[窗体名称]Show

Show方法用来显示被调用的窗体。Show方法兼有装入和显示两种功能，也就是说，在执行Show方法时，如果窗体不在内存中，则Show方法会自动的把窗体调入内存，然后再显示出来。

例如： Load Form2

Form2Show '将Form2存于内存，并显示Form2窗体

（3）Hide方法

它的语法结构如下：

[窗体名称]Hide

使用Hide方法会隐藏被调用的窗体，既不在屏幕上显示，但仍在内存中（与Unload方法不同），被调用的窗体中的属性等已经处于无效的状态。

例如：

Form1Hide

Form2Show '将Form隐藏，并显示Form2窗体

（4）Unload方法

它的语法结构如下：

Unload [窗体名称]

使用Unload方法会清除内存中指定的窗体，与此同时，窗体中的变量和属性等都会处于无效的状态，在移去窗体的同时会产生一个Form_QueryUnload()事件。

例如：Form1Show

Unload Form2'显示Form1窗体，从内存中移去Form2窗体。

2、一个多窗体程序设计示例

下面就以一个示例来说明如何运进多窗体的程序设计（见教材P283）。

（1）启动新工程

1）设置属性

首先启动一个新的工程，屏幕出现一个空白的窗体，窗体的属性设置如下：

属性 设置

Name

Form1

Caption

Form1

BorderStyle

3-Fixed Dialog'窗体的大小不能够在程序的运行过程中改变

MDIChild

False

StartUpPosition

2-CenterScreen'窗体在程序的运行过程中始终位于屏幕的中央

Moveable

False'在程序的运行过程中不能够移动窗体

2）添加控件

在空白的窗体上添加如下控件：五个Label控件、四个TextBox控件和两个CommandButton控件。

（2）添加窗体

选择菜单“工程（Project）”/“添加窗体（add form）”命令,d出对话框，在添加窗体的对话框中选择"窗体"项，单击[打开]按钮，系统就会自动的向原有的工程中添加一个窗体。

1）添加控件

在新的窗体上放置一CommandButton控件，作用是在隐藏新增的窗体的同时显示原有的窗体。

则窗体如下：

2）添加代码

在"继续"按钮的Command1_Click()事件中添加下列代码：

Private Sub Command1_Click()

Form2Hide '隐藏窗体2

Form1Show '显示窗体1

End Sub

程序说明：在窗体Form2被显示的过程中，单击[继续]按钮，就会激活Command1_Click()事件，然后通过Form2Hide 和Form2Show两条语句实现隐藏窗体和显示窗体的功能。

（3）添加说明模块

选择菜单[工程]/[添加模块],就会d出对话框：

在模块的声明段中添加下列代码：

Global a1 as Single

Global a2 as Single

Global a3 as Single

Global a3 as Single '定义四个全局变量，分别用来存储第一季度，第二季度、第三季度和第四季度的销售情况

（4）添加程序代码

1）窗体Form1中的代码如下：

Private Sub Command1_Click()

Form1Hide

Form2Show

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Text1_Change()

a1 = Val(Text1Text)　＇VAL()函数用于将字符串转化为数值型

End Sub

Private Sub Text2_Change()

a2 = Val(Text2Text)

End Sub

Private Sub Text3_Change()

a3 = Val(Text3Text)

'添加4个窗体

一个标准模块

'标准模块的代码如下：

sub

main()

dim

a

as

integer

a

=

int(rnd

4

+

1)

if

a

=

1

then

form1show

if

a

=

2

then

form2show

if

a

=

3

then

form3show

if

a

=

4

then

form4show

end

sub

这是一个有趣的问题 我保证某些聪明的编程好手会建议我使用委托 在这种事情发生之前 让我们 先探究一下这个问题的几种解决方案 假定我有两个窗体 每个窗体都有两个 textbox 控件 txt stData 和 txt ndData 我怎样才能保持这两个窗体中的控件同步呢？对于我们讨论的问题来说 有两个或十个窗体都不重要 问题是相同的 第一个办法相对简单 事实上 它甚至比我们直接使用委托更为简单 我想委托有时会给人用牛刀杀鸡的感觉 首先 我建立一个类它包含我希望与应用程序中的所有窗体共享的属性(参见 Figure ) 例如 MyData 和 MoreData 拥有每个窗体都能显示的数据 我将很快回到这个类来 第二 正如我早先提到的我用相同的控件(txt stData 和 txt ndData)建立了两个窗体 你可以参考 Figure 的布局 两个窗体都有完全相同的数据 并且我将很快解释为什么 下面 我建立一个名为 modGeneral 的模块并加入下面一行代码 Friend DataStuff As DataClass 这一行代码为我的新类 DataClass 创建了一个友元变量 使你可以完全访问程序集 对这个简单例子来说 也就是指完整的应用程序 然后我添加了下面的代码到 Form 的 Load 事件 DataStuff = New DataClass Me txt stData DataBindings Add( Text DataStuff MyData ) Me txt ndData DataBindings Add( Text DataStuff MoreData ) 第一行建立一个 DataClass 新实例 下面两行代码将数据绑定到 textbox 控件 对这个窗体而言 就这么些 *** 作！ 现在 你怎样让它们与 Form 和其它窗体上的数据同步呢？将下面两行加入到 Form 的窗体load 事件中去 Me txt stData DataBindings Add( Text DataStuff MyData ) Me txt ndData DataBindings Add( Text DataStuff Moredata ) 这个方法容易确保所有窗体上的几乎任何类型的数据处于同步状态 你可以简单地将控件绑定到某个类的相同实例上 这就行了 现在来看另一个方法 我创建了一个名为 frmBase 的新窗体 这时我在上面放一个 textbox (txtNextData)和 label 我想 让应用程序的每个窗体都共享这个 textbox 和 label 并且我希望它们互相之间保持同步 于是我重建这个工程 通过从新的 frmBase 中的继承 我创建了 Form 和Form 因此它们继承了所有新的控件 但是我怎样能保持这些控件同步呢？这时必须写一点代码去达到此效果 这些代码在单个的类中 通过简单地调用一个函数而被复用 Figure 中的代码展示了这个称为 modGeneral 模块 它的第一个任务是定义两个变量 MyForms 和 localNextData MyForms 是一个 集合 它将包含我想要同步的窗体列表 localNextData变量将储存所有我想要在窗体里显示的数据 注意这些变量可以驻留于某个类中而不是某个模块里 AddForm 过程来自 modGeneral 带一个窗体实例参数 并将其加入 MyForms 集合中 我将在UpdateControlsNextData 过程中使用这个 集合以决定哪些窗体要更新 AddForm 也调用UpdateControlsNextData 来确保一个新窗体是用正确的数据更新的 modGeneral 中的其它代码是 NextData 属性 这些属性的 set 存取器更新 localNextData 并也调用 UpdateControlsNextData 去同步所有窗体 这时所有我需要做的是 在想要改变它时设置 NextData 通过调用 UpdateControlsNextData 所有窗体将被更新 第三个方法是定制链接 它是第二个方法的精华版 我创建它以获得多一些窗体控件处理的灵活性 例如 我只想跟踪和处理某些窗体 这些窗体包含必须同步的控件 这个方法 还可以让我自己定义拟同步的控件 并且只处理这些控件的窗体 我为这个办法添加了另一个模块 (modGeneralv ) 如 Figure 所示 该模块包括一个集合(MyFormsToUpdate) 其中包含所有我想要同步的窗体 这个模块 还有一个新的数组 (ControlsToUpdate) 它提供一个我要同步的控件列表 该数组的定义如下 Private ControlsToUpdate() As String = { txtCustomer txtAddress txtName } 这个模块里有一个新的替代 AddForm 的改良版本 叫做 AddFormToUpdate 该方法工作方式与AddForm 类似 但现在它只添加拥有一个或多 个 ControlsToUpdate 数组中控件的窗体 因此只有那些含有特定控件的窗体在更新集合中 它使我可以从每个窗体中调用该函数 如果我决定以后添加某个特定的控件 它将会被自动添加到窗体列表 我只需对窗体代码做细小的改动便可以实现 这个模块还包含 UpdateControlsOnAllForms 过程 它执行更新 代替上一个方法中使用的一个应用程序级变量 我现在使用主窗体的概念 因此我可以将那个窗体的值拷贝到集合中的所有其它窗体 UpdateControlsOnAllForms 其实就是一组简单的 For Nexts 循环遍历某个窗体的所有控件 找到需要更新的控体 并更新它们 为了在我的窗体中实现这一功能 我在窗体的 Load 事件中加入了这一行代码 AddFormToUpdate(Me) 另外一种可选的方法 我可以将它添加到构造函数 这一行代码将把当前窗体实例添加到集合进行更新 现在让我们考察单个事件过程 Private Sub txt_Leave(ByVal sender As Object _ ByVal e As System EventArgs) Handles txtAddress Leave _ txtCustomer Leave txtName Leave UpdateControlsOnAllForms(Me) End Sub 这段代码将我想要同步的所有三个控件 (txtAddress txtCustomer 和 txtName)的 Leave 事件捆绑到一个事件句柄上 这时我可以添加一行代码 来调用 UpdateControlsOnAllForms Me 被传递到该过程调用 从而导致其它窗体与该窗体同步 现在我有三个版本的代码 它们都可以同步窗体中控件 因此我可以进行选择 我可能已经使用了自定义事件 在 DataClass 中定义某个事件并让每个窗体都预订它 然后当这个事件触发时 这些窗体可以从每个事件句柄中获取新的数据并设置适当的控件 但是这样做所需的代码量一点也不会比第一种方法中将控件绑定到类来得少 我可以构建单个实现更新的过程 并将该过程放到某个模块中 我需要向该过程传递窗体实例来实现更新 我可以用类中的某个事件句柄触发这个过程 此过程看起来就像这样 Sub UpdateControls(ByVal ThisForm As frmBase) With ThisForm txtNextData Text = localNextData End With End Sub ThisForm 参数被定义为 frmBase 类型 以便它可以访问 IntelliSense 并获得窗体的自定义属性 简单地将它写成 Form 将无法显示 frmBase 中的属性及其派生窗体 另一选择是使用委托 当然 委托可以让我将委托调用重定向到每个窗体的方法上 如果我使用多播机制 那么我可以让每个窗体都处理该事件并更新相应的控件 用委托建立这样的功能听起来确实简单 但 对我来说它更麻烦且没有实践价值 此外 与第三个方法中的 For Next 循环嵌套相比 这个代码并不难理解 毕竟 一个应用程序花费最大的部分仍然是它的维护 lishixinzhi/Article/program/net/201311/11593

以上就是关于vb多窗体全部的内容，包括:vb多窗体、VB一个工程里多个窗口里能共用一个数据吗、VB考试教程：多窗体程序设计等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！