1.9.1　情景應用1——加法計算器

 視頻講解：光盤\mr\01\lx\加法計算器.exe

 實例位置：光盤\mr\01\qjyy\01

下面制作一個簡單的加法計算器，效果如圖1.50所示，練習常用控件和加法符號“+”的簡單用法。

實現(xiàn)過程如下：

（1）新建一個工程，在窗體上添加3個Label控件、3個TextBox控件和一個CommandButton控件。

（2）設(shè)置3個Label控件的Capiton屬性分別為X、Y、Z。

（3）設(shè)置CommandButton控件的Caption屬性為“計算”。

（4）編寫代碼。

窗體載入時清空文本框中的內(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做加法計算，結(jié)果顯示在Text3中，代碼如下：

Private Sub Command1_Click()

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

End Sub

& 說明：前面我們說TextBox控件是一個既能顯示又能編輯文本的對象，因而它顯示的內(nèi)容都是字符型的，而上述代碼涉及了加法計算，所以就使用了Val（）函數(shù)將TextBox文本框中的內(nèi)容轉(zhuǎn)換為數(shù)值型，以方便計算。

DIY：制作小學生加法口算題卡。提示：在上面程序的基礎(chǔ)上完善界面，建議使用PS制作圖片框作為背景，另外，如果能使用隨機函數(shù)Rnd實現(xiàn)隨機出題，效果會更好。（15分）（實例位置：光盤\mr\01\qjyy\01_diy）

1.9.2　情景應用2——動起來的TextBox控件

 視頻講解：光盤\mr\01\lx\動起來的TextBox控件.exe

 實例位置：光盤\mr\01\qjyy\02

練習使用TextBox控件，熟悉其常用屬性Left，并通過該屬性讓TextBox控件動起來。實現(xiàn)過程為：新建一個工程，在窗體上添加一個CommandButton控件和兩個TextBox控件，編程實現(xiàn)每單擊一次CommandButton控件，兩個TextBox控件向右移動一段距離，程序代碼如下：

Option Explicit

Private Sub Command1_Click()

  Text1.Left = Text1.Left + 50 '設(shè)置Text1距窗體左邊的距離加50

  Text2.Left = Text2.Left + 100 '設(shè)置Text2距窗體左邊的距離加100

End Sub

DIY：使用Timer和Label控件實現(xiàn)滾動字幕。在工具箱中找到Timer控件和Label控件，添加到窗體上，設(shè)置Timer控件的Interval屬性值為100，然后在Timer事件過程中編寫類似于上述實例的代碼。相關(guān)技術(shù)可查閱MSDN或后面的章節(jié)。（15分）（實例位置：光盤\mr\01\qjyy\02_diy）

U 注意：如果不進行判斷，滾動字幕會一直向右移動，這個問題等學完第3堂課再來解決。