'沒辦法，需的把窗口隱藏一下，還的隱藏后延遲一下再截圖。
成都創(chuàng)新互聯(lián)于2013年開始，先為白山等服務(wù)建站，白山等地企業(yè)，進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為白山企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問題。
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.NT用的是觸發(fā)事件，一按就會觸發(fā)，要不你加個timer控件，延遲一秒
標(biāo)題的問題：你先把圖片保存，再加載
'模塊中
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截圖與其它截屏和制圖軟件配合使用，會有意想不到的效果。
獲取顏色的RGB值
我們在編輯圖片或網(wǎng)頁的時候，經(jīng)常需要獲取某種顏色的“RGB值”，所以很多人都安裝了第三方的顏色吸取工具。其時用QQ截圖鍵即可獲取屏幕上任意顏色的RGB值。
當(dāng)按下“Ctrl+Shift+A”彈出“截圖”提示框時，提示框中的“當(dāng)前像素RGB”即為當(dāng)前鼠標(biāo)屏幕位置的顏色RGB值，將鼠標(biāo)移動到你想查看的屏幕顏色上即可獲得相應(yīng)的RGB值（如圖1）。
圖1精確截取圖片大小
有時我們對要使用的截圖尺寸有嚴(yán)格要求，比如論壇簽名或QQ頭像等。用QQ截圖鍵可以按尺寸精確截取，一步到位無需再進(jìn)行后期裁剪了。
按下QQ截圖鍵，按住鼠標(biāo)不放選取截取范圍時，在鼠標(biāo)上方會有一個信息框顯示當(dāng)前范圍的詳細(xì)信息，其中“矩形大小”就是以像素來表示的圖片的尺寸大小，括號內(nèi)的數(shù)字分別表示的是長和高（如圖2）。松開鼠標(biāo)調(diào)整截圖框時，對照“矩形大小”就可以按需要的尺寸來精確截圖范圍，然后用鼠標(biāo)點(diǎn)住截圖框?qū)⒔貓D框拖到要截取的圖片上，雙擊即可獲得所需尺寸的圖片了。
圖2圖片拼貼好幫手
大部分的截圖軟件一次只能截取一張圖片，當(dāng)要截取多張圖片并進(jìn)行拼貼組合時，就需要一張一張截取全部保存后再進(jìn)行拼貼操作，非常麻煩。
我們知道用QQ截圖鍵截取的圖片可以在任一個可以粘貼圖片的程序中使用，這樣只需用截圖軟件進(jìn)行一次截圖操作，剩下的圖片用QQ截圖鍵來截取，然后依次粘貼到截圖軟件的窗口中即可快速進(jìn)行拼貼操作了，是不是很方便啊。
小提示：QQ截圖鍵無需打開聊天窗口即可使用，截取的圖片在任一可粘貼圖片的程序窗口中如畫圖、Word等，使用“粘貼”命令即可使用
問題：引用原文：“要是換個思路，先截全屏，然后將窗體全屏，讓Picturebox占滿全屏幕，但是無論利用什么方法(最大化，boderstyle設(shè)為none）都遮擋不了任務(wù)欄。”
解決方法：經(jīng)測試，代碼可以實(shí)現(xiàn)你得要求，即能遮擋任務(wù)欄。
設(shè)置：在窗體上添加一個PictureBox1,，dock屬性設(shè)置為Fill。隨便導(dǎo)入一張圖片用于顯示。
代碼如下：
Public?Class?Form1
Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load
Me.FormBorderStyle?=?Windows.Forms.FormBorderStyle.None
Me.WindowState?=?FormWindowState.Maximized
End?Sub
Private?Sub?PictureBox1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?PictureBox1.Click
Me.Close()
End?Sub
End?Class
程序截圖：
[DllImport("user32.dll", EntryPoint = "GetDC")]
public static extern IntPtr GetDC(IntPtr hWnd);
[DllImport("user32.dll", EntryPoint = "ReleaseDC")]
public static extern IntPtr ReleaseDC(IntPtr hWnd, IntPtr hDC);
[DllImport("user32.dll", SetLastError = true)]
static extern IntPtr FindWindowEx(IntPtr hwndParent, IntPtr hwndChildAfter, string lpszClass, string lpszWindow);
[DllImport("user32.dll", SetLastError = true)]
static extern IntPtr FindWindow(string lpClassName, string lpWindowName);
先找到你要截圖的那個窗體的 句柄 然后根據(jù)這個句柄得到改窗體的DC 創(chuàng)建一個bitmap 然后填充 得到的bitmap后 顯示到picturebox里面
INTOUCH自帶的就有，打印屏幕的命令
自己寫個時間條件運(yùn)行那命令就可以了
PRINTSCREEN這個命令 具體怎么用 看下幫助
希望我的回答對你有所幫助
如有其他問題，可以繼續(xù)追問，您的采納是我前進(jìn)的動力！
重慶分公司
重慶分公司
