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

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

創(chuàng)新新互聯(lián)，憑借10年的成都網(wǎng)站制作、成都網(wǎng)站建設(shè)經(jīng)驗(yàn)，本著真心·誠心服務(wù)的企業(yè)理念服務(wù)于成都中小企業(yè)設(shè)計(jì)網(wǎng)站有上千家案例。做網(wǎng)站建設(shè)，選創(chuàng)新互聯(lián)。

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

PRINTSCREEN這個(gè)命令 具體怎么用 看下幫助

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

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

VB中對圖片框的圖片實(shí)現(xiàn)截圖

使用Image屬性。image屬性保存當(dāng)前所有的圖像內(nèi)容（包括圖形方法輸出的圖形和Print方法輸出的文本），而Picture是個(gè)標(biāo)準(zhǔn)的圖片對象，必須通過對象賦值才會(huì)生效，比如用LoadPicture的返回值賦值。

savepicture picture1.image,"c:\test.bmp"

VB怎么做個(gè)截圖工具

1. 啟動(dòng)新 VisualBasic 常用 Exe 項(xiàng)目。 默認(rèn)情況下創(chuàng)建 Form 1。

2. 在 項(xiàng)目 菜單上, 選擇將一個(gè)新模塊添加到現(xiàn)有項(xiàng)目 添加模塊 。

3. 向窗體, 名稱之一添加兩 圖片框 Pic_Edit （目標(biāo)）, 和其他名稱 Pic_Dest （目標(biāo)）。

4. 將是 Pic_Edit Picture 屬性設(shè)置為要從中選擇區(qū)域位圖

5. 將是 Pic_Dest AutoRedraw 屬性設(shè)置為 True

6. 以下代碼添加到 Module 1：Public Const INVERSE = 6

Public Const DOT = 2

Public Const SOLID = 0

Public OrigX As Long

Public OrigY As Long

Public DestX As Long

Public DestY As Long

Public Sub Draw_Selection_Rectangle()

' Set drawing mode to INVERSE since this routine also used to erase

' the selection rectangle by simply drawing over the currently

' displayed rectangle

With Editor.Pic_Edit

.DrawMode = INVERSE

.DrawStyle = DOT

Editor.Pic_Edit.Line (OrigX, OrigY)-(DestX, DestY), , B

.DrawStyle = SOLID

End With

End Sub

Public Sub Copy_Rectangle()

With Editor.Pic_Dest

.Cls

.Visible = True

.Height = DestY - OrigY

.Width = DestX - OrigX

.PaintPicture Editor.Pic_Edit, 0, 0, (DestX - OrigX), _

(DestY - OrigY), OrigX, OrigY, (DestX - OrigX), _

(DestY - OrigY), vbSrcCopy

End With

' Make sure the clipboard is clear, then copy the image:

Clipboard.Clear

Clipboard.SetData Editor.Pic_Dest.Image

End Sub

7. 以下代碼添加到 Form 1：Private Sub Pic_Edit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then Pic_Edit.Refresh

Pic_Dest.Visible = False

OrigX = X

OrigY = Y

DestX = OrigX

DestY = OrigY

Call Module1.Draw_Selection_Rectangle

End Sub

Private Sub Pic_Edit_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then

DestX = X

DestY = Y

Pic_Edit.Refresh

Call Module1.Draw_Selection_Rectangle

End If

End Sub

Private Sub Pic_Edit_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

' Check to see if mouse moved or goes the "wrong" way:

If DestX = OrigX Or DestY = OrigY Then

Pic_Edit.Refresh

Exit Sub

End If

If Button = 1 Then Call Copy_Rectangle

End Sub

8. 啟動(dòng)應(yīng)用程序并選擇用鼠標(biāo)與位圖的區(qū)域。 當(dāng)您松開鼠標(biāo)按鈕, Pic_Dest 出現(xiàn) 備注 所選區(qū)域： 如果備份 MS 畫圖、 MSWord 或任何其他應(yīng)用程序可能需要粘貼位圖, 打開您就可以粘貼到該應(yīng)用程序圖像的選定部分。 也可以通過剪貼板查看程序查看剪貼板的內(nèi)容。

VB.net點(diǎn)擊按鈕后截圖，截取被當(dāng)前窗體擋住的圖像作為窗體背景（窗體默認(rèn)無邊框樣式）

'沒辦法，需的把窗口隱藏一下，還的隱藏后延遲一下再截圖。

Dim?WithEvents?Timer1?As?New?Timer?With?{.Interval?=?30,?.Enabled?=?False}

Dim?Imgrect?As?Rectangle

