vb如何做剪切、复制、粘贴按钮

Posted 2023-05-04

获得文字直接用
Clipboard.GetText
获得图片可以用
Clipboard.GetData

设置文字直接用
Clipboard.SetText
设置图片可以用
Clipboard.SetData

清空
Clipboard.Clear
检测剪贴板中的内容
Clipboard.GetFormat(1)
返回True则文字
返回False则其他

不用剪切板可以这样

Dim s
Private Sub Command1_Click()
s = Text1.Text
Text1.Text = ""
End Sub
Private Sub Command2_Click()
s = Text1.Text
End Sub
Private Sub Command3_Click()
Text1.Text = Text1.Text + s
End Sub
Private Sub Form_Load()
Command1.Caption = "剪切"
Command2.Caption = "复制"
Command3.Caption = "粘贴"
End Sub 参考技术A 这是剪切复制粘贴文本
Private Sub 剪切按钮_Click(sender As Object, e As EventArgs) Handles 剪切按钮.Click
If 文本框.SelectionLength > 0 Then
文本框.Cut()
Else
Exit Sub
End If
End Sub

Private Sub 复制按钮_Click(sender As Object, e As EventArgs) Handles 复制按钮.Click
If 文本框.SelectionLength > 0 Then
文本框.Copy()
Else
Exit Sub
End If
End Sub

Private Sub 粘贴按钮_Click(sender As Object, e As EventArgs) Handles 粘贴按钮.Click
If My.Computer.Clipboard.ContainsText Then
文本框.Paste()
Else
Exit Sub
End If
End Sub
这是 .NET 的。如果是 6.0，粘贴按钮那个 My...过程不存在 参考技术B sendkey（）用API函数模拟键盘输入 参考技术C 以文本框进行选中文本的复制\剪切为例进行说明
在窗体上画一个文本框和三个按钮.
剪切按钮代码:
Clipboard.SetText Text1.SelText
Text1.SelText = ""
复制按钮代码:
Clipboard.SetText Text1.SelText
粘贴按钮代码
Text1.SelText = Clipboard.GetText

js/jquery常用方法------复制粘贴至剪切板

1.添加引用

<script src="/XX/XX/clipboard.min.js"></script>

（自己在网上下载）

 

2.复制按钮

<button class="btn btn-info" type="button" id="btnCopy" title="复制" data-clipboard-action="copy" data-clipboard-target="#ShortURL">
　　复制
</button>

（加粗部分属性是必须的）

<table id="table_list"></table>

(此处我想操作复制的内容针对表格，这里的表格我用的jqgrid)

 

3.复制内容承载的文本域

<textarea id="ShortURL" name="ShortURL" placeholder="" readonly="" style="width:1px;height:1px;position:absolute;top:0;left:-100px;"></textarea>

 

4.jquery部分

var clipboard = new Clipboard(‘#btnCopy‘);
clipboard.on(‘success‘, function () {
　　parent.layer.alert("内容已复制到剪贴板！");
});
clipboard.on(‘error‘, function () {
　　parent.layer.alert("XXX！");
});

$("#btnCopy").click(function () {
　　var value = [];
　　var data = JucheapGrid.GetAllSelected("table_list");
　　for (var i = 0; i < data.Data.length; i++) {
　　　　var id = data.Data[i];
　　　　var d = $(‘#table_list‘).jqGrid("getRowData", id);
　　　　value.push(d.Title);
　　　　value.push(d.Content);
　　}
　　var text = value.join(" ");
　　$("#ShortURL").val(text);
});

(内容的话可以根据自己需要写，我这里主要是针对表格)