VB小程序制作

VB程序设计

实验目的

1）掌握VB多重窗体程序的概念。

2）掌握多重窗体程序的设计方法。

3）复习各种控件的使用方法。

实验内容

采用多窗体技术编写程序，分别在不同的窗体上实现不同功能。

实验步骤

实验步骤如下：

1）建立启动窗体界面与设置对象属性。选择“新建”工程，进入窗体设计器，在窗体中添加命令按钮组Command1（0）~Command1（5），并修改属性如图8-1左所示。系统默认窗体Form1为启动窗体。

2）添加窗体。选择“工程”菜单，打开“添加窗体”对话框。按“打开”按钮，添加3个标准窗体Form2~Form4。添加标准模块。选择“工程”菜单，打开“添加模块”对话框。

按“打开”按钮，添加1个标准模块Module1。

图8-1 程序界面设计

3）建立子窗体界面与设置对象属性。界面如图8-1所示，设置属性如表所示。

表8-1 Form1属性设置

对象属性属性值说明

Form1 Name Form1 启动窗体

Caption Form1

Command1（0）Caption Who are you?

Command1（1）Caption game

Command1（2）Caption writeboard

Command1（3）Caption calculator

Command1（4）Caption byebye

Picture1 autoredraw false

Label1 caption Let's start a wonderful

journey

表8-2 Form2属性设置

对象属性属性值说明

Form2 Name Form2 输入个人资料窗口

Caption Form2

Label11 Caption name

Label12 Caption gender

Label13 Caption Is that a girl?

Fream1 Caption hobbies

command caption okey

Caption

Option1 Caption female

Value True 默认被选中Option2 Caption male

Value True 默认被选中Check1 Caption WoW

Check2 Caption League of Legends

Check3 Caption Dungeon and Fighter

Check4 Caption QQspeed

Check5 Caption films

Check6 Caption movie

表8-3 Form3属性设置

对象属性属性值说明

Form3 Name Form3

Caption Form3

Command1 Caption happiness

Command2 Caption begin

Command3 Caption love

Command4 Caption beauty

Command5 Caption laugh

Label1 caption scroes

Label2 Caption 0

Timer1 interval 500

Timer2 interval 71

表8-4 Form4属性设置

对象属性属性值说明

Form4 Name Form4

Caption Form4

Label caption

Label2 Caption 路漫漫其修远兮

Label3 Caption 吾将上下而求索

TextBox text

Picture1 picture

Caption 返回

表8-5 Form5属性设置

对象属性属性值说明

Form Name Form5

Caption Form5

Command1(0~9) caption 1~9,0

Command1(10) caption .

Command2(0~4) caption +-*/=

Label2 Caption 路漫漫其修远兮

Label3 Caption 吾将上下而求索

TextBox text

表8-6 Form6属性设置

对象属性属性值说明Form4 Name Form6

Caption Form6

Label caption welcome to use this

system again !!

Label2 Caption thank you !

Picture1 picture

Timer1~12 interval 1

Timer13 interval 1000

4）编写代码。

编写“启动”窗体form1（Form1）中代码：

Option Explicit

Dim i As Integer, ur1 As String, N As Integer

Private Sub Command1_Click(Index As Integer)

N = Index

Select Case N

Case 0

Case 1

Case 2

Case 3

Case 5

End Select

End Sub

Private Sub Form_Activate()

= True

End Sub

Private Sub Form_Load()

= - / 2

= - / 2

