richtextbox失去焦点后如何保持高亮显示所选择的内容？

Question

我求教的是别人问过的同样问题：怎样实现richtextbox失去焦点后如何保持高亮显示所选择的内容?我想改变richtextbox中选定的部分字符的字型和大小，选中后保持高亮，然后鼠标移至指定字型或大小的list框，在按下鼠标后，原选定的高亮文本不能保持高亮（但后面操作看出，仍处于被选定的状态），改变达到目的后因其仍处于选定状态，很容易发生误操作！请问如何解决上述问题？即要求字符的字型或大小改变达到目的前保持高亮，达到目的后立即失去焦点（即解除选定状态）。谢谢！代码如下：
Private Sub list1_click()
   RichText1.SelFontName = list1.List(list1.ListIndex)
End SubPrivate Sub list2_click()
   RichText1.SelFontSize = list2.List(list2.ListIndex)
End Sub

Answer 1

HideSelection 属性 （ActiveX 控件）
      返回一个值，以决定当控件失去焦点时选择文本是否加亮显示。语法object.HideSelectionobject 所在处代表一个对象表达式 ，其值是“应用于”列表中的一个对象。返回值 HideSelection 返回值为:值 描述 
True （缺省值）当控件失去焦点时，选择文本不加亮显示。 
False 当控件失去焦点时，选择文本加亮显示。 
说明该属性用于指示在另一个窗体或对话框拥有焦点时，哪些文本要加亮显示──例如，可用在拼写检查程序中。

Answer 2

干么要用list框去改变richtextbox框中字体属性呢，你完全可以制作一个菜单并添加所有字体，然后以快捷菜单形式弹出选择字体属性多好，或者更简单的用commondialog控件showfont多好！试试看！具体用法参照msdn。

Answer 3

我是求教的人，zhqsoft说的是改变全部框内字体的属性！我的要求是改变
所选个别的字串的属性！zyl910(910：分儿，我又来了！) 是高手无疑！我在别处曾看到研究论文，
不辞辛苦到这儿解决我等菜手的问题，真是值得称道看齐！谢谢了！先给分，我不会用的话我会再问的。