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 subcmdOpenRTFFile_Click()dlgHopThoai.DialogTitle = "Mo file Text"dlgHopThoai.Filter = "Cac file Richtext
(*.RTF)|*.rtf|"dlgHopThoai.ShowopenrtfEditor.LoadFile
dlgHopThoai.FileName, rtfRTFEndSub'/// Mở các file Text (các file có phần mở
rộng là TXT)Private subcmdOpenTextFile_Click()dlgHopThoai.DialogTitle = "Mo file Text"dlgHopThoai.Filter = "Cac file text
rtfTextEndSub'/// 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àyPrivate sub
cmdSaveAs_Click()dlgHopThoai.Filter = "Tất cả các file (*.*)|*.*|"dlgHopThoai.FileName =
""dlgHopThoai.ShowsaveIfdlgHopThoai.FileName <> ""ThenrtfEditor.SaveFile dlgHopThoai.FileName, rtfRTF'/// rtfRTF Hoặc rtfText nếu muốn lưu sang dạng
file TextEndIfEndSub'/// Hiển thị hộp thoại chọn font và thiết lập font chữ cho văn bản trong FTFPrivate subcmdSetFont_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 nền của RTFPrivate sub
cmdSetBackColor_Click()dlgHopThoai.Showcolor'/// Hiển thị hộp thoại chọn màurtfEditor.BackColor =dlgHopThoai.Color'/// Đặt màu nền bằng màu vừa chọnEndSub