1.9.3　情景應(yīng)用3——讓窗體動(dòng)起來

 視頻講解：光盤\mr\01\lx\讓窗體動(dòng)起來.exe

 實(shí)例位置：光盤\mr\01\qjyy\03

編程實(shí)現(xiàn)每單擊一次CommandButton控件，窗體的寬度和高度自動(dòng)增加。實(shí)現(xiàn)過程為：新建一個(gè)工程，在窗體上添加一個(gè)CommandButton控件，程序代碼如下：

Option Explicit

Private Sub Command1_Click()

  Form1.Width = Form1.Width + 50 '設(shè)置窗體的寬度為原來寬度加50

  Form1.Height = Form1.Height + 50 '設(shè)置窗體的高度為原來高度加50

End Sub

DIY：新建一個(gè)工程，在窗體上添加一個(gè)CommandButton控件，編程實(shí)現(xiàn)每單擊一次CommandButton控件，窗體的寬度和高度自動(dòng)減少。（15分）（實(shí)例位置：光盤\mr\01\qjyy\03_diy）

1.9.4　情景應(yīng)用4——編程實(shí)現(xiàn)乘法計(jì)算

 視頻講解：光盤\mr\01\lx\編程實(shí)現(xiàn)乘法計(jì)算.exe

 實(shí)例位置：光盤\mr\01\qjyy\04

下面制作一個(gè)簡(jiǎn)單的乘法計(jì)算器，效果如圖1.51所示。實(shí)現(xiàn)過程為：新建一個(gè)工程，在窗體上添加一個(gè)CommandButton控件和3個(gè)TextBox控件，設(shè)置相應(yīng)屬性后，編寫代碼。

圖1.51  編程實(shí)現(xiàn)乘法計(jì)算

窗體載入時(shí)清空文本框中的內(nèi)容，并設(shè)置顯示結(jié)果的Text3不可用，防止用戶輸入，代碼如下：

Option Explicit

Private Sub Form_Load()

Text1.Text = "" '清空文本框

  Text2.Text = ""

  Text3.Text = ""

  Text3.Enabled = False '設(shè)置Text3不可用

End Sub

將Text1和Text2做乘法計(jì)算，結(jié)果顯示在Text3中，代碼如下：

Private Sub Command1_Click()

  Text3.Text = Val(Text1.Text) * Val(Text2.Text)  'Text1和Text2兩個(gè)文本框中的值相乘的結(jié)果賦值給Text3

End Sub

DIY：新建一個(gè)工程，在窗體上添加一個(gè)CommandButton控件和3個(gè)TextBox控件，編程實(shí)現(xiàn)除法計(jì)算，如25÷5=5，100÷5=20。（20分）（實(shí)例位置：光盤\mr\01\qjyy\04_diy）

 提示：這里要注意除法的符號(hào)，在Visual Basic中，可以按F1鍵調(diào)用MSDN查看除號(hào)的寫法及用法。