大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
新建一个控件测试窗体工程,添加一个DataGridView控件,添加前面我们做的扩展控件DataGridViewExt的引用,并在Form1.Designer.vb文件中中将
创新互联公司-专业网站定制、快速模板网站建设、高性价比孟村网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式孟村网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖孟村地区。费用合理售后完善,十多年实体公司更值得信赖。
Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView
Me.DataGridView1 = New System.Windows.Forms.DataGridView
分别改为:
Friend WithEvents DataGridView1 As DataGridViewExt.DataGridViewExt
Me.DataGridView1 = New DataGridViewExt.DataGridViewExt
然后就可以从Excel,记事本等程序往DataGridView粘贴数据了.
例如,把文件"E:\新建文件夹\a.txt"复制到剪贴板
CreateObject("Shell.Application").NameSpace("E:\新建文件夹").ParseName("a.txt").InvokeVerb "复制(C)"
我用一个比较AO的方法,嘻嘻,不过很有用我觉得。
SendKeys "^v"
不过这个代码放到按钮上有点问题,
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
SendKeys "^v"
这样就OK了
关键在于你要给谁用就在SendKeys "^v"前,设置谁是焦点,因为这个代码是模拟键盘ctrl+v 。功能嘛,绝对和WINDOWS上的标准功能一样。
很久没有上这里了,今天看到了这个问题,尝试做了一个;
本例以源文本框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
先把"Form1.vb 的副本"改成"Form2",然后右击“Form2”---查看代码---把类名改成“Form2”就可以了
Clipboard.SetText()是方法,必须给它传递参数才能将内容保存在剪切板上。
Clipboard.SetText(TextBox1.Text);
SelectedText是只读属性,只能读取文本框内选定的内容,而不能对其赋值。
Clipboard.GetText()用于获得剪切板内的内容。如:
TextBox2.Text=Clipboard.GetText();