請問VB全選＋複製的程式碼怎用呢?內祥..幫幫忙..

Question

例如我以下列來做舉例
－－－－－－－－－－
－　　TEXT1　　　－
－　全選＋複製　　－
－－－－－－－－－－
TEXT1是一個小框框裡面可以打字的
然後全選 複製是一個按鈕
如果我要把TEXT1裡面的文字全選 複製起來
我該輸入什麼程式碼呢!?

不是用鍵盤的全選+複製的..
我要用按鈕的..

我要按鈕的 一次有兩種功能的 就是按下去就是
全選複製了..另外..二樓的大大 我不能用你給的耶

Answer 1

Private Sub Command1_Click()
Clipboard.Clear '清除剪貼簿
Clipboard.SetText Text1.Text '將Text1內的內容複製到剪貼簿
Text2.Text = Clipboard.GetText '將剪貼簿內的貼到Text2
End Sub

Answer 2

在按鈕裡寫

DIM TEMP AS STRING '設在這裡，讓ＴＥＭＰ每次內容被清除
TEXT1.SELTEXT=TEXT1.TEXT
TEMP=TEXT1.SELTEXT

試看看吧，我也不確定可不可以用

Answer 3

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click        TextBox1.SelectAll()End SubPrivate Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click        TextBox1.Copy()End SubPrivate Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click        TextBox2.Paste()End Sub

Answer 4

試看看用 sendkey 送 ctrl-a, ctrl-c 看看。