GIÁO TRÌNH MICOSOFT VISUAL BASIC - Chương 15 RichTextbox – Form MDI

RICHTEXTBOX Là một loại Textbox đặc biệt, ngoài các thuộc tính cơ bản của một textbox. RichTextBox còn bao gồm các thuộc tính định dạng văn bản như: - Định dạng font chữ, - Định dạng đoạn văn như bullet, canh lề, - Khả năng nhúng đối tượng (Object Embedding), - Khả năng lưu văn bản dạng text hoặc dạng có định dạng (RTF - Rich Text Format).
Nội dung trích xuất từ tài liệu:
GIÁO TRÌNH MICOSOFT VISUAL BASIC - Chương 15 RichTextbox – Form MDIGiáo trình Visual Basic 6.0 149 Chương 15 RichTextbox – Form MDII. RICHTEXTBOXLà một loại Textbox đặc biệt, ngoài các thuộc tính cơ bản của một textbox.RichTextBox còn bao gồm các thuộc tính định dạng văn bản như: - Định dạng font chữ, - Định dạng đoạn văn như bullet, canh lề, - Khả năng nhúng đối tượng (Object Embedding), - Khả năng lưu văn bản dạng text hoặc dạng có định dạng (RTF - Rich Text Format).RichTextBox không có sẵn trên ToolBox. Sử dụng hộp thoại Components để nạpRichTextBox lên ToolBox.1. Các thuộc tínhCác thuộc tính bổ sung so với textbox Giống thuộc tính SelText của TextBox nhưng có thêm địnhSelRTF dạng Chọn fontSelFontName Chọn font sizeSelFontsize Chọn màuSelFontColor (True/False) Chọn chữ đậmSelBold (True/False) Chọn chữ nghiêngSelItalic (True/False) Chọn chữ gạch chânSelUnderline Canh lề cho đoạn văn, có các giá trị:SelAlignment Null : Phần văn bản chọn trên nhiều đoạn có trạng thái canh lề khác nhau 0 - rtfleft: Canh trái (default) 1 - rtfRight: Canh phải 2 - rtfCenter: Canh giữa (True/False) Đánh bullet cho đoạn vănSelBullet Qui định lề tráiSelIndent Qui định lề phảiSelRightIndentSelHangingIndent Qui định đoạn thụt vào của dòng đầu tiên trong đoạn (True/False) Cho phép xuất hiện menu popup khi bấm phímAutoverbMenu phải trên richtextbox150 Giáo trình Visual Basic 6.02. Các phương thứca. LoadFile Path, FiletypeNạp tập tin Text hoặc RTF lên RichTextBox. Trong đó:Path: Đường dẫnFileType: Loại tập tin nạp (0 - rtfRTF, 1 - rtfText). Giá trị mặc định là rtfRTFVí dụ:Private Sub mnuOpen_Click() On Error GoTo ErrorOpen With CmDlg .InitDir = C:My Documents .Filter = Text (*.txt)|*.txt|RichText format (*.rtf)|*.rtf .FilterIndex = 2 .CancelError = True .ShowOpen rtfData.LoadFile .FileName, rtfRTF Eîxit sub End With ErrorOpen:End Subb. SaveFile Path, FiletypeGhi nội dung RichTextBox lên tập tin. Các tham số và tuỳ chọn giống LoadFileVí dụ:Private Sub mnuSave_Click() On Error GoTo ErrorSave With CmDlg .InitDir = C:My Documents .Filter = Text (*.txt)|*.txt|RichText format (*.rtf)|*.rtf .FilterIndex = 2 .CancelError = True .ShowSave rtfData.SaveFile .FileName, rtfRTF Eîxit sub End With ErrorOpen: MsgBox Not saveEnd SubNguyễn Đăng QuangGiáo trình Visual Basic 6.0 151c. Find(string, start, end, option)Tìm kiếm một chuỗi trong RichTextBox, chuỗi tìm thấy được highlight. Phươngthức trả về giá trị là vị trí đầu tiên của chuỗi trong RichTextBoxCác tham số:String Chuỗi cần tìmStart Vị trí bắt đầu (vị trí đầu tiên = 0)End Vị trí kết thúc tìm kiếmOption Qui định cách thức tìm: 2 - rtfWholeword: Tìm từ trọn vẹn 4 - rtfMatchCase: Phân biệt chữ thường, chữ in Các tham số trên có thể kết hơp bằng phép ORVí dụ: Private Sub mnuFind_Click() Static p As Long p = Form1.Richtxt.Find(txtFind.Text, p + 1) If p -1 Then MsgBox Find text at position & p Else MsgBox Search text not found End If End Subd. GetLineFromChar(charpos)Cho giá trị là số thứ tự dòng chứa vị trí cần xétVí dụ: Private Sub mnuFind_Click() Static p As Long p = Form1.Richtxt.Find(txtFind.Text, p + 1) If p -1 Then MsgBox Find text at line & Form1.Richtxt.GetLineFromChar(p) Else MsgBox Search text not found End If End SubII. SỬ DỤNG RICHTEXTBOX 1. Chọn dáng vẻ Font chữ (Font style) bằng nút lệnh trên Toolbar Private Sub tbr_ButtonClick(ByVal Button As MSComctlLib.Button)152 Giáo trình Visual Basic 6.0 Select Case Button.Index Case 8 rtfBox.SelBold = Not rtfBox.SelBold Case 9 rtfBox.SelItalic = Not rtfBox.SelItalic Case 10 rtfBox.SelUnderline = Not rtfBox.SelUnderline Case 11 rtfBox.SelAlignment = ...