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
'代码完毕
2.请问VB中的剪切、复制、粘贴代码怎么写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。
3.vb复制粘贴代码楼上的思路是正确的，不过复制操作应该是复制当前选区而不是整个文本框内容，粘贴应该是将剪帖板内容插入到当前光标所在位置，而不是将文本框原有内容彻底覆盖，另外，通常当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（选中文本）的缩写
4.VB中按钮复制后的代码写法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
5.vb复制粘贴代码楼上的思路是正确的，不过复制操作应该是复制当前选区而不是整个文本框内容，粘贴应该是将剪帖板内容插入到当前光标所在位置，而不是将文本框原有内容彻底覆盖，另外，通常当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（选中文本）的缩写。
6.VB中复制粘贴代码及其原理复制操作应该是复制当前选区而不是整个文本框内容，粘贴应该是将剪帖板内容插入到当前光标所在位置，而不是将文本框原有内容彻底覆盖，另外，通常当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（选中文本）的缩写
