程式設計 Visual Basic簡介 週次：4 建國技術學院 資管系 饒瑞佶 2003年10月18日.

Presentation on theme: "程式設計 Visual Basic簡介 週次：4 建國技術學院 資管系 饒瑞佶 2003年10月18日."— Presentation transcript:

1 程式設計 Visual Basic簡介 週次：4 建國技術學院 資管系 饒瑞佶 2003年10月18日

2 儲存專案 .vbp：專案檔，儲存與專案相關的資訊 .frm：表單檔，儲存與表單相關的資訊（包含程式碼） .scc：程式碼管理檔案
.vbw：記錄VB 工作環境中表單視窗或程式視窗最後的位置及 大小。刪除此一檔案對專案並沒有任何影響

3 開啟專案 可以在專案檔上使用滑鼠左鍵快按兩下或 由VB的環境中選擇檔案開啟舊檔

4 製作EXE檔案 由VB的環境中選擇檔案製成 XXX.EXE 可攜性依程式的複雜度而定

5 副程式 將可以重複使用的程式區塊獨立而成 寫在Private Sub 函數名稱() 副程式碼 End Sub 呼叫副程式
可以使用call或直接使用副程式的姓名 課本p.5-56, ch5_15

6 函數 內定函數，如Time, date, cls, line 自訂函數 寫在 Function 函數名稱() 程式碼 函數名稱=傳回值
End Function 可以有傳回值 直接使用其函數名接上參數就可以使用

7 偵測鍵盤按鍵 使用 KeyPress 事件，並由KeyAscii 參數接收哪一個按鍵被按下
物件_KeyPress（KeyAscii As Integer） ch=Chr (KeyAscii) 將KeyAscii轉成字元 Keyascii=Asc (ch) 將ch轉成ASCII碼 範例CH5_1, p.5-3

8 範例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

9 DblClick 表示連續按下兩次滑鼠鍵所觸發的事件 配合範例ch5_1加入DblClick事件CLS

10 Paint事件 視窗大小改變時 (也會有ReSize事件) 視窗部分內容被遮住時 範例ch5_3
Private Sub Form_Paint() Cls For i = 1 To num Print "歡迎使用Visual Basic 6" Next i End Sub 只要把AutoRedraw屬性設定為True就可以

11 繪圖 使用line函式 Line (起始x,起始y) - (終點x,終點y) VB座標原點與繪圖單位Twip 1吋＝72 Pixel

12 偵測滑鼠按鍵 MouseDown與MouseUP中的Button屬性 滑鼠按鍵 Button數值 左 1 中 2 右 4

13 範例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 ' 將各點連線 For j = i + 1 To num - 1 Line (xpt(i), ypt(i))-(xpt(j), ypt(j)) Next j Next i End Sub

14 偵測滑鼠移動 滑鼠按鍵 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

15 輸入輸出資料對話框 輸入使用內定函數 InputBox InputBox 提示訊息,[標題],[輸入預設值],[xpos,ypos]
輸出使用MsgBox MsgBox 回應訊息,視窗類型,標題 視窗類型如p.5-49

16 表單視窗屬性 表單視窗屬性