Giáo trình Thực hành với Visual Basic: Phần 2

"Giáo trình Thực hành với Visual Basic: Phần 2" nối tiếp phần 1 với các bài thực hành sử dụng các hộp thoại; sử dụng menu và các thanh công cụ; tạo, thao tác với cơ sở dữ liệu và sử dụng các đối tượng. Mời các bạn cùng tham khảo đầy đủ 2 phần của giáo trình để nắm chi tiết nội dung kiến thức.
Nội dung trích xuất từ tài liệu:
Giáo trình Thực hành với Visual Basic: Phần 2Bài thực hành số 4: Sử dụng các hộp thoạiSử dụng các hộp thoạiHiển thị các loại hộp thoại OPENHộp thoại Open (Open dialog) là một hộp thoại chuẩn cho phép người dùng chọn mộtfile hay một thư mục.Thực hành: Viết chương trình mở một file (Text hoặc rtf) và hiển thị trong điều khiểnRichtext Box.Các bước thực hiện:Bước 1: Tạo một Project mớiBước 2: Vào menu Project → Components và tham chiếu đến 2 file OCX là RichTextbox và Common Dialog như hình 1Bước 3: Kéo điều khiển Dialog và Richtext vào Form Các điều khiển dùng trong chương trìnhThiết kế giao diện: 71/139 Giao diện và kết quả khi chạy chương trìnhĐặt giá trị cho các thuộc tính:Điều khiển Thuộc tính / Giá trị Name : frmMainCaption: Sử dụng hộp thoại OpenStartupForm Position: 2- CenterScreenRich Textbox Name : rtfEditorAutoVerbMenu: TrueScrollBars : 3 - BorthControlCommonDialog Name: dlgHopThoai (Hộp thoại)Command Name : cmdOpenTextFileCaption: Mở file &TextbuttonCommand Name : cmdOpenRTFFileCaption: Mở file &RTFButtonViết lệnh:frmMain.frmOption Explicit/// Mở các file Richtext Format (các file có phần mở rộng làRTF)Private sub cmdOpenRTFFile_Click()dlgHopThoai.DialogTitle = Mo fileText /// Tiêu đề của hộp thoạidlgHopThoai.Filter = Cac file Richtext(*.RTF)|*.rtf| /// Chỉ hiển thị các file RTFdlgHopThoai.Showopen /// Hiển thịhộp thoạirtfEditor.LoadFile dlgHopThoai.FileName, rtfRTF /// Mở file vừa chọntrong RTFEndSub/// Mở các file Text (các file có phần mở rộng là TXT)Privatesub cmdOpenTextFile_Click()dlgHopThoai.DialogTitle = Mo fileTextdlgHopThoai.Filter = Cac file text 72/139(*.txt)|*.txt|dlgHopThoai.ShowopenrtfEditor.LoadFile dlgHopThoai.FileName,rtfTextEndSubGhi chú: • Phương thức LoadFile của điều khiển Richtext dùng để mở một file. Nó đòi hỏi 2 tham số, tham số thứ nhất là đường dẫn đến file cần mở, tham số thứ hai là loại file cần mở (Tham số này là tuỳ chọn và có thể bỏ qua). • Thuộc tính 2- CenterScreen dùng để đặt Form vào giữa màn hình khi hiển thị. • Thuộc tính AutoVerbMenu = True của điều khiển Richtext để cho phép hiển thị menu (Copy, cut, Paste, Undo) khi người dùng click chuột phải lên Richtext control. • Trong trường hợp, khi hộp thoại mở ra, nếu người dùng không chọn file nào (Chọn nút Cancel) thì thuộc tính FileName sẽ có giá trị ở lần mở trước đó hoặc sẽ có giá trị rỗng, và như vậy có thể gây lỗi nạp file. Để giải quyết trường hợp này, có thể viết lại đoạn chương trình trên 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ướcdlgHopThoai.ShowopenIf dlgHopThoai.FileName Then /// Đã chọn filertfEditor.LoadFile dlgHopThoai.FileName, rtfRTFEnd IfEnd SubHiển thị các loại hộp thoại SAVE - SAVE ASHộp thoại Save (hay Save As) về thực chất cũng chính là hộp thoại Open (Cùng sử dụngđiều khiển Dialog) nhưng có điểm khác là tiêu đề của hộp thoại này mặc định bây giờ làSave As thay vì Open để người dùng có cảm giác thân thiện hơn. Tiêu đề của hộpthoại luôn luôn có thể thay đổi được bằng cách thay đổi thuộc tính DialogTitle.Thực hành: Xây dựng chương trình giống như phần 1 nhưng có thêm nút Save As đểkhi người dùng click vào nút này thì nội dung đang soạn thảo sẽ được lưu ra đĩa với mộttên file mới. 73/139Các bước thực hiện: Giống như phần 1Thiết kế giao diện: Thêm nút Save (Name: cmdSaveAs, Caption: &Save As) Giao diện và kết quả chạy chương trìnhViết lệnh:frmMain.frmOption Explicit/// Mở các file Richtext Format (các file có phần mở rộng làRTF)Private sub cmdOpenRTFFile_Click()dlgHopThoai.DialogTitle = Mo fileText /// Đặ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ọnfilertfEditor.LoadFile dlgHopThoai.FileName, rtfRTF /// Nạp file vàoRichtextboxEndSub/// Mở các file Text (các file có phần mở rộng là TXT)Privatesub cmdOpenTextFile_Click()dlgHopThoai.DialogTitle = Mo fileTextdlgHopThoai.Filter = Cac file text(*.txt)|*.txt|dlgHopThoai.ShowopenrtfEditor.LoadFile dlgHopThoai.FileName,rtfTextEndSub/// Thực hiện mở hộp thoại để cho người dùng gõ một tên filemới/// và lưu nội dung đang soạn thảo ra file nàyPrivate subcmdSaveAs_Click()dlgHopThoai.Filter = Tất cả các file(*.*)|*.*|dlgHopThoai.FileName = dlgHopThoai.Showsave/// Mở hộp thoạiSave AsIfdlg ...