3.7 程序举例

3.7 程序举例

[ 例 3.6] 设计程序，在窗体上设置 3 个命令按钮，如图 3.13 所示。程序进入运行状态后，当单击“窗体变大”命令按钮时，窗体变大；当单击“窗体变小”按钮时，窗体变小；单击“退出”按钮时，退出。

（ 1 ）创建应用程序用户界面和设置对象属性。如图 3.13 所示。

图 3.13 例 3.6 的设计界面

（ 2 ）编写事件过程代码如下：

Private Sub Form_Load()

Form1.Height = 4000

Form1.Width = 4000

Form1.Top = 1000

Form1.Left = 1000

End Sub

Private Sub Command1_Click()

Form1.Height = Form1.Height + 200

Form1.Width = Form1.Width + 200

End Sub

Private Sub Command2_Click()

Form1.Height = Form1.Height - 200

Form1.Width = Form1.Width - 200

End Sub

Private Sub Command3_Click()

End

End Sub

[ 例 3.7] 在窗体上创建 3 个文本框，如图 3.14 所示。程序运行后，在第一个文本框中输入文字时，在另外两个文本框中显示相同的内容，但显示的字号和字体不同。单击“清除”按钮时，清除 3 个文本框中的内容。

（ 1 ）创建应用程序用户界面和设置对象属性。如图 3.14 所示。

图 3.14 显示不同的文字效果

（ 2 ）编写事件代码过程如下：

Private Sub Form_Load()

Text2.FontName = " 隶书 "

Text2.FontSize = 16

Text3.FontName = " 楷体 _GB2312"

Text3.FontSize = 20

End Sub

Private Sub Text1_Change()

Text2.Text = Text1.Text

Text3.Text = Text1.Text

End Sub

Private Sub Command1_Click()

Text1.Text = ""

Text1.Text = ""

Text1.Text = ""

Text1.SetFocus

End Sub

Private Sub Command2_Click()

End

End Sub

[ 例 3.8] 设计程序，实现标签的显示和隐藏，并改变文字的颜色。

（ 1 ）创建应用程序用户界面和设置对象属性。如图 3.15 所示。

图 3.15 例 3.8 的设计界面

（ 2 ）编写事件过程如下：

Private Sub Form_Load()

Randomize

Label1.BackColor = QBColor(15)

Label1.ForeColor = QBColor(0)

Label1.FontSize = 18

End Sub

Private Sub Command1_Click()

clr = Int(15 * Rnd)

Label1.ForeColor = QBColor(clr)

End Sub

Private Sub Command2_Click()

Label1.Visible = False

End Sub

Private Sub Command3_Click()

Label1.Visible = True

End Sub