Dim?img?As?Bitmap

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

Imgrect?=?Me.RectangleToScreen(Me.ClientRectangle)

img?=?New?Bitmap(Imgrect.Width,?Imgrect.Height)

Me.Hide()

Timer1.Start()

End?Sub

Private?Sub?Timer1_Tick(ByVal?sender?As?Object,?ByVal?e?As?System.EventArgs)?Handles?Timer1.Tick

Timer1.Stop()

Graphics.FromImage(img).CopyFromScreen(Imgrect.X,?Imgrect.Y,?0,?0,?Imgrect.Size)

Me.BackgroundImage?=?img

Me.Show()

End?Sub

vb.net 截屏 ，獲取活動(dòng)窗口

'模塊中

Declare Function GetDC Lib "user32" (ByVal hwnd As Long) _

As Long

Public Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long

Declare Function BitBlt Lib "gdi32" _

(ByVal hDestDC As Long, ByVal x As Long, _

ByVal y As Long, ByVal nWidth As Long, _

ByVal nHeight As Long, ByVal hSrcDC As Long, _

ByVal xSrc As Long, ByVal ySrc As Long, _

ByVal dwRop As Long) As Long

'form1中

Private Sub Command1_Click()

Dim hDCtmp As Long, picWidth As Double, picHeight As Double

Dim x As Double

Dim y As Double

x = Val(Text2.Text)

y = Val(Text3.Text)

picWidth = Val(Text3.Text)

picHeight = Val(Text4.Text)

hDCtmp = GetDC(0)

BitBlt Picture1.hdc, 0, 0, picWidth, picHeight, hDCtmp, x, y, vbSrcCopy

ReleaseDC 0, hDCtmp

End Sub

目的: 將屏幕按照指定坐標(biāo)和大小進(jìn)行截取成圖,在picture1顯示

問題: 大小是相同了,為什么截取的坐標(biāo)不對,只是屏幕上的左上

相信大家都用過QQ截圖功能。不過很多人并沒有真正掌握好它的用法。將QQ截圖與其它截屏和制圖軟件配合使用，會(huì)有意想不到的效果。

獲取顏色的RGB值

我們在編輯圖片或網(wǎng)頁的時(shí)候，經(jīng)常需要獲取某種顏色的“RGB值”，所以很多人都安裝了第三方的顏色吸取工具。其時(shí)用QQ截圖鍵即可獲取屏幕上任意顏色的RGB值。

當(dāng)按下“Ctrl+Shift+A”彈出“截圖”提示框時(shí)，提示框中的“當(dāng)前像素RGB”即為當(dāng)前鼠標(biāo)屏幕位置的顏色RGB值，將鼠標(biāo)移動(dòng)到你想查看的屏幕顏色上即可獲得相應(yīng)的RGB值（如圖1）。

圖1精確截取圖片大小

有時(shí)我們對要使用的截圖尺寸有嚴(yán)格要求，比如論壇簽名或QQ頭像等。用QQ截圖鍵可以按尺寸精確截取，一步到位無需再進(jìn)行后期裁剪了。

按下QQ截圖鍵，按住鼠標(biāo)不放選取截取范圍時(shí)，在鼠標(biāo)上方會(huì)有一個(gè)信息框顯示當(dāng)前范圍的詳細(xì)信息，其中“矩形大小”就是以像素來表示的圖片的尺寸大小，括號(hào)內(nèi)的數(shù)字分別表示的是長和高（如圖2）。松開鼠標(biāo)調(diào)整截圖框時(shí)，對照“矩形大小”就可以按需要的尺寸來精確截圖范圍，然后用鼠標(biāo)點(diǎn)住截圖框?qū)⒔貓D框拖到要截取的圖片上，雙擊即可獲得所需尺寸的圖片了。

圖2圖片拼貼好幫手

大部分的截圖軟件一次只能截取一張圖片，當(dāng)要截取多張圖片并進(jìn)行拼貼組合時(shí)，就需要一張一張截取全部保存后再進(jìn)行拼貼操作，非常麻煩。

我們知道用QQ截圖鍵截取的圖片可以在任一個(gè)可以粘貼圖片的程序中使用，這樣只需用截圖軟件進(jìn)行一次截圖操作，剩下的圖片用QQ截圖鍵來截取，然后依次粘貼到截圖軟件的窗口中即可快速進(jìn)行拼貼操作了，是不是很方便啊。

小提示：QQ截圖鍵無需打開聊天窗口即可使用，截取的圖片在任一可粘貼圖片的程序窗口中如畫圖、Word等，使用“粘貼”命令即可使用