Giáo trình Thực hành với Visual Basic

Bài thực hành số 4: Sử dụng hộp thoại Sử dụng hộp thoại Hiển thị loại hộp thoại OPEN Hộp thoại Open (Open dialog) hộp thoại chuẩn cho phép người dùng chọn file hay thư mục Thực hành: Viết chương trình mở file (Text rtf) hiển thị điều khiển Richtext Box Các bước thực hiện: Bước 1: Tạo Project Bước 2: Vào menu Project → Components tham chiếu đến file OCX Rich Textbox Common Dialog hình Bước 3: Kéo điều khiển Dialog Richtext vào Form Các điều khiển dùng chương trình Thiết kế giao diện: 71/139 Giao diện kết chạy chương trình Đặt giá trị cho thuộc tính: Điều khiển Thuộc tính / Giá trị Form Name : frmMainCaption: Sử dụng hộp thoại OpenStartup Position: 2- CenterScreen Rich Textbox Control Name : rtfEditorAutoVerbMenu: TrueScrollBars : - Borth CommonDialog Name: dlgHopThoai (Hộp thoại) Command button Name : cmdOpenTextFileCaption: Mở file &Text Command Button Name : cmdOpenRTFFileCaption: Mở file &RTF Viết lệnh: frmMain.frm Option Explicit'/// Mở file Richtext Format (các file có phần mở rộng RTF)Private sub cmdOpenRTFFile_Click()dlgHopThoai.DialogTitle = "Mo file Text" '/// Tiêu đề hộp thoạidlgHopThoai.Filter = "Cac file Richtext (*.RTF)|*.rtf|" '/// Chỉ hiển thị file RTFdlgHopThoai.Showopen '/// Hiển thị hộp thoạirtfEditor.LoadFile dlgHopThoai.FileName, rtfRTF '/// Mở file vừa chọn RTFEndSub'/// Mở file Text (các file có phần mở rộng TXT)Private sub cmdOpenTextFile_Click()dlgHopThoai.DialogTitle = "Mo file Text"dlgHopThoai.Filter = "Cac file text 72/139 (*.txt)|*.txt|"dlgHopThoai.ShowopenrtfEditor.LoadFile dlgHopThoai.FileName, rtfTextEndSub Ghi chú: • Phương thức LoadFile điều khiển Richtext dùng để mở file Nó địi hỏi tham số, tham số thứ đường dẫn đến file cần mở, tham số thứ hai loại file cần mở (Tham số tuỳ chọn bỏ qua) • Thuộc tính 2- CenterScreen dùng để đặt Form vào hình hiển thị • Thuộc tính AutoVerbMenu = True điều khiển Richtext phép hiển thị menu (Copy, cut, Paste, Undo) người dùng click chuột phải lên Richtext control • Trong trường hợp, hộp thoại mở ra, người dùng không chọn file (Chọn nút Cancel) thuộc tính FileName có giá trị lần mở trước có giá trị rỗng, gây lỗi nạp file Để giải trường hợp này, viết lại đoạn chương trình sau: Private sub cmdOpenRTFFile_Click() dlgHopThoai.DialogTitle = "Mo file Text" dlgHopThoai.Filter = "Cac file Richtext (*.RTF)|*.rtf|" dlgHopThoai.FileName = "" '/// Khởi tạo trước dlgHopThoai.Showopen If dlgHopThoai.FileName "" Then ' /// Đã chọn file rtfEditor.LoadFile dlgHopThoai.FileName, rtfRTF End If End Sub Hiển thị loại hộp thoại SAVE - SAVE AS Hộp thoại Save (hay Save As) thực chất hộp thoại Open (Cùng sử dụng điều khiển Dialog) có điểm khác tiêu đề hộp thoại mặc định "Save As" thay "Open" để người dùng có "cảm giác" thân thiện Tiêu đề hộp thoại ln ln thay đổi cách thay đổi thuộc tính DialogTitle Thực hành: Xây dựng chương trình giống phần có thêm nút "Save As" để người dùng click vào nút nội dung soạn thảo lưu đĩa với tên file 73/139 Các bước thực hiện: Giống phần Thiết kế giao diện: Thêm nút Save (Name: cmdSaveAs, Caption: &Save As) Giao diện kết chạy chương trình Viết lệnh: frmMain.frm Option Explicit'/// Mở file Richtext Format (các file có phần mở rộng RTF)Private sub cmdOpenRTFFile_Click()dlgHopThoai.DialogTitle = "Mo file Text" '/// Đặt lại tiêu đềdlgHopThoai.Filter = "Cac file Richtext (*.RTF)|*.rtf|" '/// Chỉ hiển thị file dạng RTFdlgHopThoai.Showopen'/// Mở hộp thoại chọn filertfEditor.LoadFile dlgHopThoai.FileName, rtfRTF '/// Nạp file vào RichtextboxEndSub'/// Mở file Text (các file có phần mở rộng TXT)Private sub cmdOpenTextFile_Click()dlgHopThoai.DialogTitle = "Mo file Text"dlgHopThoai.Filter = "Cac file text (*.txt)|*.txt|"dlgHopThoai.ShowopenrtfEditor.LoadFile dlgHopThoai.FileName, rtfTextEndSub'/// Thực mở hộp thoại người dùng gõ tên file mới'/// lưu nội dung soạn thảo file nàyPrivate sub cmdSaveAs_Click()dlgHopThoai.Filter = "Tất file (*.*)|*.*|"dlgHopThoai.FileName = ""dlgHopThoai.Showsave'/// Mở hộp thoại "Save As"IfdlgHopThoai.FileName "" ThenrtfEditor.SaveFile dlgHopThoai.FileName, rtfRTF'/// rtfRTF Hoặc rtfText muốn lưu sang dạng file Text (TXT)EndIfEndSub • Chú ý: • Giống hộp thoại Open, hộp thoại "Save As" "Không tự động lưu nội dung soạn thảo đĩa" mà ta phải tự làm (lệnh rtfEditor.SaveFile 74/139 dlgHopThoai.FileName, rtfRTF) Nó cho ta biết người dùng gõ vào tên file mà thơi (thơng qua thuộc tính FileName) • Nếu muốn lưu nội dung vào file (chứ khơng phải file mới) khơng cần phải hiển thị hộp thoại Save As mà cần viết câu lệnh rtfEditor.SaveFile dlgHopThoai.FileName Hiển thị hộp thoại FONT Hộp thoại chọn font sử dụng điều khiển Dialog, hiển thị cho phép người dùng chọn thông số liên quan đến font chữ tên font, kích thước, kiểu chữ v.v… Các giá trị chọn lưu thuộc tính tương ứng điều khiển Dialog Thực hành: Xây dựng chương trình giống phần 2, có thêm nút "Đặt font" để người dùng click vào nút chương trình hiển thị hộp thoại chọn font, sau đặt font chữ chọn cho nội dung chứa RichtextBox Format Các bước thực hiện: Giống phần Thiết kế giao diện : Giống phần thêm nút "Set Font" (Name: cmdSetFont, Caption : Set &Font) 75/139 Kết chạy chương trình Viết lệnh: frmMain.frm Option Explicit'/// Mở file Richtext Format (các file có phần mở rộng RTF)Private sub cmdOpenRTFFile_Click()dlgHopThoai.DialogTitle = "Mo file Text"dlgHopThoai.Filter = "Cac file Richtext (*.RTF)|*.rtf|"dlgHopThoai.ShowopenrtfEditor.LoadFile dlgHopThoai.FileName, rtfRTFEndSub'/// Mở file Text (các file có phần mở rộng TXT)Private sub cmdOpenTextFile_Click()dlgHopThoai.DialogTitle = 76/139 "Mo file Text"dlgHopThoai.Filter = "Cac file text (*.txt)|*.txt|"dlgHopThoai.ShowopenrtfEditor.LoadFile dlgHopThoai.FileName, rtfTextEndSub'/// Thực mở hộp thoại người dùng gõ tên file mới'/// lưu nội dung soạn thảo file nàyPrivate sub cmdSaveAs_Click()dlgHopThoai.Filter = "Tất file (*.*)|*.*|"dlgHopThoai.FileName = ""dlgHopThoai.ShowsaveIfdlgHopThoai.FileName "" ThenrtfEditor.SaveFile dlgHopThoai.FileName, rtfRTF'/// rtfRTF Hoặc rtfText muốn lưu sang dạng file TextEndIfEndSub'/// Đặt font chữ cho toàn văn Rich TextBoxPrivate sub cmdSetFont_Click()dlgHopThoai.Flags = cdlCFBoth Or cdlCFEffects '/// Phải có dịng nàydlgHopThoai.Showfont'/// Hiển thị hộp thoại chọn fontrtfEditor.Font.Name = dlgHopThoai.FontName '/// Đặt font chữ RichtextboxrtfEditor.Font.Size = dlgHopThoai.FontSize '/// với giá trị vừa chọnrtfEditor.Font.Bold = dlgHopThoai.FontBoldrtfEditor.Font.Italic = dlgHopThoai.FontItalicrtfEditor.Font.Underline = dlgHopThoai.FontUnderlinertfEditor.Font.Strikethrough = dlgHopThoai.FontStrikethruEndSub Ghi chú: • Hộp thoại chọn font không tự đặt font chữ cho văn nào, việc hồn tồn lập trình viên định Nó cho ta biết người dùng chọn font có tên gì, kích thước, kiểu cách v.v… thơng qua thuộc tính tương ứng • Có thể đặt font chữ cho riêng phần văn bôi đen RichText thông qua thuộc tính có tiền tố Sel…, ví dụ: ………… rtfEditor.SelBold = dlgHopThoai.FontBold rtfEditor.SelItalic = dlgHopThoai.FontItalic rtfEditor.SelFontSize = dlgHopThoai.FontSize rtfEditor.SelFontName = dlgHopThoai.FontName …………… Hiển thị hộp thoại COLOR Hộp thoại hiển thị bảng màu (Color) nằm điều khiển Dialog Sau hiển thị, hộp thoại cho ta biết người dùng chọn màu có giá trị Giá 77/139 trị tương ứng với màu xác định thường sử dụng cho mục đích đặt màu chữ, màu v.v… cho thành phần khác Thực hành: Giống phần thêm khả đặt màu cho Richtextbox người dùng click vào nút "Set BackColor" Các bước thực hiện: Như phần Thiết kế giao diện: Như phần thêm nút lệnh: Name: cmdSetBackColor, Caption: Set &BackColor" Hộp thoại chọn Font Viết lệnh: frmMain.frm Option Explicit'/// Mở file Richtext Format (các file có phần mở rộng RTF)Private sub cmdOpenRTFFile_Click()dlgHopThoai.DialogTitle = "Mo file Text"dlgHopThoai.Filter = "Cac file Richtext (*.RTF)|*.rtf|"dlgHopThoai.ShowopenrtfEditor.LoadFile dlgHopThoai.FileName, rtfRTFEndSub'/// Mở file Text (các file có phần mở rộng TXT)Private sub cmdOpenTextFile_Click()dlgHopThoai.DialogTitle = "Mo file Text"dlgHopThoai.Filter = "Cac file text (*.txt)|*.txt|"dlgHopThoai.ShowopenrtfEditor.LoadFile dlgHopThoai.FileName, 78/139 rtfTextEndSub'/// Thực mở hộp thoại người dùng gõ tên file mới'/// lưu nội dung soạn thảo file nàyPrivate sub cmdSaveAs_Click()dlgHopThoai.Filter = "Tất file (*.*)|*.*|"dlgHopThoai.FileName = ""dlgHopThoai.ShowsaveIfdlgHopThoai.FileName "" ThenrtfEditor.SaveFile dlgHopThoai.FileName, rtfRTF'/// rtfRTF Hoặc rtfText muốn lưu sang dạng file TextEndIfEndSub'/// Hiển thị hộp thoại chọn font thiết lập font chữ cho văn FTFPrivate sub cmdSetFont_Click()dlgHopThoai.Flags = cdlCFBoth Or cdlCFEffectsdlgHopThoai.ShowfontrtfEditor.Font.Name = dlgHopThoai.FontNamertfEditor.Font.Size = dlgHopThoai.FontSizertfEditor.Font.Bold = dlgHopThoai.FontBoldrtfEditor.Font.Italic = dlgHopThoai.FontItalicrtfEditor.Font.Underline = dlgHopThoai.FontUnderlinertfEditor.Font.Strikethrough = dlgHopThoai.FontStrikethruEndSub'/// Hiển thị hộp thoại chọn màu sau đặt màu vừa chọn cho RTFPrivate sub cmdSetBackColor_Click()dlgHopThoai.Showcolor'/// Hiển thị hộp thoại chọn màurtfEditor.BackColor = dlgHopThoai.Color '/// Đặt màu màu vừa chọnEndSub Hiển thị hộp thoại Printer Hộp thoại Print cho phép người dùng chọn tên máy in, số trang, số v.v… Hộp thoại KHÔNG TỰ IN ĐƯỢC TÀI LIỆU Thực hành: Thêm nút lệnh "Print" vào Form đặt Name = cmdPrint, Caption = "&Print" Khi người dùng click nút hiển thị hộp thoại máy in Các bước thực giao diện giống phần Viết thêm đoạn code xử lý kiện click nút cmdPrint sau: Private sub cmdPrint_Click() dlgHopThoai.ShowPrinter MsgBox "Số in : " & dlgHopThoai.Copies End Sub 79/139 Hiển thị hộp thoại HELP Hộp thoại Help có nhiệm vụ thực thi file trợ giúp dạng Window Help (Các file help cũ có phần mở rộng hlp, file có phần mở rộng CHM) Thực hành: Mở file trợ giúp c:\winnt\winhelp.hlp Các bước thực hiện: Thêm nút vào Form, đặt name = cmdHelp, Caption = &Help viết lệnh cho kiện click chuột cho nút sau: Private sub cmdHelp_Click() dlgHopThoai.HelpFile = "c:\winnt\winhelp.HLP" dlgHopThoai.HelpCommand = cdlHelpContents dlgHopThoai.Showhelp End Sub Toàn giao diện thực hành Giao diện chương trình hồn chỉnh 80/139 • Thuộc tính ListIndex cho ta biết số (lưu ý số tính từ 0) mục chọn (Mục có sáng) Nếu khơng có mục chọn có giá trị -1 • Thuộc tính Text cho ta nội dung mục chọn khơng có mục chọn (khơng có sáng) thuộc tính có giá trị xâu rỗng • Thuộc tính List (i) cho ta nội dung mục có số i Như muốn lấy giá trị mục chọn ngồi việc sử dụng thuộc tính Text, ta cịn viết sau: lstDanhSach.List(DanhSach.ListIndex) • Mục Listbox có số Mục cuối có số lstDanhSach.ListCount – • Trong trường hợp listbox khơng chứa mục (Listbox rỗng) để tránh bị lỗi, trước thao tác, nên kiểm tra thuộc tính ListCount xem có > hay không (tức không rỗng hay không ?) Thực hành sử dụng đặc tính đa lựa chọn Listbox Listbox đặt chế độ cho phép người dùng chọn đồng thời nhiều mục cách click di chuột click chuột kết hợp với nhấn phím Shift/ Ctrl để chọn mục liền nhau/ rời rạc nhau, hình đây: Hiển thị kiểu CheckBox Cho phép chọn nhiều mục kiểu Ext 56/139 Thiết kế giao diện: Lấy ví dụ hình Đặt giá trị cho điều khiển, cần thêm nút lệnh có tên caption tương ứng là: cmdHienThi, "Hiển thị mục chọn" Viết lệnh: Option Explicit '/// Hiển thị mục chọn '// Nếu mục có số i chọn lstDanhSach.Selected(i) có giá trị True '// Giá trị mục có số i : lstDanhSach.List(i) Private Sub cmdHienThi_Click() Dim i As Integer For i = To lstDanhSach.ListCount – '/// Kiểm tra mục ListBox If lstDanhSach.Selected(i) = True Then'/// Nếu mục i chọn (=True) MsgBox lstDanhSach.List(i) '/// Thì hiển thị hình End If Next End Sub '/// Thực thêm nội dung textbox vào Listbox người dùng '/// Click chuột vào nút "Thêm" Private Sub cmdThem_Click() lstDanhSach.AddItem txtNewItem.Text, '/// > Thêm vào đầu danh sách End Sub '/// Gọi Phương thức Clear để xố tồn mục ListBox Private Sub cmdXoa_Click() 57/139 lstDanhSach.Clear End Sub Ghi chú: • Khi duyệt tất phần tử ListBox, ta thường sử dụng vòng lặp dạng For i = to listbox1.ListCount – … • Khi muốn lấy mục chọn (ở chế độ MultiSelect) cần kiểm tra thuộc tính Selected(i) = True ? để biết mục i có chọn hay khơng Thực hành tìm kiếm loại bỏ mục khỏi danh sách Yêu cầu (Giao diện hình 10): Khi người dùng nhập giá trị vào hộp textbox nhấn vào nút "Xoá" chương trình thực tìm kiếm xố mục khỏi Listbox, thơng báo khơng tìm thấy mục khơng có ListBox Thiết kế giao diện: Giao diện chương trình chạy Thiết lập giá trị cho điều khiển: Điều khiển Thuộc tính / giá trị Label Name: lblThongBaoCaption: Gõ vào nội dung từ cần xoá TextBox Name: txtTuCanXoaText: Để trống Command button Name: cmdXoaCaption: &Xoá mục khỏi ListBox ListBox Name: lstDanhSach Viết lệnh: Option Explicit '/// Thêm số mục ban đầu vào ListBox 58/139 Private SubForm_Load() lstDanhSach.AddItem "Hello" lstDanhSach.AddItem "World" lstDanhSach.AddItem "welcome" End Sub '///Thực tìm kiếm xố mục danh sách mà người dùng vừa nhập textbox Private Sub cmdXoa_Click() Dim i As Integer Dim TimThay As Boolean TimThay = False For i = To lstDanhSach.ListCount – '/// Duyệt so với tất phần tử If lstDanhSach.List(i) = txtTuCanXoa.Text Then TimThay = True Exit For ' /// Thốt khỏi vịng lặp for End If Next If TimThay = True Then'/// Đã tìm thấy → Xố MsgBox "Vị trí tìm thấy " & i &" Mục loại bỏ khỏi ListBox" lstDanhSach.RemoveItem i Else MsgBox "Khơng có mục ListBox", vbInFormation, "Thông báo" End If 59/139 End Sub Kết chạy chương trình (trước sau Xố) Ghi chú: • Khi muốn loại bỏ mục khỏi Listbox, ta sử dụng phương thức RemoveItem Phương thức đòi hỏi tham số số mục cần xố • Khi xố, cần lưu ý số i mục cần xoá phải thoả mãn : 0≤i≤ListCount – • Khi so sánh xâu ký tự, sử dụng thêm hàm Trim, Ucase, Lcase Ví dụ: If Ucase(txtTuCanXoa) = Ucase(…) Then 60/139 Sử dụng điều khiển PictureBox Điều khiển PictureBox cho phép hiển thị (Load) file ảnh dạng BMP, ICO, WMF, JPEG, GIF có phương thức cho phép ta thực cơng việc xử lý đồ hoạ vẽ đường thẳng, vẽ đường tròn v.v… Thực hành: Hiển thị file ảnh vẽ đường thẳng PictureBox Yêu cầu (Giao diện hình vẽ): Khi người dùng nhập đường dẫn file ảnh click vào nút "Hiển thị" hiển thị file ảnh Picturebox Cịn người dùng click vào nút "Vẽ đường thẳng" vẽ đường thẳng Giao diện chương trình: Giao diện kết chạy chương trình Thiết lập giá trị cho điều khiển: Điều khiển Thuộc tính / Giá trị PictureBox Name: picViewerAutoRedraw: True TextBox Name: txtTenFile Command button Name: cmdHienThiCaption: &Hiển thị Command button Name: cmdVeDuongThangCaption: &Vẽ đường thẳng Viết lệnh: Form1.frm '/// Nạp file ảnh hiển thị PictureboxPrivate Sub cmdHienThi_Click()On Error GoTo errpicViewer.Picture = LoadPicture(txtTenFile.Text)Exit Suberr:MsgBox "File khơng tồn có lỗi !", vbCritical, "Lỗi"End Sub'/// 61/139 Vẽ đường chéo: cú pháp Line (Cột 1, Hàng 1) – (Cột 2, Hàng 2)Private Sub cmdVeDuongThang_Click()picViewer.Line (0, 0)-(picViewer.Width, picViewer.Height)End Sub Ghi chú: • Thuộc tính AutoRedraw Picture đặt true để đảm bảo vẽ khơng bị Form bị vẽ lại • Phương thức LoadPicture() trả cho ta đối tượng ảnh, đối tượng gán trả lại cho thuộc tính Picture điều khiển PictureBox • Cần phải có chế bắt lỗi ví dụ nạp ảnh có trường hợp xuất lỗi • Có thể đặt thuộc tính AutoResize Picturebox True bạn muốn kích thước Picturebox ln tự động co giãn với kích thước ảnh • Có thể vẽ (copy) ảnh Picturebox vào Form lệnh: Me.PaintPicture picViewer.Picture,0,0 (Hiểu là: Vẽ ảnh picturebox vào Form, toạ độ 0,0) 62/139 Sử dụng điều khiển Image Điều khiển Image tương tự điều khiển Picture (chính xác thực số chức Picturebox) có ưu điểm tốc độ nhanh hơn, chiếm tài ngun Picture Ngồi cịn có thuộc tính Stretch để co giãn kích thước ảnh, Picturebox khơng có Thực hành: Hiển thị file ảnh điều khiển Image Thiết kế giao diện: Giao diện chương trình Thiết lập giá trị cho thuộc tính: Điều khiển Thuộc tính / Giá trị Image Name: imgViewerStretch: True TextBox Name: txtTenFile Command button Name: cmdHienThiCaption: &Hiển thị Viết lệnh: Form1.frm Option Explicit'/// Nạp file ảnh hiển thị điều khiển ImagePrivate Sub cmdHienThi_Click()On Error GoTo errimgViewer.Picture = LoadPicture(txtTenFile.Text)Exit Suberr:MsgBox "File không tồn có lỗi !", vbCritical, "Lỗi"End Sub 63/139 Kết thay đổi thuộc tính Stretch 64/139 Sử dụng HscrollBar (Thanh cuộn ngang) HscrollBar điều khiển thường sử dụng người dùng thay đổi giá trị cách trực quan thay phải nhập số VscrollBar làm việc hồn toàn giống với HscrollBar, hiển thị theo chiều dọc, Do ta không giới thiệu Thực hành: Thay đổi màu kích thước font chữ textbox sử dụng ngang (HscrollBar) – Giao diện hình Giao diện chương trình kết chạy Thiết lập giá trị cho thuộc tính: Điều khiển Thuộc tính / Giá trị TextBox Name: txtThongBaoText: Thay đổi cuộn quan sát ! Label Caption: Thay đổi kích thước font chữ textbox Label Caption: Thay đổi màu TextBox HScrollBar Name: hscKichThuocMin: 10Max : 50SmallChange: 1LargeChange: 10 HscrollBar Name: hscMauNenMin: 0Max : 255SmallChange: 1LargeChange: 20 Viết lệnh: Form1.frm Option Explicit'/// Sự kiện kích hoạt giá trị hscKichThuoc thay đổi'// nên ta thực cập nhật lại kích thước font đâyPrivate Sub hscKichThuoc_Change()txtThongBao.Font.Size= hscKichThuoc.Value '/ Đặt fontsize giá trị hscRollbarEnd Sub'/// Sự kiện kích hoạt giá trị 65/139 hscMauNen thay đổi'// nên ta thực cập nhật lại giá trị màu đâyPrivate Sub hscMauNen_Change()txtThongBao.BackColor = hscMauNen.Value '/// Đặt màu với hscMauNen.ValueEnd Sub Ghi chú: • Có thể đặt "Thanh gạt" cuộn vị trí cách thay đổi thuộc tính Value thích hợp (trong lúc thiết kế chương trình chạy) 66/139 Sử dụng điều khiển Timer, Drive, Dir File Sử dụng điều khiển Timer Điều khiển Timer có chức tự động kích hoạt thủ tục Timer sau khoảng thời gian ấn định trước mà không phụ thuộc vào công việc thực Thực hành: Viết chương trình thực nhấp nháy dịng chữ Form Trong khoảng thời gian nhấp nháy thay đổi việc nhập giá trị vào textbox Hướng dẫn: Nhấp nháy dòng chữ (đặt label) thực chất việc cho ẩn lại dịng chữ sau khoảng thời gian định (ví dụ s) Như vậy, giải pháp ta cập nhật thuộc tính Visible sau khoảng thời gian s, (Visible = true) cho ẩn (đặt visible false) ngược lại, hay nói cách khác sau giây ta đặt thuộc tính Visible = not Visible Thiết kế giao diện sau: Giao diện chương trình Đặt giá trị cho thuộc tính: Điều khiển Thuộc tính / Giá trị Label Name: lblThongBaoCaption: Khoa Công nghệ Thông tin… Label Caption: Thay chù kỳ thời gian gọi TextBox Name: txtIntervalText: 1000 Command button Name: cmdThayDoiIntervalCaption: &Thay đổi Interval Command button Name : cmdDungTimerCaption: &Dừng Timer Timer tmrNhapNhay Viết lệnh: 67/139 Form1.frm Option Explicit'/// Khởi tạo số thuộc tínhPrivate SubForm_Load()tmrNhapNhay.Interval = 1000tmrNhapNhay.Enabled = TruelblThongBao.Visible = TrueEnd Sub'/// Thủ tục tự động gọi sau khoảng thời gian giây (1000 ms)Private Sub tmrNhapNhay_Timer()lblThongBao.Visible = Not lblThongBao.VisibleEnd Sub'/// Cập nhật lại chu kỳ thời gian tự động kích hoạt kiện TimerPrivate Sub cmdThayDoiInterval_Click()tmrNhapNhay.Interval = txtInterval.TextEnd Sub'/// Dừng đồng hồ Có thể dừng cách đặt Interval = 0Private Sub cmdDungTimer_Click()tmrNhapNhay.Enabled = False End Sub Sử dụng điều khiển Drive, Dir File Điều khiển Drive dùng ta chọn ổ đĩa máy tính, điều khiển Dir để hiển thị thư mục ổ đĩa theo dạng phân cấp Cịn điều khiển File dùng để hiển thị tất file thư mục định Điều khiển hồn tồn sử dụng độc lập thường sử dụng kết hợp với Thực hành: Viết chương trình xem file ảnh máy tính Giao diện chương trình: Giao diện kết chạy chương trình Thiết lập thuộc tính: 68/139 Điều khiển Thuộc tính /giá trị Label Caption: Hãy chọn ổ đĩa thư mục chứa ảnh Label Click vào file ảnh cần xem Drive Name: drvPhoto Dir Name: dirPhotoPattern: *.BMP;*.JPG;*.GIF (lưu ý khơng có dấu cách dấu ";") File Name: filPhoto Image Name: imgPhotoStretch : True Viết lệnh: Form1.frm Option Explicit'/// Đặt thuộc tính Pattern để điều khiển File hiển thị file ảnh'/// Nếu muốn hiển thị tất file đặt pattern *.*Private SubForm_Load()filPhoto.Pattern = "*.BMP;*.JPG;*.GIF" '/// Chỉ hiển thị file ảnh.End Sub'/// Khi người dùng chọn thư mục ta hiển thị file thư mục này'/// điều khiển file cách thay đổi thuộc tính Path điều khiển file'/// với đường dẫn thư mục vừa chọn.Private Sub dirPhoto_Change()filPhoto.Path = dirPhoto.PathEnd Sub'/// Khi người dùng chọn ổ đĩa khác ta lấy ổ gán cho điều khiển'/// dirPhoto để điều khiển dirPhoto hiển thị nội dung ổ đĩa vừa chọnPrivate Sub drvPhoto_Change()dirPhoto.Path = drvPhoto.Drive 'hoặc viết dirPhoto.Path = "c:\" v.v End Sub'/// Khi người dùng click vào file điều khiển File ta hiển thị file này'/// điều khiển Image Đường dẫn file lấy từ thuộc tính'/// filePhoto.Path filPhoto.FileNamePrivate Sub filPhoto_Click()imgPhoto.Picture = LoadPicture(filPhoto.Path & "\" & filPhoto.FileName)End Sub Giải thích câu lệnh: • điều khiển không thiết phải với nhau, ví dụ cần điều khiển filPhoto, ta dùng hiển thị toàn file thư mục C:\My documents cách viết : filPhoto.Path = "C:\My documents" hay ta tồn thư mục ổ đĩa E điều khiển dirPhoto cách viết dirPhoto.Path = "E:\" • drvPhoto.Drive trả cho ta tên ổ đĩa (ví dụ c:, d: hay e:) chọn điều khiển drvPhoto 69/139 • filPhoto.Path trả đường dẫn (không bao gồm tên) file chọn điều khiển File, filPhoto.FileName trả tên file (nhưng khơng có đường dẫn) file chọn 70/139 ... không thực câu lệnh người dùng click chọn Phần thực hành minh hoạ việc gắn kết mục chọn với việc thực thi chương trình tương ứng với mục mà người dùng lựa chọn Thực hành: Thực thoát khỏi chương trình. .. giao diện thực hành Giao diện chương trình hồn chỉnh 80/139 Bài thực hành số 5: Sử dụng Menu công cụ Tạo menu có nhiều cấp Thực hành: Tạo hệ thống Menu hình Menu có nhiều cấp Các bước thực hiện:... chạy chương trình Lưu ý chạy chương trình bạn chọn mục Open Exit chương trình khơng thực cơng việc ta chưa viết lệnh cho 86/139 Viết lệnh cho mục menu Ở phần thực hành trước, chạy chương trình mục