●基礎2-計算機表單設計

圖二

圖一

根據上圖一說明各物件name屬性：這些屬性可自己定義

數字按鈕1：Num_Button1

數字按鈕2：Num_Button2

‧‧‧

數字按鈕9：Num_Button9

數字按鈕0：Num_Button0

加法按鈕：add_btn

減法按鈕：sub_btn

乘法按鈕：mul_btn

除法按鈕：div_btn

清除按鈕：clear_btn

等號按鈕：equ_btn

square根號按鈕：square_btn

N階層按鈕：norder_btn

Hex按鈕：Hex_btn

Binary按鈕：Binary_btn

文字方塊：Display_Text

以下是部分代碼：

Private Sub Num_Button8_Click()

If (mode = 0) Then Num1 = Num1 + "8"

Display_Text = Num1 Else Num2 = Num2 + "8"

Display_Text = Num2

End IfEnd Sub

Private Sub Num_Button9_Click()

If (mode = 0) Then Num1 = Num1 + "9"

Display_Text = Num1 Else Num2 = Num2 + "9"

Display_Text = Num2

End IfEnd Sub

Private Sub square_btn_Click()

Display_Text = Str(Sqr(Val(Display_Text.Text)))

End Sub

Private Sub sub_btn_Click()

Display_Text = ""

mode = 2

End Sub

Private Sub UserForm_Initialize()

mode = 0

End Sub

我們依照上一篇ㄉ作法在EXCEL開啟時能夠馬上秀出這個計算機表單。實際作法由於我只列出部分程式碼，所以若有興趣您就下載去看看。我們在未來所用範例都是依照Office 2007，若您使用Office 2003，請自行修改成2003的格式。但是這個code，我故意留下N階層及Binary沒作，就留給大家發揮一下。完成畫面如圖二。