vb.net 2008 如何將指定的窗體截圖并保存

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

成都創(chuàng)新互聯(lián)是一家集網(wǎng)站建設(shè),王屋企業(yè)網(wǎng)站建設(shè),王屋品牌網(wǎng)站建設(shè),網(wǎng)站定制,王屋網(wǎng)站建設(shè)報價,網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,王屋網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競爭力?？沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時我們時刻保持專業(yè)、時尚、前沿，時刻以成就客戶成長自我，堅持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實用型網(wǎng)站。

自己寫個時間條件運(yùn)行那命令就可以了

PRINTSCREEN這個命令 具體怎么用 看下幫助

希望我的回答對你有所幫助

如有其他問題，可以繼續(xù)追問，您的采納是我前進(jìn)的動力！

vb.net 如何保存當(dāng)前頁為圖片

提供兩個思路

用printscreen,將其保存到文件，再調(diào)用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.另外出出報表，再調(diào)用outlook發(fā)出去，只給出數(shù)據(jù)性報表，而不一定是窗體本身；

如何在VB中保存圖片

VB6.0可使用SavePicture 語句來保存窗體或圖像框中經(jīng)修改的圖片。

1）SavePicture 語句，從對象或控件（如果有一個與其相關(guān)）的 Picture 或 Image 屬性中將圖形保存到文件中。

說明：無論在設(shè)計時還是運(yùn)行時圖形從文件加載到對象的 Picture

屬性，而且它是位圖、圖標(biāo)、元文件或增強(qiáng)元文件，則圖形將以原始文件同樣的格式保存。如果它是 GIF 或 JPEG 文件，則將保存為位圖文件。

2）AutoRedraw 屬性，返回或設(shè)置從圖形方法到持久圖形的輸出。

該屬性為True，可使 Form 對象或 PictureBox

控件的自動重繪有效。圖形和文本輸出到屏幕，并存儲在內(nèi)存的圖象中。該對象不接受繪制事件，必要時，用存儲在內(nèi)存中的圖象進(jìn)行重繪。 ?

以下代碼保存窗體裝載并進(jìn)行文字修飾的圖片：

Option?Explicit

Private?Sub?Command1_Click()

SavePicture?Image,?App.Path??"\TEST"???'?將圖片保存到文件。

End?Sub

Private?Sub?Form_Click()

FontSize?=?24

Print?"?將圖片保存到文件"

End?Sub

Private?Sub?Form_Load()

Me.AutoRedraw?=?True

End?Sub

3）若要保存為JPG圖片需要采取使用API函數(shù)實現(xiàn)。參考以下步驟和代碼：

a.在圖片框加載需要添加文字水印的圖片。

b.使用如下代碼實現(xiàn)添加文字到圖片框。

Private?Sub?CmdEdit_Click()?'修改

Dim?strTxt?As?String

strTxt?=?"風(fēng)雨無阻?拍攝"

Picture1.FontSize?=?18

Picture1.CurrentY?=?Picture1.ScaleHeight?-?30

Picture1.CurrentX?=?Picture1.ScaleWidth?/?2?-?Picture1.TextWidth(strTxt)?/?2

Picture1.ForeColor?=?vbWhite

Picture1.FontItalic?=?True

Picture1.Print?strTxt

End?Sub

c.將以下API轉(zhuǎn)換圖片格式代碼放置于標(biāo)準(zhǔn)模塊，模塊命名為saveApg。

Option?Explicit

Public?Type?GUID

Data1?As?Long

Data2?As?Integer

Data3?As?Integer

Data4(0?To?7)?As?Byte

End?Type

Public?Type?GdiplusStartupInput

GdiplusVersion?As?Long

DebugEventCallback?As?Long

SuppressBackgroundThread?As?Long

SuppressExternalCodecs?As?Long

End?Type

Public?Type?EncoderParameter

GUID?As?GUID

NumberOfValues?As?Long

type?As?Long

Value?As?Long

End?Type

Public?Type?EncoderParameters

Count?As?Long

Parameter?As?EncoderParameter

End?Type

Public?Declare?Function?GdiplusStartup?Lib?"GDIPlus"?(token?As?Long,?inputbuf?As?GdiplusStartupInput,?ByVal?outputbuf?As?Long)?As?Long

Public?Declare?Function?GdiplusShutdown?Lib?"GDIPlus"?(ByVal?token?As?Long)?As?Long

