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（選中文字）的縮寫