【文章內容簡介】 　里面運算的部分我用了一個過程，是因為在按下等號時還會調用到運算過程，這樣可以減少代碼的輸入，也使程序便于瀏覽。建立過程（Procedure），可以在General部分直接輸入，也可以通過菜單里的“Add Procedure”添加。Run的代碼如下：Sub Run()Num1 = Val(StrNum2)Num2 = Val(StrNum1)Select Case RunsignCase 1’加equal = Num1 + Num2Case 2’減equal = Num1 Num2Case 3’乘equal = Num1 * Num2Case 4’除equal = Num1 / Num2End SelectStrNum2 = Str(equal)StrNum1 = StrNum2 = StrNum2End Sub 下面是其余的代碼：（在Command1_Click事件里，接著寫) Case 11If Not SignFlag Then = StrNum1equal = Val(StrNum1)FirstNum = TruePointFlag = FalseElseCall RunSignFlag = FalseEnd IfCase Else’清除按鈕Call ClearData里面又用到了一個ClearData過程，實際上就是Form_Load里的變量初賦值，代碼如下：Sub ClearData()Num1 = 0Num2 = 0StrNum1 = StrNum2 = FirstNum = TruePointFlag = FalseRunsign = 0SignFlag = False = 0.End Sub這樣完整的程序就完成了，本章介紹了VB的第一個控件――按鈕，并且舉例，希望你繼續(xù)看下一章――菜單。 下面給出完整的程序代碼： Dim Num1, Num2 As SingleDim StrNum1, StrNum2 As StringDim FirstNum As Boolean 39。判斷是否是數字開頭Dim PointFlag As Boolean 39。判斷是否已有小數點Dim Runsign As Integer 39。儲存運算符號Dim SignFlag As Boolean 39。判斷是否已有運算符號　Sub ClearData()Num1 = 0Num2 = 0StrNum1 = StrNum2 = FirstNum = TruePointFlag = FalseRunsign = 0SignFlag = False = 0.End Sub　Sub Run()Num1 = Val(StrNum2)Num2 = Val(StrNum1)Select Case RunsignCase 1equal = Num1 + Num2Case 2equal = Num1 Num2Case 3equal = Num1 * Num2Case 4equal = Num1 / Num2End SelectStrNum2 = Str(equal)StrNum1 = StrNum2 = StrNum2End Sub　Private Sub about_Click()MsgBox Create by 周曉陽。1998/7/27, vbDefaultButton1, VB教程第四章范例End Sub　Private Sub Command1_Click(Index As Integer)Select Case IndexCase 0 To 9If FirstNum ThenStrNum1 = Str(Index)FirstNum = FalseElseStrNum1 = StrNum1 + Str(Index)End If = StrNum1Case 10If Not PointFlag ThenIf FirstNum ThenStrNum1 = 0.FirstNum = FalseElseStrNum1 = StrNum1 + .End IfElseExit SubEnd IfPointFlag = True = StrNum1Case 12 To 15FirstNum = TruePointFlag = False39。還原標記值If SignFlag ThenCall RunElseSignFlag = TrueStrNum2 = StrNum1StrNum1 = End IfRunsign = Index 11Case 11If Not SignFlag Then = StrNum1equal = Val(StrNum1)FirstNum = TruePointFlag = FalseElseCall RunSignFlag = FalseEnd If　Case ElseCall ClearData　End SelectEnd Sub　Private Sub Form_Load()Call ClearDataEnd Sub 補充說明 按鈕還有兩個重要的屬性Default（默認屬性）和Cancel（取消屬性），兩個屬性都以布爾賦值，把Default設為True，則在按下回車鍵時，不論焦點處于何處，都會觸發(fā)該按鈕的Click事件，而當Cancel屬性被設為True，在按下ESC鍵時，該按鈕的Click屬性發(fā)生。下面舉個例子： 建立一個新窗體和兩個按鈕，Name屬性分別為cmdOK和cmdCancel，把前者的Default設為True，后者的Cancel設為True，Caption屬性分別為OK和Cancel。如圖4－8。填寫代碼后運行：Private Sub cmdCancel_Click()MsgBox Cancel按鈕被按下, vbDefaultButton1, 提示End Sub　Private Sub cmdOK_Click()MsgBox OK按鈕被按下, vbDefaultButton1, 提示End Sub結果如圖4－4－10：快捷鍵大家一定都知道，在VB如何實現呢。其實很簡單，在剛才的例子里在建立一個按鈕Command1，把它的Caption屬性設為Click amp。ME，如圖4－11，在M的下面有一條下劃線，運行程序，當你按下Alt+M的時候就觸發(fā)了Command1_Click事件：Private Sub Command1_Click()MsgBox Click ME 按鈕被按下, vbDefaultButton1, 提示End Sub據我所知，有許多用戶有使用快捷鍵的習慣，注意細節(jié)上的問題能夠使將來你的程序得到更多人的欣賞，不是嗎？ 5第五章　菜單　　我們經常在Windows操作里遇到各種各樣的菜單，菜單的操作把各種命令結構化、分分類化，也節(jié)省了命令所占的空間，從作用上來講，菜單類似于按鈕，但它只有一個事件――Click?！　B作為Windows下的可視編程工具，菜單的設計當然很容易實現，+M，+E，便可呼叫出菜設計的窗口，無論VB的版本，這個窗口的樣式是大同小異的，請見圖5－1?！　∏懊嬲f過，菜單相當于簡單的按鈕，它有幾個屬性，其中的大部分我們都曾經見過，包括Name、Caption、Index、Checked、Enabled、Visible、快捷鍵和熱鍵等等。其中Name是必須的。下面請跟我一起設計第一個菜單?！　∈紫仍贑aption添入“文件”，Name為“mnuFile”，按下Next按鈕，這樣就建立了第一級菜單，注意菜單設計窗口的左中有四個箭頭，按下向右的箭頭，出現了一排小點，如圖5－2，在VB里這叫縮排，這樣就可以開始建立第二級菜單。小知識：實際上我們在生活就中經常用到縮排，寫文章時開頭要空兩格就是一種縮排，在編寫程序時更需要縮排，這樣使程序結構化，便于觀察，當然菜單設計里的縮排有更多的用處。接著填寫下一菜單項，Caption為“新文件”，Name為“mnuFileNew”，按下Next鍵。小知識：VB一共如許建立6級子菜單，如圖5－3，盡量不要建立這樣的菜單，要知道藏在越深處的菜單項越難以被人發(fā)現，一個友好的程序界面應該讓用戶馬上找到需要的命令。接著重復以上步驟，創(chuàng)建以下三個菜單項：Caption 保存Name mnuFileSaveLevel 1 Caption 另存為Name mnuFileSaveAsLevel 1 Caption 載入Name mnuFileLoadLevel 1 　　我們在菜單里還經?？吹桨巡煌椃珠_的分隔條，在VB里也很容易做到，把Caption設為“”（減號），Name為mnuBar1。最后增加這個菜單條的最后一項，Caption為“退出”，Name為mnuFileExit?，F在可以退出菜單設計窗口，菜單如圖5－4?！　≡趺礃?，經過幾章的學習，是不是覺得Windows世界也不是那么神秘？也對，也不對。的確，我們很輕易的實現了這么多的功能，但如果你仔細想想，我們的程序還什么也不會做呢！可以說是徒有其表，要實現強大的功能，恐怕要學很長很長時間，而現在僅僅是個開頭，并不是想入非非的時候，我們還要繼續(xù)努力！　　現在再次按下Ctrl+E，重回菜單設計窗口，接著添加菜單。（按下向左的箭頭，可以使菜單上升一級，Level代表菜單的級別），根據下表添加新的菜單項：Caption 編輯Name mnuEditLevel 0 Caption 剪切Name mnuEditCutLevel 1ShortCut Ctrl+X Caption 復制Name mnuEditCopyLevel 1ShortCut Ctrl+C Caption 粘貼Name mnuEditPasteLevel 1ShortCut Ctrl+V Caption 關于Name mnuAboutLevel 0 　　　其中ShortCut就是平常我們說的熱鍵，你可以在菜單設計窗口中找到，設置一個你需要的組合鍵，這樣不論窗口的焦點處于何處，菜單在第幾層，只要按下熱鍵，就相當于調用了該項的Click事件。結果如圖5－5?！　腤in95以來程序里引入了鼠標右鍵功能，使鼠標有了更大的用處，在VB里我們也很容易實現?！　〈蜷_Form_MouseDown事件，該事件有兩個參數：Button，當按下左鍵時Button返回1，當按下右鍵時Button返回2，；Shift，是指在點擊鼠標時按下的鍵盤鍵，如Shift、Ctrl、Alt，這些我們將在以后討論，但很難避免在一章中不涉及到不該涉及的內容，學習時有個大概的理解即可。下面在該事件里添加代碼（效果如圖5－6）：Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenPopupMenu mnuEdit, vbPopupMenuLeftAlignElseExit SubEnd IfEnd Sub在上面的代碼中我們用到了PopupMenu方法，它的語法是： 菜單名，標記，X坐標，Y坐標標記是用來表明彈出菜單位于鼠標指針位置的，它有三個值：vbPopupMenuLeftAlign 位于鼠標左 vbPopupMenuRightAlign 位于鼠標右 VbPopupMenuCenterAlign 位于鼠標中部 　X、Y值可以用來制定菜單彈出的位置，可以省略。關于菜單的Visible、Enabled等屬性請自己嘗試。 61第六章　輸入（一）　　我們?yōu)槭裁匆O計計算機程序呢，當然是為了計算機能為我們完成工作，但是要完成不同的任務，我們就必須對計算機下達命令，然后計算機在把信息返饋回來――任務是否完成。以上就是所謂的人機對話或交互功能，尤其是在Windows操作里我們需要進行更多的輸入工作，我們需要填寫各種各樣的表格，設置程序的重要參數，把數據輸入給計算機，再又它完成既定的工作就是今天我們本章要重點討論的問題――在VB中如何建立完整的輸入機制。　　在VB中提供了一個函數InputBox能幫助我們建立一個最簡單的輸入窗體，語法如下：InputBox（prompt[,title][,default][,xpos][,ypos][,helpfile,context]）該函數返回一個字符串表達式，其參數含義為：（“[]”表示可缺?。﹑rompt――字符串表達式，最大長度為1024字符，窗體上的提示部分。Title――字符串表達式，顯示標題欄里的文本。Default――字符串表達式，窗體中文本框的缺省值。xpos，ypos――數值表達式，以Twips為單位指定窗體出現在屏幕上的位置。helpfile――字符串表達式，是幫助文件的完整路徑。Context――數值表達式，指定適合的幫助主題。可能你看了上面的說明并不明白，那么下面我們就用Input語句完成一個最簡單的程序?！⌒≈R：屏幕坐標在計算機的屏幕上也有一個類似于我們在中學里常用到的直角坐標系，之不過它的原點不在左下，而是在屏幕的右上角，屏幕的最右上方坐標為（0，0），它的橫坐標和我們的習慣是一致的，而縱坐標則是越向下越大，不僅是屏幕，所有的對象里都是一樣，需要記清。見圖6－1　　新建一個項目（project），在Form_load里填寫一行代碼