请问：如何在textbox中实现自动输入

比如我通过单击一个按扭就在textbox中自动的插入一段文本，textbox控件中好象没有相关的方法呀，请问谁知道怎么解决（通过其他控件解决也可以），先谢了。

解决方案 »

  1.   

    你先取出TextBox的文本(就是Text属性)
    然后找到你要插入的位置(字符操作而已)
    在把新字符弄进去或者你设置TextBox1.SelStart=要插入的位置
    TextBox1.SelText=要插入的文本也可以
      

  2.   

    command1_click()
        text1.SetFocus
        sendkey "你要输入的内容"
      

  3.   

    SelText就可以了，配合SelStart使用，sendkey不太好，毕竟是自己程序的textbox,不是其他程序的。
      

  4.   

    VirtualDesktop(吴滂)的办法就可以了Private Sub Command5_Click()
    Text1.SelStart = 200
    Text1.SelText = "插入的文本"
    End Sub
      

  5.   

    汗一个 
    50飞了 嘎嘎
    Text1.SelStart = 200
    Text1.SelText = "插入的文本"
      

  6.   

    如果要插到末尾就：
    Private Sub Command1_Click()
    Text1.SelStart = len(Text1.Text)
    Text1.SelText = "插入的文本"
    End Sub
      

  7.   

    搞定了，谢谢，没想到sletext还有这功能