程式設計 Visual Basic簡介 週次：4 建國技術學院 資管系 饒瑞佶 2003年10月18日
儲存專案 .vbp：專案檔，儲存與專案相關的資訊 .frm：表單檔，儲存與表單相關的資訊（包含程式碼） .scc：程式碼管理檔案 .vbw：記錄VB 工作環境中表單視窗或程式視窗最後的位置及 大小。刪除此一檔案對專案並沒有任何影響
開啟專案 可以在專案檔上使用滑鼠左鍵快按兩下或 由VB的環境中選擇檔案開啟舊檔
製作EXE檔案 由VB的環境中選擇檔案製成 XXX.EXE 可攜性依程式的複雜度而定
副程式 將可以重複使用的程式區塊獨立而成 寫在Private Sub 函數名稱() 副程式碼 End Sub 呼叫副程式 可以使用call或直接使用副程式的姓名 課本p.5-56, ch5_15
函數 內定函數，如Time, date, cls, line 自訂函數 寫在 Function 函數名稱() 程式碼 函數名稱=傳回值 End Function 可以有傳回值 直接使用其函數名接上參數就可以使用
偵測鍵盤按鍵 使用 KeyPress 事件，並由KeyAscii 參數接收哪一個按鍵被按下 物件_KeyPress（KeyAscii As Integer） ch=Chr (KeyAscii) 將KeyAscii轉成字元 Keyascii=Asc (ch) 將ch轉成ASCII碼 範例CH5_1, p.5-3
範例CH5_1, p.5-3 ' ----------------------------------------------- ' 物件名稱：Form 事件名稱：KeyPress - ' 只要有按鍵發生即產生此事件，若是按q或Q鍵則程 - ' 式執行結束 - Private Sub Form_KeyPress(KeyAscii As Integer) ch = Chr(KeyAscii) If ch = "q" Or ch = "Q" Then ' 檢查是否按q或Q End ' 若是則程式結束 End If End Sub
DblClick 表示連續按下兩次滑鼠鍵所觸發的事件 配合範例ch5_1加入DblClick事件CLS
Paint事件 視窗大小改變時 (也會有ReSize事件) 視窗部分內容被遮住時 範例ch5_3 Private Sub Form_Paint() Cls For i = 1 To num Print "歡迎使用Visual Basic 6" Next i End Sub 只要把AutoRedraw屬性設定為True就可以
繪圖 使用line函式 Line (起始x,起始y) - (終點x,終點y) VB座標原點與繪圖單位Twip 1吋＝72 Pixel
偵測滑鼠按鍵 MouseDown與MouseUP中的Button屬性 滑鼠按鍵 Button數值 左 1 中 2 右 4
範例CH5_6, p.5-20 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If (Button = 1) Then ' 按滑鼠左邊鍵 xpt(num) = X ' 記住滑鼠位置 ypt(num) = Y PSet (X, Y) ' 在滑鼠位置繪點 num = num + 1 End If If (Button = 2) Then ' 按滑鼠右邊鍵 For i = 0 To num - 2 ' 將各點連線 For j = i + 1 To num - 1 Line (xpt(i), ypt(i))-(xpt(j), ypt(j)) Next j Next i End Sub
偵測滑鼠移動 滑鼠按鍵 Button數值 左 1 中 2 右 4 Shift 數值 1 Ctrl 2 alt 4 MouseMove的Button與Shift屬性 (ch5_8 & DrawWidth) 滑鼠按鍵 Button數值 左 1 中 2 右 4 Shift 數值 1 Ctrl 2 alt 4
輸入輸出資料對話框 輸入使用內定函數 InputBox InputBox 提示訊息,[標題],[輸入預設值],[xpos,ypos] 輸出使用MsgBox MsgBox 回應訊息,視窗類型,標題 視窗類型如p.5-49
表單視窗屬性 表單視窗屬性