求助诸位大侠 —— 关于文本框的问题！

text有一个selText属性Private Sub Command1_Click()
    MsgBox Text1.SelText
End Sub你看看结果.

解决方案 »

  1.   

    Text1.SelText  获得选中的字符串
    Text1.SelLength  选中的字符串得长度
    Text1.SelStart   选中的字符串起始位置
    灵活用这3个，一定能满足你的要求
      

  2.   

    这个应该不怎么难
    你可能要用到下面的属性
    Text1.selstart()----选择光标开始点
    Text1.selLength()----返回用户选择文本的长度
    Text1.SelText()-----返回当前所选的文本
    你上面的问题可以这样解决：
    直接在按钮点击中添加：
    if(text2.selLength>0) then
    text1.text=text2.selText
    endif这样就可解决。关于自动添加句号，你可在文本末自己添加
      

  3.   

    text2选择以后，点击添加按钮，加入下面一句话即可。
    Text1.Text = text1.text & "。" & Text2.SelText
      

  4.   

    MsgBox Text2.SelLength & "   " & Text2.SelStartsellength选中的长度
    selstart选中的位置，第一个为0
      

  5.   

    应该不用知道吧，只要是选择了sellength()的值就大于0
    然后进行赋值就可以了
    接着将焦点重新定位，加一个句号就ok了
      

  6.   

    当然可以
    看看这三个属性
    SelText  
    SelLength  
    SelStart
      

  7.   

    只需要把两个文本框的oledragmode属性 设置为1-automatic即可