Public?Declare?Function?GdipCreateBitmapFromHBITMAP?Lib?"GDIPlus"?(ByVal?hbm?As?Long,?ByVal?hpal?As?Long,?Bitmap?As?Long)?As?Long

Public?Declare?Function?GdipDisposeImage?Lib?"GDIPlus"?(ByVal?Image?As?Long)?As?Long

Public?Declare?Function?GdipSaveImageToFile?Lib?"GDIPlus"?(ByVal?Image?As?Long,?ByVal?fileName?As?Long,?clsidEncoder?As?GUID,?encoderParams?As?Any)?As?Long

Public?Declare?Function?CLSIDFromString?Lib?"ole32"?(ByVal?str?As?Long,?id?As?GUID)?As?Long

Public?Declare?Function?GdipCreateBitmapFromFile?Lib?"GDIPlus"?(ByVal?fileName?As?Long,?Bitmap?As?Long)?As?Long

Public?Function?PictureBoxSaveJPG(ByVal?pict?As?StdPicture,?ByVal?fileName?As?String,?Optional?ByVal?quality?As?Byte?=?80)?As?Boolean

Dim?tSI?As?GdiplusStartupInput

Dim?lRes?As?Long

Dim?lGDIP?As?Long

Dim?lBitmap?As?Long

'初始化?GDI+

tSI.GdiplusVersion?=?1

lRes?=?GdiplusStartup(lGDIP,?tSI,?0)

If?lRes?=?0?Then

'從句柄創(chuàng)建?GDI+?圖像

lRes?=?GdipCreateBitmapFromHBITMAP(pict.Handle,?0,?lBitmap)

If?lRes?=?0?Then

Dim?tJpgEncoder?As?GUID

Dim?tParams?As?EncoderParameters

'初始化解碼器的GUID標(biāo)識

CLSIDFromString?StrPtr("{557CF401-1A04-11D3-9A73-0000F81EF32E}"),?tJpgEncoder

'設(shè)置解碼器參數(shù)

tParams.Count?=?1

With?tParams.Parameter?'?Quality

'得到Quality參數(shù)的GUID標(biāo)識

CLSIDFromString?StrPtr("{1D5BE4B5-FA4A-452D-9CDD-5DB35105E7EB}"),?.GUID

.NumberOfValues?=?1

.type?=?4

.Value?=?VarPtr(quality)

End?With

'保存圖像

lRes?=?GdipSaveImageToFile(lBitmap,?StrPtr(fileName),?tJpgEncoder,?tParams)

'銷毀GDI+圖像

GdipDisposeImage?lBitmap

End?If

'銷毀?GDI+

GdiplusShutdown?lGDIP

End?If

If?lRes?Then

PictureBoxSaveJPG?=?False

Else

PictureBoxSaveJPG?=?True

End?If

End?Function

d.使用以下代碼實現(xiàn)將加好文字水印圖片保存為jpg格式圖片。

Private?Sub?Command3_Click()?'保存為.jpg圖片

'?設(shè)置“CancelError”為?True

CommonDialog1.CancelError?=?True

On?Error?GoTo?ErrHandler

'?設(shè)置標(biāo)志

CommonDialog1.Flags?=?cdlOFNHideReadOnly

'?設(shè)置過濾器

CommonDialog1.Filter?=?"JPEG?Files"??"(*.jpg)|*.jpg"

'?指定缺省的過濾器

CommonDialog1.FilterIndex?=?2

'?顯示“打開”對話框

CommonDialog1.ShowSave

'?顯示選定文件的名字

'MsgBox?CommonDialog1.fileName

Set?Picture2.Picture?=?Picture1.Image?'轉(zhuǎn)移Picture1所繪圖為Picture2.Picture賦值

Dim?ret?As?Boolean

ret?=?PictureBoxSaveJPG(Picture2,?CommonDialog1.fileName)?'保存壓縮后的圖片

If?ret?=?False?Then

MsgBox?"保存失敗"

End?If

Exit?Sub

ErrHandler:

'?用戶按了“取消”按鈕

Exit?Sub

End?Sub

VB2010或VB.NET 怎么能將自身窗體的所有內(nèi)容保存為圖片

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

文章題目：vb.net窗體保存圖片 vb窗體保存的文件
當(dāng)前URL：http://chinadenli.net/article12/dogeigc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站導(dǎo)航、App設(shè)計、品牌網(wǎng)站制作、靜態(tài)網(wǎng)站、關(guān)鍵詞優(yōu)化、品牌網(wǎng)站建設(shè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)