BÀI TẬP LẬP TRÌNH HƯỚNG SỰ KIỆN - CHƯƠNG 3

SỬ DỤNG HỘP THOẠI CHUẨN & MENUMỤC TIÊU: SAU KHI HOÀN THÀNH CÁC BÀI TẬP, NGƯỜI HỌC CÓ THỂ Xây dựng được các hệ thống menu một cấp nhiều cấp, menu Popup Xây dựng được các hệ thống thanh công cụ - Toolbar. Sử dụng thành thạo các thuộc tính và phương thức của điều khiển Dialog Phân biệt được giữa ứng dụng đa cửa sổ và đơn cửa sổ. Viết được một ứng dụng soạn thảo văn bản đơn giản với đa cửa sổ. ...
Nội dung trích xuất từ tài liệu:
BÀI TẬP LẬP TRÌNH HƯỚNG SỰ KIỆN - CHƯƠNG 3BÀI TẬP LẬP TRÌNH HƯỚNG SỰ KIỆN Biên soạn: Bộ môn CNPM–ĐHSPKT HY 2005 Ch−¬ng iiI SỬ DỤNG HỘP THOẠI CHUẨN & MENUMỤC TIÊU: SAU KHI HOÀN THÀNH CÁC BÀI TẬP, NGƯỜI HỌC CÓ THỂ Xây dựng được các hệ thống menu một cấp nhiều cấp, menu Popup Xây dựng được các hệ thống thanh công cụ - Toolbar. Sử dụng thành thạo các thuộc tính và phương thức của điều khiển Dialog Phân biệt được giữa ứng dụng đa cửa sổ và đơn cửa sổ. Viết được một ứng dụng soạn thảo văn bản đơn giản với đa cửa sổ.A - ĐỀ BÀI TẬPBài 1: Xây dựng chương trình soạn thảo văn bản sử dụng điều khiển RichText. Hình 3.1 – giao diện chương trìnhYêu cầu: • Chương trình hỗ trợ các phím tắt (Ctrl-O để mở, Ctrl-S để lưu v.v…) • Có thể định dạng chữ Đậm, nghiêng, gạch chân bằng cách nhấn tổ hợp phím tắt tương ứng là Ctrl-B, Ctrl-I, Ctrl-U. • Vùng soạn thảo (Textbox) có thể thay đổi kích thước khi Form thay đổi. • Khi một mục trên thanh menu được chọn thì mục đó sẽ được đánh dấu Bài 2: Xây dựng chương trình như bài 1 nhưng có thêm menu Màu chữ chophép người dùng đặt màu chữ cho nội dung văn bản. Hình 3.2 – Giao diện chương trình (Có thêm mục chọn Màu chữ) Trang 80BÀI TẬP LẬP TRÌNH HƯỚNG SỰ KIỆN Biên soạn: Bộ môn CNPM–ĐHSPKT HY 2005Bài 3: Xây dựng chương trình như bài 2, nhưng thêm khả năng hiển thị menungữ cảnh như sau: Khi người dùng chọn một đoạn văn bản và click chuột phải trongRichtextbox thì hiển thị (Popup) menu Định dạng còn khi người dùng không chọnđoạn văn bản nào nhưng click chuột phải thì hiển thị Menu File. Tuy nhiên, việcđịnh dạng font chữ ở đây là định dạng riêng cho phần được bôi đen. Hình 3.3 - Hiển thị menu cảm ngữ cảnhBài 4: Xây dựng chương trình như bài 3 nhưng sử dụng cơ chế đa cửa sổ(Multi documents). Tức là chương trình cho phép soạn thảo nhiều tệp tin trong nhiềucửa sổ khác nhau. Hình 3.4 - Hệ thống đa cửa sổ (MultiDocuments)Bài 5: Xây dựng chương trình như bài 4, nhưng thêm một số mục trên thanhMenu của FormMDI bằng các nút lệnh trên thanh công cụ (ToolBar). Hình 3.5 - Hệ thống soạn thảo đa cửa sổ với thanh công cụ Trang 81 BÀI TẬP LẬP TRÌNH HƯỚNG SỰ KIỆN Biên soạn: Bộ môn CNPM–ĐHSPKT HY 2005Bài 6 : Như bài 5 nhưng chương trình có thêm thanh trạng thái (status bar) trongform chính (Xem hình 6). Trong thanh trạng thái có 3 ô, ô thứ nhất cho biết tổng sốký tự trong Richtextbox, ô thứ hai hiển thị thời gian, ô thứ 3 hiển thị ngày trong máytính. Hình 3.6 - Bổ sung thêm thanh trạng thái Trang 82 BÀI TẬP LẬP TRÌNH HƯỚNG SỰ KIỆN Biên soạn: Bộ môn CNPM–ĐHSPKT HY 2005B. HƯỚNG DẪN - GIẢI MẪUBài 1a. Thiết kế giao diện Hình 3.10 – Giao diện chương trình Hình 3.11 - Đặt tên cho mục MenuNgoài ra, trong lúc thiết kế đặt thuộc tính Scrollbar của Richtextbox là 3- Bothb. Hướng dẫn: • Kết hợp sử dụng điều khiển Common Dialog để mở, lưu File • Sử dụng phương thức LoadFile, SaveFile để nạp, lưu file đang soạn thảoc. Chương trình mẫu Option Explicit /// Xử lý khi người dùng click vào mục Đặt Font chữ trên menu Private Sub mnuFont_Click() dlgMain.Flags = cdlCFBoth Or cdlCFEffects /// Phải có trước khi ShowFont dlgMain.ShowFont /// Hiển thị hộp thoại chọn font /// Đặt font chữ của Richtext theo như thông tin người dùng đã chọn rtfNoiDung.Font.Name = dlgMain.FontName Trang 83 BÀI TẬP LẬP TRÌNH HƯỚNG SỰ KIỆN Biên soạn: Bộ môn CNPM–ĐHSPKT HY 2005 rtfNoiDung.Font.Bold = dlgMain.FontBold rtfNoiDung.Font.Italic = dlgMain.FontItalic rtfNoiDung.Font.Underline = dlgMain.FontUnderline rtfNoiDung.Font.Size = dlgMain.FontSize End Sub /// Đảo lại trạng thái trước đó: Nghiêng Không nghiêng, Chọn Không chọn Private Sub mnuItalic_Click() mnuItalic.Checked = Not mnuItalic.Checked /// Hiện / ẩn dấu tích ( ) rtfNoiDung.Font.Italic = Not rtfNoiDung.Font.Italic ///Nghiêng Không nghiêng End Sub /// Xử lý cập nhật lại định dạng và trạng thái chọn khi người dùng chọn Chữ nghiêng Private Sub mnuUnderline_Click() mnuUnderline.Checked = Not mnuUnderline.Checked rtfNoiDung.Font.Underline = Not rtfNoiDung.Font.Underline End Sub /// Xử lý cập nhật lại định dạng và trạng thái chọn khi người dùng chọn Chữ đậm Private Sub mnuBold_Click() mnuBold.Checked = Not mnuBold. ...