vb.net保存窗口图像,vb保存窗体

VB2010或VB.NET 怎么能将自身窗体的所有内容保存为图片

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

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

        Delay(0.1)

        Dim bmp As Bitmap = CType(Clipboard.GetDataObject().GetData(DataFormats.Bitmap), Bitmap)

        bmp.Save("c:\test1.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)

    End Sub

    Private Sub Delay(ByVal tim As Single)

        Dim t As Single = Microsoft.VisualBasic.Timer + tim

        While t  Microsoft.VisualBasic.Timer

            My.Application.DoEvents()

        End While

    End Sub

相关问答

Q1: vb.net 2008 如何将指定的窗体截图并保存

INTOUCH自带的就有，打印屏幕的命令

自己写个时间条件运行那命令就可以了

PRINTSCREEN这个命令 具体怎么用 看下帮助

希望我的回答对你有所帮助

如有其他问题，可以继续追问，您的采纳是我前进的动力！

Q2: vb.net 如何将后台窗口显示内容保存为图片？

窗口最小化或被遮住的时候，被遮住部分的显存已经被操作系统销毁了，所以你获取不到

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

提供两个思路

用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发出去，只给出数据性报表，而不一定是窗体本身；

Q4: 在VB.NET下面如何显示和保存缩放图像

实现代码如下：

Dim img As Image = Image.FromFile("D:\Image\tstImage.jpg") 'tstImage是原先的图片

Dim grfx As Graphics = Me.CreateGraphics

grfx.DrawImage(img, 0, 0, img.Width * 3, img.Height * 3) '在Form里显示

Dim imgnew As New System.Drawing.Bitmap(img, img.Height * 3, img.Width * 3) '新建一个放大的图片

imgnew.Save("D:\Image\tstNewImage.jpg", System.Drawing.Imaging.ImageFormat.Jpeg) '保存放大后图片

你可以建一个Form，然后在Form里拖进一个Button，把上面的代码放在Button_Click事件里面，执行就行了。

对上面代码的解释：

1.要获取Graphics对象只能从某一事件的参数中获取或者使用窗体和控件对象的CreateGraphics方法来获取-----上面代码使用Me.CreateGraphics来引用这个对象。

2.加载一个图片用Image类的FromFile或者FromStream方法

3.用DrawImage来显示一个图片,该方法有30多个重载方法，可以查MSDN了解细节。

4.保存时的一个问题：我们必须先建一个对象，用于存缩放图像。