Tiếp nội dung phần 1, Giáo trình Lập trình Windows: Phần 2 cung cấp cho người học những kiến thức như: Lập trình với các điều khiển mở rộng; Lập trình cơ sở dữ liệu. Mời các bạn cùng tham khảo!
CHƢƠNG LẬP TRÌNH VỚI CÁC ĐIỀU KHIỂN MỞ RỘNG 4.1 Điều khiển Common Dialog Điều khiển hộp thoại thông dụng (Common Dialog) cung cấp tập hộp thoại chuẩn cho thao tác nhƣ mở lƣu trữ tệp tin, thiết lập tuỳ chọn in, lựa chọn font chữ, màu Điều khiển hộp thoại thông dụng cho phép ta hiển thị loại hộp thoại thông dụng là: Open, Save As, Color, Font, Print, Help Điều khiển hộp thoại thông dụng điều khiển nội hộp công cụ Muốn đƣa điều khiển hộp thoại thông dụng hộp công cụ, ta thực thao tác: Từ thực đơn Project ta chọn Components, xuất hộp thoại Components, tab Control hộp thoại ta tích vào mục Microsoft Common Dialog Control, sau kích OK Muốn hiển thị hộp thoại thơng dụng nào, ta đƣa điều khiển hộp thoại thông dụng lên Form, sau thiết lập thuộc tính gọi phƣơng thức hiển thị hộp thoại phù hợp Các phƣơng thức tƣơng ứng để hiển thị hộp thoại thông dụng: Phƣơng thức ShowOpen ShowSave ShowColor ShowFont ShowPrinter ShowHelp Hiển thị hộp thoại Open Save As Color Font Print Help 4.1.1 Open Dialog, Save Dialog Hộp thoại Open Dialog dùng để hiển thị hộp thoại Open (mở file) Hộp thoại Save Dialog dùng để hiển thị hộp thoại Save As (lƣu file) Hai hộp thoại có số thuộc tính chung, thơng dụng gồm: 103 Thuộc tính Giải thích CancelError Dùng để bắt lỗi ngƣời sử dụng nhấn nút Cancel đƣợc gán giá trị True DefaultExt Xác định phần mở rộng ngầm định file DialogTitle Xác định tiêu đề hộp thoại FileName Xác định tên đƣờng dẫn tệp tin mà ngƣời sử dụng chọn FileTitle Xác định tên tệp tin đƣợc chọn, không chứa đƣờng dẫn Filter Dùng để lọc kiểu tệp tin mà hộp thoại hiển thị FilterIndex Chỉ lọc đƣợc sử dụng InitDir Xác định thƣ mục hiển thị hộp thoại xuất Ví dụ: Viết chƣơng trình sử dụng điều khiển hộp thoại Open hộp thoại Save As để thực mở, lƣu tập tin văn theo thiết kế sau: Mở tệp văn hiển thị nội dung tệp textbox Mở tệp văn lƣu nội dung textbox vào tệp Giải: Bƣớc Thiết kế form theo mẫu cách đƣa vào form commandbutton, textbox, sau xác định vị trí, kích thƣớc cho điều khiển cho phù hợp Bƣớc Thiết lập số thuộc tính cho điều khiển nhƣ bảng sau: TT Điều khiển Form CommandButton CommandButton CommandButton CommandButton Thuộc tính Giá trị Name Form1 Caption Commondialog Name cmdopen Caption Open Name cmdsave Caption Save Name cmdappend Caption Append Name cmdexit Caption Exit Ghi Kết thúc chƣơng trình Bƣớc Mở cửa sổ lệnh Form1 gõ vào dòng lệnh sau: Dim f As Integer 'khai bao bien tep Private Sub cmdappend_Click() 104 cdlhopthoai.ShowSave Open cdlhopthoai.FileName For Append As #f Print #f, Txtnd.Text Close f End Sub „ -Private Sub cmdexit_Click() End End Sub Private Sub cmdopen_Click() Dim s As String cdlhopthoai.ShowOpen Open cdlhopthoai.FileName For Input As #f 'Mo tep de doc Do While EOF(f) = False Line Input #f, s Txtnd.Text = Txtnd.Text & s & Chr(13) & Chr(10) Loop Close f 'dong tep End Sub „ -Private Sub cmdsave_Click() cdlhopthoai.ShowSave Open cdlhopthoai.FileName For Output As #f Print #f, Txtnd.Text 'Ghi van ban vao tep Close f End Sub Private Sub Form_Load() f = FreeFile End Sub Bƣớc Chạy chƣơng trình (F5) 4.1.2 Color Dialog Hộp thoại Color cho phép ngƣời sử dụng chọn hiển thị màu từ bảng màu Để hiển thị hộp thoại thi hành ta thực nhƣ sau: Thiết lập giá trị cdlCCRGBInit cho thuộc tính Flags Sử dụng phƣơng thức ShowColor để hiển thị hộp thoại 105 Sử dụng thuộc tính Color để lấy giá trị RGB màu mà ngƣời sử dụng chọn 4.1.3 Font Dialog Hộp thoại Font cho phép ngƣời sử dụng thay đổi font chữ, màu chữ, cỡ chữ, kiểu chữ Khi ngƣời sử dụng thực lựa chọn hộp thoại Font thuộc tính sau lƣu trữ thông tin lựa chọn ngƣời sử dụng Thuộc tính Giải thích Color Trả màu đƣợc ngƣời sử dụng chọn FontBold Cho biết kiểu chữ đậm có đƣợc chọn hay khơng FontItalic Cho biết kiểu chữ nghiêng có đƣợc chọn hay khơng FontStrikethru Cho biết kiểu chữ gạch ngang (strikethrough)có đƣợc chọn hay khơng FontUnderline Cho biết kiểu chữ gạch dƣới (underline)có đƣợc chọn hay không FontName Trả tên font đƣợc ngƣời sử dụng chọn FontSize Trả cỡ chữ đƣợc ngƣời sử chọn Để hiển thị hộp thoại font ta thực nhƣ sau: Thiết lập giá trị cho thuộc tính Flags: o cdlCFScreenFonts (fonts hình) o cdlCFPrinterFonts (fonts máy in) o cdlCFBoth (fonts hình fonts máy in) Sử dụng phƣơng thức ShowFont để hiển thị hộp thoại 4.2 Điều khiển Image List Điều khiển chứa hình ảnh để dùng với điều khiển khác nhƣ ListView, TreeView, TabStrip, ToolBar, PictureBox, Image ImageList hỗ trợ loại file ảnh nhƣ : bitmap (*.bmp), biểu tƣợng (*.ico), GIF (*.gif), JPEG (*.jpg) trỏ (*.cur) Để dùng điều khiển ImageList, ToolBar, StatusBar, ListView, TreeView đề án Visual Basic ta thực nhƣ sau: Từ menu Project ta chọn Components xuất hộp thoại Components, danh sách thành phần ta tích mục “Microsoft Windows Common Controls 6.0 (SP6) sau nhấn OK Các điều khiển đƣợc thêm vào hộp công cụ Visual Basic 106 4.2.1 Thêm phần tử ảnh cho ImageList lúc thiết kế Sau tạo thể điều khiển ImageList lên form ta thực bƣớc sau: Nhấn nút phải chuột lên điều khiển ImageList chọn Properties Chọn Tab Images để xem trang thuộc tính điều khiển Nhấn Insert Picture để hiển thị hộp thoại Select picture Dùng hộp thoại để tìm tệp tin hình ảnh, nhấn Open Ta chọn nhiều tệp tin lúc Chỉ thuộc tính Key cách chọn hộp Key nhập chuỗi Hình 4.1 Hộp thoại Property Pages 4.2.2 Thêm phần tử ảnh cho ImageList vào lúc thi hành Để thêm hình ảnh lúc thi hành ta sử dụng phƣơng thức Add thuộc tính ListImage đối tƣợng ImageList với cú pháp nhƣ sau: ListImage.Add([Index], [Key], [Picture]) Trong đó: Tham số Index xác định vị trí phần tử ảnh đƣợc bổ sung vào danh sách, bỏ qua tham số này, phần tử ảnh đƣợc bổ sung vào cuối danh sách ảnh Tham số Key dùng để đặt tên cho phần tử ảnh, sử dụng sau để truy xuất vào phần tử ảnh đƣợc đặt tên Tham số Picure xác định phần tử ảnh đƣợc bổ sung vào danh sách Ví dụ: ImageList1.ListImages.Add ,"Cut", LoadPicture("d:\bitmaps\cut.bmp") 107 4.2.3 Gỡ bỏ phần tử ảnh khỏi ImageList vào lúc thi hành Để gỡ bở phần tử ảnh khỏi danh sách, ta sử dụng phƣơng thức Remove thuộc tính ListImage đối tƣợng ImageList truyền cho Index Key phần tử cần loại bỏ Ví dụ: ImageList1.ListImages.Remove “Cut” 4.2.4 Truy xuất phần tử ảnh ImageList Để truy xuất hình ảnh từ ImageList gán cho đối tƣợng khác ta sử dụng thuộc tính Picture ListImage Ví dụ: Lập chƣơng trình sử dụng điều khiển: ImageList, Image, Commandbutton, Timer, Commondialog tạo album ảnh cách bổ sung ảnh vào ImageList lúc thi hành hiển thị ảnh lần lƣợt giây ảnh, theo form mẫu: Giải: Bƣớc Thiết kế form cách đƣa điều khiểnImageList, Image, Commandbutton, Timer, Commondialog lên form sau xác định vị trí, kích thƣớc điều khiển cho phù hợp Bƣớc Xác định giá trị cho số thuộc tính điều khiển theo bảng sau: TT Điều khiển Thuộc tính Giá trị Name Form1 Caption Album Image Name Image1 ImageList Name ImageList1 Timer Name Timer1 Form 108 Ghi Commandbutton Commandbutton Commondialog Interval 2000 Name cmdadd Bổ sung ảnh vào Caption Add Imagelist Name cmddisplay Caption Display Name Commondialog1 Hiển thị ảnh Bƣớc Mở cửa sổ Code form1 gõ vào dòng lệnh sau: Dim i As Byte Private Sub cmdAdd_Click() commondialog1.Filter = "Graphics file|*.jpg" commondialog1.ShowOpen imagelist1.ListImages.Add imagelist1.ListImages.Count + LoadPicture(commondialog1.FileName) End Sub „ -Private Sub cmddisplay_Click() If i