vb中複製代碼怎麼寫

Private Sub CmdCopy_Click()

Clipboard.SetText TxtContent.SelText

End Sub

Private Sub CmdPaste_Click()

TxtContent.SelText = Clipboard.GetText

End Sub

Private Sub CmdCopy_Click()

'這只是按鈕代碼的起始而已，按鈕名叫做CmdCopy，事件是單擊

Clipboard.SetText TxtContent.SelText

'Clipboard指剪貼板；SetText是剪貼板對象的一個方法，用來設定剪貼板的內容；TxtContent是指一個文字方塊；SelText是文字方塊的一個屬性，指文字方塊的內容

'翻譯過來就是把剪貼板的內容設爲文字方塊的內容，就是複製（因爲原內容並沒有消失，要實現剪切，在這句後面加一句TxtContent.SelText = ""）

End Sub

'代碼完畢

Private Sub CmdPaste_Click()

'按鈕名叫CmdPaste，事件是單擊

TxtContent.SelText = Clipboard.GetText

'TxtContent.SelText參見上文。Clipboard仍然指剪貼板，GetText指剪貼板的內容，是一個屬性）

'翻譯過來就是把文字方塊的內容設爲剪貼板的內容，就是粘貼了

End Sub

'代碼完畢

Private Sub Check1_Click() Text1.FontName = "隸書" End Sub Private Sub Check2_Click() If Check2.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False End If End Sub Private Sub Check3_Click() If Check3.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End If End Sub Private Sub Option1_Click() If Option1.Value = True Then Text1.Text = "計算機應用技術 計算機應用技術" End If End Sub Private Sub Option2_Click() Clipboard.Clear Clipboard.SetText Text1.SelText Text1.Text = "" End Sub Private Sub Option3_Click() If Option3.Value = True Then Text1.Text = "計算機應用技術 計算機應用技術" End If End Sub。

樓上的思路是正確的，不過複製操作應該是複製當前選區而不是整個文字方塊內容，粘貼應該是將剪帖板內容插入到當前遊標所在位置，而不是將文字方塊原有內容徹底覆蓋，另外，通常當Text1沒選中文字時，要使複製按鈕Command1不可用

Private Sub Command1_Click()

Clipboard.SetText Text1.SelText

End Sub

Private Sub Command2_Click()

If Len(Clipboard.GetText) Then

Text1.SelText = Clipboard.GetText

End If

End Sub

Private Sub Form_Load()

Command1.Enabled = False

End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

Command1.Enabled = Text1.SelLength > 0

End Sub

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then

Command1.Enabled = Text1.SelLength > 0

End If

End Sub

比如Text1的內容爲abc，而當前只選中了第一個字元"a"

那麼Text1.text表示文字方塊的全部內容，即"abc"

而Text1.SelText表示文字方塊中當前選中的內容，即a--selText是select text（選中文字）的縮寫

Private Sub Command1_Click(Index As Integer)

INDEX=1時就是Command1(1),INDEX=2就是Command1(2)。可以這樣：

SELECT CASE INDEX

CASE 1

按下Command1(1)時

CASE 2

按下Command1(2)時

.

.

.

END SELECT

End Sub

樓上的思路是正確的，不過複製操作應該是複製當前選區而不是整個文字方塊內容，粘貼應該是將剪帖板內容插入到當前遊標所在位置，而不是將文字方塊原有內容徹底覆蓋，另外，通常當Text1沒選中文字時，要使複製按鈕Command1不可用Private Sub Command1_Click() Clipboard.SetText Text1.SelTextEnd SubPrivate Sub Command2_Click() If Len(Clipboard.GetText) Then Text1.SelText = Clipboard.GetText End IfEnd SubPrivate Sub Form_Load() Command1.Enabled = FalseEnd SubPrivate Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) Command1.Enabled = Text1.SelLength > 0End SubPrivate Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Command1.Enabled = Text1.SelLength > 0 End IfEnd Sub比如Text1的內容爲abc，而當前只選中了第一個字元"a"那麼Text1.text表示文字方塊的全部內容，即"abc"而Text1.SelText表示文字方塊中當前選中的內容，即a--selText是select text（選中文字）的縮寫。

複製操作應該是複製當前選區而不是整個文字方塊內容，粘貼應該是將剪帖板內容插入到當前遊標所在位置，而不是將文字方塊原有內容徹底覆蓋，另外，通常當Text1沒選中文字時，要使複製按鈕Command1不可用

Private Sub Command1_Click()

Clipboard.SetText Text1.SelText

End Sub

Private Sub Command2_Click()

If Len(Clipboard.GetText) Then

Text1.SelText = Clipboard.GetText

End If

End Sub

Private Sub Form_Load()

Command1.Enabled = False

End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

Command1.Enabled = Text1.SelLength > 0

End Sub

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then

Command1.Enabled = Text1.SelLength > 0

End If

End Sub

比如Text1的內容爲abc，而當前只選中了第一個字元"a"

那麼Text1.text表示文字方塊的全部內容，即"abc"

而Text1.SelText表示文字方塊中當前選中的內容，即a--selText是select text（選中文字）的縮寫