既然能夠取得整個屏幕,可以取到整個屏幕以后創建一個全屏窗體顯示靜態的屏幕圖像,然后在窗體上實現部分截取。
我們提供的服務有:網站制作、成都網站制作、微信公眾號開發、網站優化、網站認證、尼木ssl等。為上千家企事業單位解決了網站和推廣的問題。提供周到的售前咨詢和貼心的售后服務,是有科學管理、有技術的尼木網站制作公司
估計別的截圖也是這個原理,因為一點開始截圖屏幕就變為靜態不動了,肯定是在截圖初期復制了當時的屏幕場景
INTOUCH自帶的就有,打印屏幕的命令
自己寫個時間條件運行那命令就可以了
PRINTSCREEN這個命令 具體怎么用 看下幫助
希望我的回答對你有所幫助
如有其他問題,可以繼續追問,您的采納是我前進的動力!
實現代碼如下:
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.保存時的一個問題:我們必須先建一個對象,用于存縮放圖像。
提供兩個思路
用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屏幕存儲 vbnet oledb
地址分享:http://m.newbst.com/article16/ddcoggg.html
成都網站建設公司_創新互聯,為您提供網站制作、商城網站、品牌網站建設、響應式網站、品牌網站制作、外貿建站
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