如何让程序实现这样的功能？

来源：百度知道 编辑：UC知道 时间：2024/09/20 20:48:02
如何让程序实现这样的功能？

假如我在RTF文本控件中输入了一段文字，当我用鼠标左键按下选中其中一部分后再进行一些“设置”（用自己程序中的功能），下次鼠标移至此文字后，它会获得焦点或者出现一个对话框？

添加一个按钮，一个列表，一个rtf控件。

Private Sub Command1_Click()
List1.AddItem RichTextBox1.SelStart & ";" & RichTextBox1.SelLength
End Sub

Private Sub RichTextBox1_SelChange()
For i = 0 To List1.ListCount
If RichTextBox1.SelStart & ";" & RichTextBox1.SelLength = List1.List(i) Then '如果不要求十分准确，也可以通过算法判断是否在一个范围内
MsgBox "Show dialog" '或者获得焦点？
End If
Next i
End Sub

'按钮是设置按钮，选中rtf中的文字，单击按钮，就算是“设置”了。下次点选刚才选中的rtf文字，会显示show dialog对话框