189 8069 5689
Dim p1 As New Point(0, 0)
专注于为中小企业提供成都网站建设、成都网站设计服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业城关免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了1000+企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。
Dim p2 As New Point(My.Computer.Screen.WorkingArea.Width, My.Computer.Screen.WorkingArea.Height) '除工具栏全屏
Dim pic As New Bitmap(p2.X, p2.Y)
Using g As Graphics = Graphics.FromImage(pic)
g.CopyFromScreen(p1, p1, p2)
PictureBox1.Image = pic
End Using
Clipboard.SetImage(PictureBox1.Image)
截图到PictureBox1中显示，然后在把PictureBox1.image放到剪切板中
先把"Form1.vb 的副本"改成"Form2",然后右击“Form2”---查看代码---把类名改成“Form2”就可以了
新建一个控件测试窗体工程，添加一个DataGridView控件，添加前面我们做的扩展控件DataGridViewExt的引用，并在Form1.Designer.vb文件中中将
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粘贴数据了.
第一步，点击VS工具
请点击输入图片描述
第二步，打开后，新建一个Windows窗体应用程序
请点击输入图片描述
第三步，新建完毕后，如图所示
请点击输入图片描述
第四步，拖动文本框与按钮，如图示
请点击输入图片描述
第五步，将剪贴板复制与粘贴代码输入，如图示
请点击输入图片描述
第六步，运行程序
请点击输入图片描述
7
第七步，点击按钮，成功从剪贴板中复制与粘贴操作
请点击输入图片描述
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Clipboard.SetDataObject(TextBox1.Text)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.Text = Clipboard.GetDataObject().GetData(DataFormats.Text, False)
End Sub
执行存储过程调用的是ADO.net
返回的结果集是一个DataSet对象。 如果不是，请检查下你的数据连接库，改下代码。
如果存储过程返回的是两个结果集，那么返回的DataSet就有两个DataTable对象。
调用的时候 只需要
DataSet ds=dbHelper.RunProcedure("Web_pGetDataPager");//假设的返回dataset对象的执行存储过程的方法。
ds.Tables[0] 就是第一个结果集
ds.Tables[1] 就是第二个结果集
//弱绑定第二个结果集 就是下面这样
Datagridview.DataSource=ds.Table[1];
Datagridview.DataBind();