vb复制粘贴代码
更新日期：2024.05.16
复制操作应该是复制当前选区而不是整个文本框内容,粘贴应该是将剪帖板内容插入到当前光标所在位置,而不是将文本框原有内容彻底覆盖,另外,通常当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 Butt Then
Command1.Enabled = Text1.SelLength > 0
End If
End Sub
比如Text1的内容为abc，而当前只选中了第一个字符a
那么Text1.text表示文本框的全部内容，即abc
而Text1.SelText表示文本框中当前选中的内容，即a--selText是select text（选中文字）的缩写
15172411498 :用VB实现复制粘贴
石振兔2886 :答：VB提供了对象Clipboard完成剪贴板的操作 将文本复制到剪贴板 Clipboard.Clear Clipboard.SetText "text"将bmp图片复制到剪贴板 Clipboard.Clear Clipboard.SetData LoadPicture("a.bmp")将剪贴板中文本取到 变量temp中 Dim temp As String If Clipboard.GetFormat(CF_TEXT)Then Temp = Clipboard.GetText(CF...
15172411498 :vb剪贴板代码(包括语法) 两个文本框,三个按钮(剪切,复制,粘贴)
石振兔2886 :答：Private Sub Command1_Click() '剪切 Call Command2_Click Text1.Text = ""End Sub Private Sub Command2_Click() '复制 Clipboard.Clear Clipboard.SetText Text1.Text End Sub Private Sub Command3_Click() '粘贴 Text2.Text = Clipboard.GetText End Sub ...
15172411498 :求大神帮忙写个WPS表格复制和粘贴的VB代码
石振兔2886 :答：复制的代码：Sub copy()ActiveCell.copy End Sub 粘贴的代码：Sub past()ActiveCell.PasteSpecial xlPasteValues End Sub
15172411498 :VB 求 光标右键的“剪切”“复制”“粘贴”“全选”的代码。针对TEXT1...
石振兔2886 :答：Public Const WM_UNDO = &H304 Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 粘贴 SendMessage text1.hwnd, WM_PASTE, 0, ByVal 0& 复制 SendMessage text1.hwnd,...
15172411498 :VB.Net 复制Excel数据到剪贴板,然后粘贴到Listview1,最好提供代码,多谢...
石振兔2886 :答：Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim Str As String = Clipboard.GetText '获取剪切板数据。ListView1.View = View.Details Dim Tit As Boolean = True Dim Index As Integer = 0 '标题行的列数。Try For Each i In Str.Replace(vbLf, "...
15172411498 :在VB中如何利用代码,把一个工作簿中的一个工作的内容复制到另一个工作...
石振兔2886 :答：下面代码把c:\1.xls中Sheet1工作表的内容拷贝到另外一个新建工作表中，并保存为“c:\2.xls”Private Sub Command1_Click()Dim S() As String, i As Integer, j As Integer Dim xlApp Dim xlBook Dim xlSheet Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象 xlApp.Display...
15172411498 :vb中怎样把文字复制到剪贴板中???
石振兔2886 :答：Private Sub Command1_Click()Clipboard.SetText Text1.Text End Sub 附带赠送粘贴剪贴板内容到文本框的代码：Private Sub Command2_Click()Text1.SelText = Clipboard.GetText End Sub
15172411498 :vba复制TXT到剪贴板的代码
石振兔2886 :答：Sub 将txt文件内容复制到剪贴板()Pn = "d:\wy.txt" 'txt文件名及路径Shell "notepad.exe " & Pn, 1 '用记事本打开文件'Application.Wait Now + TimeValue("00:00:01") '暂停1秒等待文件打开完毕（大文件用）SendKeys "^a", True '全选文本SendKeys "^c", True '复制到剪贴板SendKeys ...
15172411498 :VB/BAT中复制文件到剪贴板的操作
石振兔2886 :答：例如把文件 "D:\新建文件夹\a.png" 复制到剪贴板。XP系统可用的VB代码：CreateObject("Shell.Application").NameSpace("D:\新建文件夹").ParseName("a.png").InvokeVerb "复制(&C)"XP和win7通用的VB代码：For Each v In CreateObject("Shell.Application").NameSpace("D:\新建文件夹")....
15172411498 :求助,vb如何把剪切板里的内容粘贴到word中
石振兔2886 :答：,通过它可以操作系统的剪贴板 2.看看 VB6 中的 clipboard 对象的一些方法:clear '清空剪贴板 getdata '从剪贴板中获得指定格式的图形 gettext '从剪贴板中获得指定格式的文本信息 getformat '检查剪贴板中的对象格式 setdata '把图形放入剪贴板 settext '把文本信息放入剪贴板 3.具体代码 '复制至粘贴...
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 Butt Then
Command1.Enabled = Text1.SelLength > 0
End If
End Sub
比如Text1的内容为abc，而当前只选中了第一个字符a
那么Text1.text表示文本框的全部内容，即abc
而Text1.SelText表示文本框中当前选中的内容，即a--selText是select text（选中文字）的缩写
石振兔2886 :答：VB提供了对象Clipboard完成剪贴板的操作 将文本复制到剪贴板 Clipboard.Clear Clipboard.SetText "text"将bmp图片复制到剪贴板 Clipboard.Clear Clipboard.SetData LoadPicture("a.bmp")将剪贴板中文本取到 变量temp中 Dim temp As String If Clipboard.GetFormat(CF_TEXT)Then Temp = Clipboard.GetText(CF...
石振兔2886 :答：Private Sub Command1_Click() '剪切 Call Command2_Click Text1.Text = ""End Sub Private Sub Command2_Click() '复制 Clipboard.Clear Clipboard.SetText Text1.Text End Sub Private Sub Command3_Click() '粘贴 Text2.Text = Clipboard.GetText End Sub ...
石振兔2886 :答：复制的代码：Sub copy()ActiveCell.copy End Sub 粘贴的代码：Sub past()ActiveCell.PasteSpecial xlPasteValues End Sub
石振兔2886 :答：Public Const WM_UNDO = &H304 Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 粘贴 SendMessage text1.hwnd, WM_PASTE, 0, ByVal 0& 复制 SendMessage text1.hwnd,...
石振兔2886 :答：Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim Str As String = Clipboard.GetText '获取剪切板数据。ListView1.View = View.Details Dim Tit As Boolean = True Dim Index As Integer = 0 '标题行的列数。Try For Each i In Str.Replace(vbLf, "...
石振兔2886 :答：下面代码把c:\1.xls中Sheet1工作表的内容拷贝到另外一个新建工作表中，并保存为“c:\2.xls”Private Sub Command1_Click()Dim S() As String, i As Integer, j As Integer Dim xlApp Dim xlBook Dim xlSheet Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象 xlApp.Display...
石振兔2886 :答：Private Sub Command1_Click()Clipboard.SetText Text1.Text End Sub 附带赠送粘贴剪贴板内容到文本框的代码：Private Sub Command2_Click()Text1.SelText = Clipboard.GetText End Sub
石振兔2886 :答：Sub 将txt文件内容复制到剪贴板()Pn = "d:\wy.txt" 'txt文件名及路径Shell "notepad.exe " & Pn, 1 '用记事本打开文件'Application.Wait Now + TimeValue("00:00:01") '暂停1秒等待文件打开完毕（大文件用）SendKeys "^a", True '全选文本SendKeys "^c", True '复制到剪贴板SendKeys ...
石振兔2886 :答：例如把文件 "D:\新建文件夹\a.png" 复制到剪贴板。XP系统可用的VB代码：CreateObject("Shell.Application").NameSpace("D:\新建文件夹").ParseName("a.png").InvokeVerb "复制(&C)"XP和win7通用的VB代码：For Each v In CreateObject("Shell.Application").NameSpace("D:\新建文件夹")....
石振兔2886 :答：,通过它可以操作系统的剪贴板 2.看看 VB6 中的 clipboard 对象的一些方法:clear '清空剪贴板 getdata '从剪贴板中获得指定格式的图形 gettext '从剪贴板中获得指定格式的文本信息 getformat '检查剪贴板中的对象格式 setdata '把图形放入剪贴板 settext '把文本信息放入剪贴板 3.具体代码 '复制至粘贴...
