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

創(chuàng)新互聯(lián)建站是一家專注于成都網站制作、做網站與策劃設計,桑日網站建設哪家好?創(chuàng)新互聯(lián)建站做網站,專注于網站建設10年,網設計領域的專業(yè)建站公司;建站業(yè)務涵蓋:桑日等地區(qū)。桑日做網站價格咨詢:13518219792
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
INTOUCH自帶的就有,打印屏幕的命令
自己寫個時間條件運行那命令就可以了
PRINTSCREEN這個命令 具體怎么用 看下幫助
希望我的回答對你有所幫助
如有其他問題,可以繼續(xù)追問,您的采納是我前進的動力!
窗口最小化或被遮住的時候,被遮住部分的顯存已經被操作系統(tǒng)銷毀了,所以你獲取不到
提供兩個思路
用printscreen,將其保存到文件,再調用outlook發(fā)出去,但是您說的超出一屏,就麻煩了;
以下代碼保存為文件,引用自MSDN,由于我的SD版本不支持我的outlook,所以暫時無法給發(fā)送郵件的例子,請參考吧!
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發(fā)出去,只給出數(shù)據性報表,而不一定是窗體本身;
實現(xiàn)代碼如下:
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事件里面,執(zhí)行就行了。
對上面代碼的解釋:
1.要獲取Graphics對象只能從某一事件的參數(shù)中獲取或者使用窗體和控件對象的CreateGraphics方法來獲取-----上面代碼使用Me.CreateGraphics來引用這個對象。
2.加載一個圖片用Image類的FromFile或者FromStream方法
3.用DrawImage來顯示一個圖片,該方法有30多個重載方法,可以查MSDN了解細節(jié)。
4.保存時的一個問題:我們必須先建一個對象,用于存縮放圖像。
本文標題:vb.net保存窗口圖像,vb保存窗體
本文地址:http://chinadenli.net/article15/dsgiggi.html
成都網站建設公司_創(chuàng)新互聯(lián),為您提供網頁設計公司、移動網站建設、網站策劃、網站排名、商城網站、ChatGPT
聲明:本網站發(fā)布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯(lián)