Hộp thoại hiển thị bảng màu (Color) cũng nằm trong điều khiển Dialog. Sau khi hiển thị, hộp thoại này sẽ cho ta biết là người dùng đã chọn màu có giá trị là bao nhiêu. Giá trị này sẽ tương ứng với một màu xác định và thường được sử dụng cho mục đích đặt màu chữ, màu nền v.v… cho các thành phần khác.
Thực hành: Giống phần 3 nhưng thêm khả năng đặt màu nền cho Richtextbox khi người dùng click vào nút "Set BackColor".
Các bước thực hiện: Như phần 3
Thiết kế giao diện: Như phần 3 và 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ở các file Richtext Format (các file có phần mở rộng là RTF)
Private sub cmdOpenRTFFile_Click() dlgHopThoai.DialogTitle = "Mo file Text"
dlgHopThoai.Filter = "Cac file Richtext (*.RTF)|*.rtf|" dlgHopThoai.Showopen
Ngôn ngữ lập trình Visual Basic
48
rtfEditor.LoadFile
dlgHopThoai.FileName, rtfRTF
End Sub'/// Mở các file Text (các file có phần mở rộng là TXT) Private sub cmdOpenTextFile_Click()
dlgHopThoai.DialogTitle = "Mo file Text" dlgHopThoai.Filter = "Cac file text (*.txt)|*.txt|" dlgHopThoai.Showopen
rtfEditor.LoadFile dlgHopThoai.FileName, rtfText
End Sub'/// Thực hiện mở hộp thoại để cho người dùng gõ một tên file mới'/// và
lưu nội dung đang soạn thảo ra file này
Private sub cmdSaveAs_Click()
dlgHopThoai.Filter = "Tất cả các file (*.*)|*.*|" dlgHopThoai.FileName = ""
dlgHopThoai.Showsave
If dlgHopThoai.FileName <> "" Then
rtfEditor.SaveFile dlgHopThoai.FileName, rtfRTF'/// rtfRTF Hoặc rtfText nếu muốn lưu sang dạng file Text
End If
End Sub'/// Hiển thị hộp thoại chọn font và thiết lập font chữ cho văn bản trong
Private sub cmdSetFont_Click()
dlgHopThoai.Flags = cdlCFBoth Or cdlCFEffects dlgHopThoai.Showfont rtfEditor.Font.Name = dlgHopThoai.FontName rtfEditor.Font.Size = dlgHopThoai.FontSize rtfEditor.Font.Bold = dlgHopThoai.FontBold rtfEditor.Font.Italic = dlgHopThoai.FontItalic rtfEditor.Font.Underline = dlgHopThoai.FontUnderline rtfEditor.Font.Strikethrough = dlgHopThoai.FontStrikethru
End Sub'/// Hiển thị hộp thoại chọn màu sau đó đặt màu vừa chọn cho nền của Private sub cmdSetBackColor_Click()
dlgHopThoai.Showcolor'/// Hiển thị hộp thoại chọn màu
rtfEditor.BackColor = dlgHopThoai.Color '/// Đặt màu nền bằng màu vừa chọn
End Sub