SSTab1.TabCaption(2) = "乘法"

SSTab1.TabCaption(3) = "除法"

'设置控件的显示文本

If Text1.Text = "" Then

Text1.Text = "0.00000"

End If

'初始化文本框

If Text2.Text = "" Then

Text2.Text = "0.00000"

End If

'初始化文本框

End Sub

 

Private Sub Text2_Change()

If Text2.Text = 0 Then

ToggleButton4.Enabled = False

Else

ToggleButton4.Enabled = True

End If

'如果文本框2中的数字为0

'那么除法无效

End Sub

 

Private Sub ToggleButton1_Click()

Label4.Caption = Val(Text1.Text) + Val(Text2.Text)

'加法操作

End Sub

 

Private Sub ToggleButton2_Click()

Label4.Caption = Val(Text1.Text) - Val(Text2.Text)

'减法操作

End Sub

 

Private Sub ToggleButton3_Click()

Label4.Caption = Val(Text1.Text) * Val(Text2.Text)

'乘法操作

End Sub

 

Private Sub ToggleButton4_Click()

Label4.Caption = Val(Text1.Text) / Val(Text2.Text)

'除法操作

End Sub

 

Private Sub UpDown1_DownClick()

If Text1.Text > 0 Then

Text1.Text = Text1.Text - 1

End If

'单击向下的箭头，数字减1

End Sub

 

Private Sub UpDown1_UpClick()

If Text1.Text = "" Then

Text1.Text = 0

End If

Text1.Text = Text1.Text + 1

'单击向上的箭头，数字加1

End Sub

 

Private Sub UpDown2_DownClick()

If Text2.Text > 0 Then

Text2.Text = Text2.Text - 1

End If

'单击向下的箭头，数字减1

End Sub

 

Private Sub UpDown2_UpClick()

If Text2.Text = "" Then

Text2.Text = 0

End If

Text2.Text = Text2.Text + 1

'单击向上的箭头，数字加1

End Sub

4.2  多重窗体设计

一个大的应用程序往往不会只包括一个窗体，否则程序就显得有一些单薄，而多窗体程序设计可以使程序变的丰富多彩，在多重窗体中每个单独的窗体都有自己的特点与功能，所以程序的功能会更加强大。

4.2.1  多重窗体设计常用方法

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

1．Load方法

它的语法结构如下：

Load [窗体名称]

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

Load Form2

2．Show方法

它的语法结构如下：

[窗体名称].Show

使用Show方法会显示被调用的窗体，如果在调用Show方法之前没有把窗体调入内存，那么调用Show方法会自动的把窗体调入内存。如：

Load Form2

Form2.Show

3．Hide方法

它的语法结构如下：

[窗体名称].Hide

使用Hide方法会隐藏被调用的窗体，但是在调用Hide方法之后不会把窗体移出内存，但是被调用的窗体中的属性等已经处于无效的状态。如：

Form1.Hide

Form2.Show

4．Unload方法

它的语法结构如下：

Unload [窗体名称]

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

Form1.Show

Unload Form2

4.2.2  多重窗体设计实例

下面就以一个示例来说明如何进行多重窗体的程序设计，具体的设计步骤如下：

1．启动新项目

首先启动一个新的项目，在屏幕上就会出现一个空白的窗体，窗体的属性设置如表4-2所示。

表4-2  窗体的属性设置

                                                                             续  表 

这样设置的窗体有以下特性：

n          窗体在程序的运行过程中始终位于屏幕的中央；

n          窗体的大小不能够在程序的运行过程中改变；

n          在程序的运行过程中不能够移动窗体。

2．添加控件

在空白的窗体上添加窗体如下控件：五个Label控件、四个TextBox控件和两个CommandButton控件。添加控件后的窗体如图4-6所示。

图4-7  添加控件后的窗体

技巧：

@        添加上述几类常用控件的方法非常简单，只需要在“工具箱”上双击需要的控件即可。

其中控件的属性设置如表4-3所示。