VB考试教程:多窗体程序设计

VB考试教程:多窗体程序设计,第1张

二、多窗体程序设计

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

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

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

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

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

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

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

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

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

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

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

(1)Load方法

它的语法结构如下:

Load [窗体名称]

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

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

(2)Show方法

它的语法结构如下:

[窗体名称].Show

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

例如: Load Form2

Form2.Show '将Form2存于内存,并显示Form2窗体

(3)Hide方法

它的语法结构如下:

[窗体名称].Hide

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

例如:

Form1.Hide

Form2.Show '将Form隐藏,并显示Form2窗体

(4)Unload方法

它的语法结构如下:

Unload [窗体名称]

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

例如:Form1.Show

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()

Form2.Hide '隐藏窗体2

Form1.Show '显示窗体1

End Sub

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

(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()

 Form1.Hide

 Form2.Show

End Sub

Private Sub Command2_Click()

 End

End Sub

Private Sub Text1_Change()

 a1 = Val(Text1.Text) 'VAL()函数用于将字符串转化为数值型

End Sub

Private Sub Text2_Change()

 a2 = Val(Text2.Text)

End Sub

Private Sub Text3_Change()

 a3 = Val(Text3.Text)

首先添加一个窗体,在这个窗体上加一个文本框的控件,在掘闹这个文本框的单击事吵族件中写如下的程序:

Dim num, sum, it(1), n, t, h

Private Sub Form_Click()

File1.Refresh

sum = 0

List1.Clear

For i = 0 To File1.ListCount - 1

t = Split(File1.List(i), ".")(UBound(Split(File1.List(i), ".")))

If LCase(t) = LCase("jpg") Or LCase(t) = LCase("bmp") Or LCase(t) = LCase("gif"升散弊) Then List1.AddItem File1.List(i): sum = sum + 1

Next

h = Rnds(sum)

Print h

Image1.Picture = LoadPicture(List1.List(h))

End Sub

Private Sub Form_Load()

File1.Visible = 0

List1.Visible = 0

num = -1

End Sub

Function Rnds(ByVal Value)

re:

DoEvents

Randomize

n = Fix(Rnd * Value)

If num = 1 Then num = -1

num = num + 1

it(num) = n

If it(0) = it(1) Then GoTo re

Rnds = n

End Function

'添加image1、file1、list1控件各一个


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/yw/12560404.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-26
下一篇 2023-05-26

发表评论

登录后才能评论

评论列表(0条)

保存