Picture2 = LoadPicture("C:\Users\LQR\Desktop\VB.\")

= True

, 0, 0, 3000, 3000, , , , , vbSrcCopy

End Sub

Private Sub Timer1_Timer()

On Error GoTo Err

ur1 = "C:\Users\LQR\Desktop\VB.\" & i & ".gif"

= LoadPicture(ur1)

i = i + 1

= True

, 0, 0, 3000, 3000, , , , , vbSrcCopy

Exit Sub

Err:

i = 1

End Sub

编写“输入个人资料”窗体form2（Form2）中的代码：

Private Sub Command1_Click()

If = "" Then

a = InputBox("You forget to input your name？", "Attention!", "Your name！")

If a = "" Or a = "Your name！" Then Exit Sub

= a

Else:

End If

End Sub

Private Sub Form_Load()

= - / 2

= - / 2

Picture1 = LoadPicture("C:\Users\LQR\Desktop\VB.\")

= True

, 0, 0, 3750, 4900, , , , , vbSrcCopy

End Sub

编写“GAME”窗体form3（Form3）中的代码：

Dim a As Integer, i As Integer, ur1 As String

Private Sub Command1_Click()

If = RGB(225, 0, 0) Then

Label2 = Val + 1

End If

End Sub

Private Sub Command2_Click()

= True

End Sub

Private Sub Command3_Click()

If = RGB(225, 0, 0) Then

Label2 = Val + 1

End If

End Sub

Private Sub Command4_Click()

If = RGB(225, 0, 0) Then

Label2 = Val + 1

End If

End Sub

Private Sub Command5_Click()

If = RGB(225, 0, 0) Then

Label2 = Val + 1

End If

End Sub

Private Sub cw_Click()

Label2 = ""

End Sub

Private Sub Timer2_Timer()

On Error GoTo Err

ur1 = "C:\Users\LQR\Desktop\新建文件夹.\" & i & ".jpg"

= LoadPicture(ur1)

i = i + 1

= True

, 0, 0, 12135, 8295, , , , , vbSrcCopy

Exit Sub

Err:

i = 45

End Sub

Private Sub Form_Load()

= - / 2

= - / 2

Picture1 = LoadPicture("C:\Users\LQR\Desktop\新建文件夹.\") = True

, 0, 0, 12135, 8295, , , , , vbSrcCopy

End Sub

Private Sub Timer1_Timer()

Static x As Integer

a = Int(Rnd() * 4)

Select Case a

Case 0

= RGB(225, 0, 0)

= RGB(15, 0, 0)

= RGB(15, 0, 0)

= RGB(15, 0, 0)

Case 1

= RGB(225, 0, 0)

= RGB(15, 0, 0)

= RGB(15, 0, 0)

= RGB(15, 0, 0)

Case 2

= RGB(225, 0, 0)

= RGB(15, 0, 0)

= RGB(15, 0, 0)

= RGB(15, 0, 0)

Case 3

= RGB(225, 0, 0)

= RGB(15, 0, 0)

= RGB(15, 0, 0)

= RGB(15, 0, 0)

End Select

If x < 50 Then

x = x + 1

Else

= False

= RGB(15, 0, 0)

= RGB(15, 0, 0)

= RGB(15, 0, 0)

= RGB(15, 0, 0)

x = 0

End If

End Sub

Private Sub tui_Click()

End Sub

Private Sub wf_Click()

MsgBox "rules：" & Chr(13) & "Hit the different the fixed time, more hits, more scores！！", vbOKOnly, "Rule"

End Sub

编写“writeboard”窗体form4（Form4）中的代码：

Private Sub N_Click()

= ""

End Sub

Private Sub O_Click()

= "所有文件（*.*）|*.*|文本文件（*.TXT）|*.txt"

= 1

=

End Sub

Private Sub S_Click()

=

End Sub

Private Sub T_Click()

End Sub

Private Sub Text1_Change()

=

End Sub

Private Sub Y_Click()

=

Private Sub Z_Click()

= 3 Or 256

With Text1

.FontName =

.FontSize =

.FontStrikethru =

.FontBold =

.FontItalic =

.FontUnderline =

.ForeColor =

End With

End Sub

Private Sub Form_Load()

= - / 2

= - / 2

Picture1 = LoadPicture("C:\Users\LQR\Desktop\VB.\")

= True

, 0, 0, 1500, 2500, , , , , vbSrcCopy

End Sub

编写“calculator”窗体form5（Form5）中的代码：

Dim v As Boolean

Dim S As Integer

Dim x As Double

Dim Y As Double

Private Sub Command1_Click(Index As Integer)

If = "T" Then

If Index = 10 Then

= "0"

Else

= Command1(Index).Caption

End If

= ""

Else

= & Command1(Index).Caption

End If

End Sub

Private Sub Command2_Click(Index As Integer)

= "T"

If v Then

v = Not v

Else

Y = Val

Select Case S

Case 0

= x + Y

Case 1

= x - Y

Case 2

= x * Y

Case 3

If Y <> 0 Then

= x / Y

Else

MsgBox "傻了？不能以0为除数啊！", vbOKOnly, "提示"

= x

v = False

End If

Case 4

Y = 0

v = False

End Select

x = Val

End If

S = Index

End Sub

Private Sub Form_Load()

= - / 2

= - / 2

End Sub

Private Sub tui_Click()

End Sub

Private Sub xin_Click()

= ""

End Sub

编写结束窗体form6（Form6）中的代码：

Option Explicit

Dim x As Integer, Y As Integer, a As Integer, m As Long, N As Long

Private Sub Form_Activate()

= True

= True

= True

= True

= True

= True

End Sub

Private Sub Form_Load()

= - / 2

= - / 2

Picture1 = LoadPicture("C:\Users\LQR\Desktop\VB.\") = True

, 0, 0, 2250, 2250, , , , , vbSrcCopy

Picture2 = LoadPicture("C:\Users\LQR\Desktop\VB.\") = True

, 0, 0, 2250, 2250, , , , , vbSrcCopy

Picture3 = LoadPicture("C:\Users\LQR\Desktop\VB.\") = True

, 0, 0, 2250, 2250, , , , , vbSrcCopy

End Sub

Private Sub Timer1_Timer()

If + >= Then

= True

= False

Else

= + 50

End If

End Sub

Private Sub Timer2_Timer()

If <= 0 Then

= True

= False

Else

= - 50

End If

End Sub

Private Sub Timer3_Timer() If + > 6700 Then

= True

= False

Else

= + 50

End If

End Sub

Private Sub Timer4_Timer() If < 0 Then

= True

= False

Else

= - 50

End If

End Sub

Private Sub Timer5_Timer() If + >= Then

= True

= False

Else

= + 50

End If

End Sub

Private Sub Timer6_Timer() If <= 0 Then

= True

= False

Else

= - 50

End If

End Sub

Private Sub Timer7_Timer() If + > 6700 Then

= True

= False

Else

= + 50

End If

End Sub

Private Sub Timer8_Timer() If < 0 Then

= True

= False

Else

= - 50

End If

End Sub

Private Sub Timer9_Timer() If + >= Then

= True

= False

Else

= + 50

End If

End Sub

Private Sub Timer10_Timer() If <= 0 Then

= True

= False

Else

= - 50

End If

End Sub

Private Sub Timer11_Timer() If + > 6700 Then

= True

= False

Else

= + 50

End If

End Sub

Private Sub Timer12_Timer() If < 0 Then

= True

= False

Else

= - 50

End If

End Sub

Private Sub Timer13_Timer()

If a < 11 Then

a = a + 1

Else

End

End If

End Sub

5）运行窗体。启动程序后，屏幕出现启动窗体，单击按钮，显示相应窗体，可以执行相应的命令，如图10-2所示。

图10-2 多重窗体程序