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

'模塊中

成都創(chuàng)新互聯(lián)公司是一家專注于成都網(wǎng)站建設(shè)、做網(wǎng)站與策劃設(shè)計(jì),麻陽網(wǎng)站建設(shè)哪家好?成都創(chuàng)新互聯(lián)公司做網(wǎng)站,專注于網(wǎng)站建設(shè)十載,網(wǎng)設(shè)計(jì)領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:麻陽等地區(qū)。麻陽做網(wǎng)站價(jià)格咨詢:028-86922220

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)不對(duì),只是屏幕上的左上

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

獲取顏色的RGB值

我們?cè)诰庉媹D片或網(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í)我們對(duì)要使用的截圖尺寸有嚴(yán)格要求，比如論壇簽名或QQ頭像等。用QQ截圖鍵可以按尺寸精確截取，一步到位無需再進(jìn)行后期裁剪了。

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

圖2圖片拼貼好幫手

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

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

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

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

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

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

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

希望我的回答對(duì)你有所幫助

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

網(wǎng)上下的VB.NET截屏程序，試過好用，哪位大俠給詳細(xì)解釋一下！另外，怎么把截圖加載到Picturebox里？

VB.NT用的是觸發(fā)事件，一按就會(huì)觸發(fā)，要不你加個(gè)timer控件，延遲一秒

標(biāo)題的問題：你先把圖片保存，再加載

VB全屏截圖代碼

學(xué)習(xí)vb vb.net java php ps office的朋友歡迎來歪歪頻道4350,小小蝦~宣 !

vb 的 仿QQ拼音截圖,代碼給你了,新建個(gè)記事本,然后復(fù)制下面的內(nèi)容保存,然后把記事本的后綴名改為.frm

VERSION 5.00

Begin VB.Form VB模擬QQ截屏

BorderStyle = 0 'None

Caption = "模擬QQ截屏"

ClientHeight = 5310

ClientLeft = 0

ClientTop = 0

ClientWidth = 6180

Icon = "模擬QQ截屏.frx":0000

KeyPreview = -1 'True

LinkTopic = "Form1"

ScaleHeight = 5310

ScaleWidth = 6180

ShowInTaskbar = 0 'False

StartUpPosition = 3 '窗口缺省

Begin VB.PictureBox Picture1

BackColor = H00F8E2DE

BorderStyle = 0 'None

Height = 390

Left = 0

ScaleHeight = 390

ScaleWidth = 3075

TabIndex = 0

Top = 0

Visible = 0 'False

Width = 3080

Begin VB.Line Line1

BorderColor = H00FFC0C0

X1 = 1620

X2 = 1620

Y1 = 40

Y2 = 320

End

Begin VB.Label lblInfo

Alignment = 2 'Center

Appearance = 0 'Flat

BackColor = H80000005

BackStyle = 0 'Transparent

Caption = "Label2"

BeginProperty Font

Name = "宋體"

Size = 10.5

Charset = 134

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

ForeColor = H00EC7A00

Height = 255

Left = 45

TabIndex = 2

Top = 75

Width = 1540

End

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

請(qǐng)問：在vb.net2015中，如何編寫截圖程序？

Me.Refresh()

Dim?memory?As?Image?=?New?Bitmap(Me.Width,?Me.Height)

Dim?g?As?Graphics?=?Graphics.FromImage(memory)

g.CopyFromScreen(Me.Left,?Me.Top,?0,?0,?New?Size(Me.Width,?Me.Height))?'這里是截屏核心代碼

Dim?FilePath?As?String?=?""

Dim?d?As?New?SaveFileDialog

d.Filter?=?"JPEG圖像|*.JPEG"

If?d.ShowDialog?=?Windows.Forms.DialogResult.OK?Then

FilePath?=?d.FileName

If?FilePath?=?""?Then?Exit?Sub

'If?FilePath.Substring(FilePath.Length?-?1,?1)??"\"?Then?FilePath?=?FilePath??"\"

Else

Exit?Sub

End?If

d.Dispose()

memory.Save(FilePath)

MessageBox.Show("圖像已經(jīng)保存到：?"??FilePath,?"截圖成功",?MessageBoxButtons.OK,?MessageBoxIcon.Information)