none
如何編寫貼上程式碼? RRS feed

  • 問題

  • 1.我是在 RichTextBox內處理字串。

    2.我使用下列程式碼,由剪貼簿中取得字串。

        Dim text As String
           If  My.Computer.Clipboard.ContainsText Then
                text = My.Computer.Clipboard.GetText
          End If

    3. 字串取得之後,請問如何編寫「貼上」程式碼,使字串能插入到插入點符號(焦點)的後方,其效果如按Ctrl+V。

     

    敬請指導...謝謝。

    2007年6月22日 下午 01:59

解答

  • Hi,

    簡單的方式你可以用SendKeys.Send來做這樣的功能,例如

    Code Snippet

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            RichTextBox1.Focus()
            SendKeys.Send(Clipboard.GetText())
        End Sub

     

        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            My.Computer.Clipboard.SetText(Now.ToString)
        End Sub

     

     

    2007年6月22日 下午 03:22
    版主

所有回覆

  • Hi,

    簡單的方式你可以用SendKeys.Send來做這樣的功能,例如

    Code Snippet

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            RichTextBox1.Focus()
            SendKeys.Send(Clipboard.GetText())
        End Sub

     

        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            My.Computer.Clipboard.SetText(Now.ToString)
        End Sub

     

     

    2007年6月22日 下午 03:22
    版主
  • 取得游標位置後,用 Left 跟 mid 組合即可。

    ex.

    程式碼

    With RichTextBox

       .Text = Left(.Text, .SelectStart - 1) & My.Computer.Clipboard.GetText & Mid(.Text, .SelectStart)

    End With

     

    不過你的標題跟你的內文不和,不太知道你到底在問什麼,以你的內文來說,標題改成「如何以程式碼插入字串」比較合適,若是你標題沒錯,哪建議你重新整理你的內文,因為我看的意思是這樣。

     

    2007年6月22日 下午 03:28
    版主
  • 1.感謝兩位資深前輩的指導,辛苦了。

    2.bauann前輩的答案正是我要的。

     

    再謝,bye..

    2007年6月22日 下午 03:39