vb.net窗體保存圖片 vb窗體保存的文件

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

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

成都創新互聯是一家集網站建設,王屋企業網站建設,王屋品牌網站建設,網站定制,王屋網站建設報價,網絡營銷,網絡優化,王屋網站推廣為一體的創新建站企業，幫助傳統企業提升企業形象加強企業競爭力。可充分滿足這一群體相比中小企業更為豐富、高端、多元的互聯網需求。同時我們時刻保持專業、時尚、前沿，時刻以成就客戶成長自我，堅持不斷學習、思考、沉淀、凈化自己，讓我們為更多的企業打造出實用型網站。

自己寫個時間條件運行那命令就可以了

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

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

如有其他問題，可以繼續追問，您的采納是我前進的動力！

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發出去，只給出數據性報表，而不一定是窗體本身；

如何在VB中保存圖片

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

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

說明：無論在設計時還是運行時圖形從文件加載到對象的 Picture

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

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

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

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

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

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函數實現。參考以下步驟和代碼：

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

b.使用如下代碼實現添加文字到圖片框。

Private?Sub?CmdEdit_Click()?'修改

Dim?strTxt?As?String

strTxt?=?"風雨無阻?拍攝"

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轉換圖片格式代碼放置于標準模塊，模塊命名為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

'從句柄創建?GDI+?圖像

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

If?lRes?=?0?Then

Dim?tJpgEncoder?As?GUID

Dim?tParams?As?EncoderParameters

'初始化解碼器的GUID標識

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

'設置解碼器參數

tParams.Count?=?1

With?tParams.Parameter?'?Quality

'得到Quality參數的GUID標識

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.使用以下代碼實現將加好文字水印圖片保存為jpg格式圖片。

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

'?設置“CancelError”為?True

CommonDialog1.CancelError?=?True

On?Error?GoTo?ErrHandler

'?設置標志

CommonDialog1.Flags?=?cdlOFNHideReadOnly

'?設置過濾器

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

'?指定缺省的過濾器

CommonDialog1.FilterIndex?=?2

'?顯示“打開”對話框

CommonDialog1.ShowSave

'?顯示選定文件的名字

'MsgBox?CommonDialog1.fileName

Set?Picture2.Picture?=?Picture1.Image?'轉移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 怎么能將自身窗體的所有內容保存為圖片

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窗體保存的文件
當前URL：http://m.kartarina.com/article12/dogeigc.html

成都網站建設公司_創新互聯，為您提供網站導航、App設計、品牌網站制作、靜態網站、關鍵詞優化、品牌網站建設

廣告

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