既然能夠取得整個(gè)屏幕,可以取到整個(gè)屏幕以后創(chuàng)建一個(gè)全屏窗體顯示靜態(tài)的屏幕圖像,然后在窗體上實(shí)現(xiàn)部分截取。
我們提供的服務(wù)有:網(wǎng)站制作、成都網(wǎng)站制作、微信公眾號(hào)開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、尼木ssl等。為上千家企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務(wù),是有科學(xué)管理、有技術(shù)的尼木網(wǎng)站制作公司
估計(jì)別的截圖也是這個(gè)原理,因?yàn)橐稽c(diǎn)開始截圖屏幕就變?yōu)殪o態(tài)不動(dòng)了,肯定是在截圖初期復(fù)制了當(dāng)時(shí)的屏幕場(chǎng)景
INTOUCH自帶的就有,打印屏幕的命令
自己寫個(gè)時(shí)間條件運(yùn)行那命令就可以了
PRINTSCREEN這個(gè)命令 具體怎么用 看下幫助
希望我的回答對(duì)你有所幫助
如有其他問題,可以繼續(xù)追問,您的采納是我前進(jìn)的動(dòng)力!
實(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) '新建一個(gè)放大的圖片
imgnew.Save("D:\Image\tstNewImage.jpg", System.Drawing.Imaging.ImageFormat.Jpeg) '保存放大后圖片
你可以建一個(gè)Form,然后在Form里拖進(jìn)一個(gè)Button,把上面的代碼放在Button_Click事件里面,執(zhí)行就行了。
對(duì)上面代碼的解釋:
1.要獲取Graphics對(duì)象只能從某一事件的參數(shù)中獲取或者使用窗體和控件對(duì)象的CreateGraphics方法來獲取-----上面代碼使用Me.CreateGraphics來引用這個(gè)對(duì)象。
2.加載一個(gè)圖片用Image類的FromFile或者FromStream方法
3.用DrawImage來顯示一個(gè)圖片,該方法有30多個(gè)重載方法,可以查MSDN了解細(xì)節(jié)。
4.保存時(shí)的一個(gè)問題:我們必須先建一個(gè)對(duì)象,用于存縮放圖像。
提供兩個(gè)思路
用printscreen,將其保存到文件,再調(diào)用outlook發(fā)出去,但是您說的超出一屏,就麻煩了;
以下代碼保存為文件,引用自MSDN,由于我的SD版本不支持我的outlook,所以暫時(shí)無法給發(fā)送郵件的例子,請(qǐng)參考吧!
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.另外出出報(bào)表,再調(diào)用outlook發(fā)出去,只給出數(shù)據(jù)性報(bào)表,而不一定是窗體本身;
當(dāng)前題目:vb.net屏幕存儲(chǔ) vbnet oledb
地址分享:http://redsoil1982.com.cn/article16/ddcoggg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站制作、商城網(wǎng)站、品牌網(wǎng)站建設(shè)、響應(yīng)式網(wǎng)站、品牌網(wǎng)站制作、外貿(mào)建站
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)