Hộp thoại chọn font cũng sử dụng điều khiển Dialog, nó hiển thị và cho phép người dùng chọn các thông số liên quan đến font chữ như tên font, kích thước, kiểu chữ v.v… Các giá trị này khi chọn sẽ được lưu trong các thuộc tính tương ứng của điều khiển Dialog.
Thực hành:Xây dựng chương trình giống như phần 2, nhưng có thêm nút "Đặt font" để khi người dùng click vào nút này thì chương trình sẽ hiển thị hộp thoại chọn font, sau đó đặt font chữ đã chọn cho nội dung chứa trong RichtextBoxFormat.
Các bước thực hiện: Giống như phần 2
Thiết kế giao diện :Giống phần 2 và thêm nút "Set Font" (Name: cmdSetFont, Caption : Set &Font)
Kết quả khi chạy chương trình
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ở
"Mo file Text"dlgHopThoai.Filter = "Cac file text
(*.txt)|*.txt|"dlgHopThoai.ShowopenrtfEditor.LoadFiledlgHopThoai.FileName,
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'/// Đặt font chữ cho toàn bộ văn bản trong Rich
TextBoxPrivate subcmdSetFont_Click()dlgHopThoai.Flags = cdlCFBoth Or cdlCFEffects'/// Phải có dòng nàydlgHopThoai.Showfont'/// Hiển thị hộp thoại chọn fontrtfEditor.Font.Name =dlgHopThoai.FontName'/// Đặt font chữ trong RichtextboxrtfEditor.Font.Size =dlgHopThoai.FontSize'/// bằng với giá trị vừa chọnrtfEditor.Font.Bold = dlgHopThoai.FontBoldrtfEditor.Font.Italic =
dlgHopThoai.FontItalicrtfEditor.Font.Underline =
dlgHopThoai.FontUnderlinertfEditor.Font.Strikethrough = dlgHopThoai.FontStrikethruEndSub
Ghi chú:
• Hộp thoại chọn fontkhông tự đặt font chữcho bất kỳ văn bản nào, việc đó hoàn toàn do lập trình viên quyết định. Nó chỉ cho ta biết được là người dùng đã chọn font có tên là gì, kích thước, kiểu cách v.v… thông qua các thuộc tính tương ứng.
• Có thể đặt font chữ chỉ cho riêng phần văn bản được bôi đen trong RichText thông qua các thuộc tính có tiền tố là Sel…, ví dụ:
………… rtfEditor.SelBold=dlgHopThoai.FontBold rtfEditor.SelItalic=dlgHopThoai.FontItalic rtfEditor.SelFontSize=dlgHopThoai.FontSize rtfEditor.SelFontName=dlgHopThoai.FontName ………