程式設計 Visual Basic 6.0

1. 程式設計Visual Basic 6.0 許翠婷 E-mail : tsuiting@scu.edu.tw

3. 輸入 Width • 文字方塊（text） txt • Text • Caption • MaxLength • PasswordChar • Locked • MultiLine • ScrollBars • Height • Width ScaleWidth ScaleHeight Height

4. 輸入 • 架框（Frame）fra • Caption • Width • Height • 單選選擇鈕（OptionButton）opt • Caption • Value（Boolean） • Ch.5-6

5. opt Private Sub Opt8_Click() If Opt8.Value Then txtNote.Font.Size = 8 Else txtNote.Font.Size = 10 End If End Sub

6. 0 1 2 3 輸入 • 核取方塊（CheckBox）chk • Caption • Alignment • Value（1） • 清單方塊（ListBox）lst • List：選項內容定義於此 • Text • ListIndex • MultiSelect • Sorted • ListCount • Colums • Selcount • Style • Clear • AddItem Data,Index • RemoveItem Index

7. chk Private Sub chkUnderline_Click() If chkUnderline.Value = 1 Then txtNote.FontUnderline = True Else txtNote.FontUnderline = False End If End Sub Private Sub chkStrikeline_Click() If chkStrikeline.Value = 1 Then txtNote.FontStrikethru = True Else txtNote.FontStrikethru = False End If End Sub

8. 0 1 2 3 lst Private Sub lstType_Click() Select Case lstType.ListIndex Case 0: txtNote.FontBold = False: txtNote.FontItalic = False Case 1: txtNote.FontBold = True: txtNote.FontItalic = False Case 2: txtNote.FontItalic = True: txtNote.FontBold = False Case 3: txtNote.FontBold = True: txtNote.FontItalic = True End Select End Sub

9. 輸入 • 下拉式方塊（ComboBox）cbo • Style • 0.DropDown Combo • 1. simple Combo • 2.DropDown List • List • Text • ListIndex • MultiSelect • Sorted • ListCount • Clear • AddItem Data,Index • RemoveItem Index

10. cmb Private Sub cmbfont_Click() txtNote.FontName = cmbfont.Text End Sub txtNote.Font.Name =“細明體”

11. Private Sub Form_Resize() txtNote.Width = frmNote.ScaleWidth - fraSize.Width txtNote.Height = frmNote.ScaleHeight End Sub

12. 設計簡單小畫家功能表

13. VB 的色彩 • 標準 RGB 色彩的有效範圍是 0到 16,777,215，由四個Byte 組成。 • 最高位元組為0或80（16進位）。 • 其餘從最高位元組到最低位元組依次決定 • 藍（ &H00FF0000 ） • 綠（ &H0000FF00 ） • 紅（ &H000000FF）

14. 色彩

15. VB 的色彩 • 系統顏色（&H80000005、vbWindowBackground）【系統色彩常數】 • 紅、綠和藍的成分，分別由一個介於 0 與 255 (&HFF) 之間的數目來表示。 • 可使用 • 數值(&H00FF00FF ) • 常數( vbMagenta ) • 函數（QBColor(13) 、RGB(255,0,255)) 表示之。(P 14-4、14-5)

16. 設計進階小畫家功能表

17. 功能表（Menu Bar） • 定義 • 所有選單（MENU）的集合。 • 每個選單內都有多個功能選項（Menu Item） • 無功能選項選單（MENU）! • 有副選單（MENU） • 選單（MENU） • 三個小點（…）－啟動對話方塊

18. 設計功能表 • 「工具」「功能表編輯器」 • 新增選單 • 新增選項 • 新增副選單 • 新增分隔線 標題 - • 設定「選取鍵」（Access Key） Alt • 設定「快速鍵」（Accelerator）Ctrl • 屬性 • Enabled • Checked • Visible

19. 再談表單屬性 • BackColor： 可設定用來繪製表單或控制項的背景色彩。 • ForeColor：【畫筆顏色】 可設定在表單或控制項中，透過繪圖方法所 建立的文字或圖形色彩。 • DrawWidth：【畫線粗細】 繪圖相關方法所使用的直線寬度

20. 畫線 • 事件 • Mousemove • 方法 Line -(x,y)

21. 更改畫板顏色 • Private Sub mnuGreen_Click() • frmPaint.BackColor = RGB(0, 255, 0) • End Sub • Private Sub mnuPink_Click() • frmPaint.BackColor = &HFFC0FF • End Sub • Private Sub mnuPRed_Click() • frmPaint.BackColor = vbRed • End Sub • Private Sub mnuYellow_Click() • frmPaint.BackColor = QBColor(14) • End Sub

22. 修改簡易小畫家表單

23. 更改畫筆顏色 • Private Sub mnublack_Click() • frmPaint.ForeColor = vbBlack • End Sub • Private Sub mnublue_Click() • frmPaint.ForeColor = vbBlue • End Sub • Private Sub mnumagenta_Click() • frmPaint.ForeColor = vbMagenta • End Sub

24. 更改畫筆粗細 • Private Sub mnuMedium_Click() • frmPaint.DrawWidth = 10 • End Sub • Private Sub MnuNerrow_Click() • frmPaint.DrawWidth = 6 • End Sub • Private Sub mnuThick_Click() • frmPaint.DrawWidth = 15 • End Sub

25. 橡皮擦 • Private Sub mnuEraser_Click() • frmPaint.ForeColor = frmPaint.BackColor • End Sub