vb.net后台截图 vbs截图

vb.net 如何保存当前页为图片

提供两个思路

创新互联-专业网站定制、快速模板网站建设、高性价比汉台网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式汉台网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖汉台地区。费用合理售后完善，10余年实体公司更值得信赖。

用printscreen,将其保存到文件，再调用outlook发出去，但是您说的超出一屏，就麻烦了；

以下代码保存为文件，引用自MSDN，由于我的SD版本不支持我的outlook,所以暂时无法给发送邮件的例子，请参考吧！

system.Windows.Forms.SendKeys.Send("%{PRTSC}")

       If Not System.Windows.Forms.Clipboard.GetDataObject() Is Nothing Then

      Dim oDataObj As IDataObject = System.Windows.Forms.Clipboard.GetDataObject()

      If oDataObj.GetDataPresent(System.Windows.Forms.DataFormats.Bitmap) Then

          Dim oImgObj As System.Drawing.Image = oDataObj.GetData(DataFormats.Bitmap, True)

          'To Save as Bitmap

          oImgObj.Save("F:\Test.bmp", System.Drawing.Imaging.ImageFormat.Bmp)

          'To Save as Jpeg

          oImgObj.Save("D:\Test.jpeg", System.Drawing.Imaging.ImageFormat.Jpeg)

          'To Save as Gif

          oImgObj.Save("d:\Test.gif", System.Drawing.Imaging.ImageFormat.Gif)

      End If

  End If

2.另外出出报表，再调用outlook发出去，只给出数据性报表，而不一定是窗体本身；

vb.net Document_PrintPag 打印

我帮你把最后一部分的语句顺序调换一下。你试一试

sub button1_click() '---执行打印

Dim pd As PrintDocument = New PrintDocument

pd.PrinterSettings = PrintDialog1.PrinterSettings

If _PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

for i=0 to 1 '这样可以两次截图

CaptureScreen() '--执行前面自定义函数截图

AddHandler pd.PrintPage, AddressOf Document_PrintPage

pd.Print()

Threading.Thread.sleep(100) ‘ 再加上一个间隔

next

end sub

请问vb.net2015的裁剪图片的程序要怎么写？

用位图对象的Clone 方法就可以获取图片某个区域成一个新的位图对象，下面例子：

Private Sub Form1_Click(sender As Object, e As EventArgs) Handles Me.Click

Dim img As New Bitmap("d:\015.jpg")

Dim rc As Rectangle = New Rectangle(500, 500, 600, 600)   '起点和长宽

Dim newImg As Bitmap = img.Clone(rc, Imaging.PixelFormat.Format32bppArgb)

Me.CreateGraphics.DrawImage(newImg, 0, 0)

End Sub

vb.net 的screen的mousedown ，mousemove，mouseup事件

问题：引用原文：“要是换个思路，先截全屏，然后将窗体全屏，让Picturebox占满全屏幕，但是无论利用什么方法(最大化，boderstyle设为none）都遮挡不了任务栏。”

解决方法：经测试，代码可以实现你得要求，即能遮挡任务栏。

设置：在窗体上添加一个PictureBox1,，dock属性设置为Fill。随便导入一张图片用于显示。

代码如下：

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None

Me.WindowState = FormWindowState.Maximized

End Sub

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

Me.Close()

End Sub

End Class

程序截图：