程式設計

程式設計 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 1 Twip = 1/20 pixel

偵測滑鼠按鍵 MouseDown與MouseUP中的Button屬性

範例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 If End Sub

偵測滑鼠移動 MouseMove的Button與Shift屬性 (ch5_8 & DrawWidth)

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

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

程式設計

程式設計

Presentation Transcript