用selstart和sellength可以取回选中的文本,再用剪贴板对象处理就行

解决方案 »

  1.   

    Hi!luckywb:
    给你一段我编的程序作为参考!
    txtFilename.SetFocus
    txtFilename.SelStart = 0
    txtFilename.SelLength = Len(txtFilename)
    Clipboard.Clear
    Clipboard.SetText txtFilename
      

  2.   

    Sorry! 是Clipboard.SetText txtFilename.SelText 
    刚才没粘贴完!
      

  3.   

    沧海桑田兄:
        以上的程序txtfilename代表的是什么
        此程序在什么过程中运行呢??
        谢谢赐教
      

  4.   

    用richtextbox全部替换txtfilename就可以了!
      

  5.   

    或者
    Private Sub richtextbox_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Clipboard.Clear
    Clipboard.SetText richtextbox.SelText 
    End Sub
      

  6.   

    AFIHA(法海):
    大家可以互相交流,互相学习!
    我们不是黑社会,不收小弟。 :)
    开个玩笑了,希望AFIHA(法海)不要介意!
      

  7.   

    好的!我也很爱交朋友。我的EMAIL:[email protected]
      

  8.   

    多谢多谢,
    我的: [email protected]
    先给兄弟介绍几本好书吧(基础的我会一点点,来点中间难度的,麻烦了)
      

  9.   

    虚步玲珑,是zhangfengyin吧?也来解答我(happy_gambler)的问题吧。