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_TEXT)'CF_TEXT
=
1
将剪贴板中图片粘贴到当前窗体
If
Clipboard.GetFormat(CF_BITMAP)
Then
Picture
=
Clipboard.GetData()'CF_BITMAP
=
2
CF_LINK
HBF00
DDE
conversation
information
CF_TEXT
1
Text
CF_BITMAP
2
Bitmap
(.BMP
files)
CF_METAFILE
3
Metafile
(.WMF
files)
CF_DIB
8
Device-independent
bitmap
CF_PALETTE
9
Color
palette
快捷键在菜单定定义窗口中设置啦
再说cut:
Ctrl+X,
copy:
Ctrl+C,
paste:
Ctrl+V
都已经成为约定俗成的使用方法了
最好不要搞什么
shift+1复制ctrl+1粘贴
shift+2复制ctrl+2粘贴另一组
'使用变量
Dim TeStr As String
'取得text1的选定文本
TeStr = Text1.SelText
Text2.Text = TeStr
'清空text1的选定文本
Text1.SelText = ""
'=========================================
'第二种方法,使用剪贴板
Clipboard.Clear
'将text1的选定文本复制到剪贴板中
Clipboard.SetText Text1.SelText
Text2.Text = Clipboard.GetText
'清空text1的选定文本
Text1.SelText = ""
Private Sub Command1_Click()
Clipboard.SetText Text1
MsgBox "已复制!"
Text2 = Clipboard.GetText
MsgBox "已粘贴"
End Sub
在Text1中输入字符,点击按钮就产生复制和粘贴事件(Text2=Text1)。
很久没有上这里了,今天看到了这个问题,尝试做了一个;
本例以源文本框TextBox1全部文字作为拖放文字为例,实现拖放
1、向一个窗体中添加两个文本框,分别名为TextBox1,TextBox2。注意:把TextBox2控件的AllowDrop属性设置成True,这点不要遗漏。
2、完整的代码如下:
Public Class Form1
Private MouseIsDown As Boolean = False
Private Sub TextBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown
'设置一个标志以显示鼠标已按下。
MouseIsDown = True
End Sub
Private Sub TextBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseMove
If MouseIsDown Then
'开始拖动(将TextBox1的文本内容作为拖放内容)。
TextBox1.DoDragDrop(TextBox1.Text, DragDropEffects.Copy)
End If
MouseIsDown = False
End Sub
Private Sub TextBox2_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox2.DragEnter
'检查正在被拖放的数据的格式。
If (e.Data.GetDataPresent(DataFormats.Text)) Then
'显示复制光标(表示是拖放行为)。
e.Effect = DragDropEffects.Copy
Else
'显示不放置光标(表示不是拖放行为)。
e.Effect = DragDropEffects.None
End If
End Sub
Private Sub TextBox2_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox2.DragDrop
'粘贴文本(将拖放内容作为TextBox2的文本内容)。
TextBox2.Text = e.Data.GetData(DataFormats.Text)
End Sub
End Class
你可以用ClipBoard的SetText属性来复制到剪切板在窗体中放上一个文本框,打开代码窗口,把下面代码复制到里面:
Private Sub Text1_Click()
Clipboard.Clear
Clipboard.SetText Text1.Text
MsgBox "文字已复制到剪切板"
End Sub