VisualBasic6.0程序設計第6章菜單和工具欄設計————任務1制作寫字板程序2／9任務1制作寫字板程序RichTextBox控件：用途：多格式文本框（RichTextBox），允許用戶輸入和編輯文本的同時提供了比普通的TextBox控件所沒有的更高級的指定格式的許多功能。重點屬性如下：SelLength、SelStart、SelText：SelLength返回或設置所選擇的字符數(選中文本字符數)例：rtbBox.SelLength=Len(rtbBox.Text)SelStart返回或設置所選擇的文本的起始點（選中文本的起點）例：rtbBox.SelStart=0SelStart和SelLength配合使用可實現全選功能例：rtbBox.SelStart=0rtbBox.SelLength=Len(rtbBox.Text)第5章目錄3／9任務1制作寫字板程序RichTextBox控件：用途：多格式文本框（RichTextBox），允許用戶輸入和編輯文本的同時提供了比普通的TextBox控件所沒有的更高級的指定格式的許多功能。重點屬性如下：SelLength、SelStart、SelText：SelText返回或設置包含當前所選擇文本的字符串(選中文本內容)例：Clipboard.SetTextrtbBox.SelText'設置剪貼板內容可實現剪切、復制、粘貼功能例：Clipboard.SetTextrtbBox.SelText‘復制rtbBox.SelText="“‘剪切rtbBox.SelText=Clipboard.GetText‘粘貼第5章目錄4／9任務1制作寫字板程序RichTextBox控件：用途：多格式文本框（RichTextBox），允許用戶輸入和編輯文本的同時提供了比普通的TextBox控件所沒有的更高級的指定格式的許多功能。重點屬性如下：SelRTF:含有當前選定的RTF格式文本。利用SelRTF屬性和剪貼板（Clipboad）對象可以實現多格式文本的剪切、復制和粘貼操作。例：’剪貼板對象的GetText方法用于從剪貼板中粘貼文本。RichTextBox1.SelRTF=Clipboard.GetText(vbCFRTF)第5章目錄5／9任務1制作寫字板程序RichTextBox控件：用途：多格式文本框（RichTextBox），允許用戶輸入和編輯文本的同時提供了比普通的TextBox控件所沒有的更高級的指定格式的許多功能。重要方法如下：Find方法：用于搜索特定字符串。若找到待查內容則將其反相顯示，并返回其位置；若未找到則返回-1。Find方法的調用格式為：RichTextBox控件名稱.Find(待查字符串[，起始位置，結束位置，選項])可實現查找文本功能例：

IfRichTextBox1.Find(strFind)=-1ThenIf.Find(strFind,,Len(.TextRTF))=-1查找下一項第5章目錄6／9任務1制作寫字板程序RichTextBox控件：用途：多格式文本框（RichTextBox），允許用戶輸入和編輯文本的同時提供了比普通的TextBox控件所沒有的更高級的指定格式的許多功能。常用方法如下：LoadFile方法：用于裝載文件語法：object.LoadFilepathname,filetype可實現打開文本功能'打開RTF文件RichTextBox1.LoadFile.FileName,rtfRTF'打開文本文件RichTextBox1.LoadFile.FileName,rtfText例：rtbBox.LoadFilesFileName'在文本框中加載所選文件第5章目錄7／9任務1制作寫字板程序RichTextBox控件：用途：多格式文本框（RichTextBox），允許用戶輸入和編輯文本的同時提供了比普通的TextBox控件所沒有的更高級的指定格式的許多功能。常用方法如下：SaveFile方法：把控件的內容存入文件語法：object.SaveFilepathname,filetype可實現保存文本功能'保存文件為RTF格式RichTextBox1.SaveFile.FileName,rtfRTF'保存文本文件RichTextBox1.SaveFile.FileName,rtfText例：rtbBox.SaveFilesFileName'將文本框內容保存到文件中第5章目錄8／9任務1制作寫字板程序Clipboard對象：用途：提供對系統剪貼板的訪問。常用方法如下：Clear：清除剪貼板上的信息語法：Clipboard.Clear（

清空剪貼板）例：Clipboard.Clear

'清空剪貼板Clipboard.SetTextRichTextBox1.SelRTF,_vbCFRTF'向剪貼板傳送RTF文本GetData：從剪貼板上讀取圖形信息（從剪貼板中粘貼圖形）語法：Clipboard.GetData(format)GetText:從剪貼板上讀取文本信息（從剪貼板中粘貼文本）語法：Clipboard.GetText(format)RichTextBox1.SelRTF=Clipboard.GetText(vbCFRTF)rtbBox.SelText=Clipboard.GetText'將剪貼板內容插入文本框中

第5章目錄9／9任務1制作寫字板程序Clipboard對象：用途：提供對系統剪貼板的訪問。常用方法如下：SetData:將圖形拷貝到剪貼板（將圖片文件發送到剪貼板）語法：Clipboard.SetDatadata,format例：Clipboard.Clear

'清空剪貼板Clipboard.SetData_LoadPicture(CommonDialog1.FileName)'將圖片文件發送到剪貼板SetText:將文本拷貝到剪貼板（將文本文件發送到剪貼板）語法：Clipboa