INTOUCH自帶的就有，打印屏幕的命令
我們提供的服務(wù)有：成都做網(wǎng)站、成都網(wǎng)站制作、成都外貿(mào)網(wǎng)站建設(shè)、微信公眾號開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認證、新鄭ssl等。為超過千家企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務(wù)，是有科學(xué)管理、有技術(shù)的新鄭網(wǎng)站制作公司
自己寫個時間條件運行那命令就可以了
PRINTSCREEN這個命令 具體怎么用 看下幫助
希望我的回答對你有所幫助
如有其他問題，可以繼續(xù)追問，您的采納是我前進的動力！
'沒辦法，需的把窗口隱藏一下，還的隱藏后延遲一下再截圖。
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
問題：引用原文：“要是換個思路，先截全屏，然后將窗體全屏，讓Picturebox占滿全屏幕，但是無論利用什么方法(最大化，boderstyle設(shè)為none）都遮擋不了任務(wù)欄?！?/p>
解決方法：經(jīng)測試，代碼可以實現(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
程序截圖：
說實話， 這功能要是用按鍵精靈來做，我馬上就可以給出你做好的精靈程序，可是用VB來搞就比較難了，我在臺灣一個編程網(wǎng)站里幫你查了一篇文章，可以達到你的要求，希望對你有所幫助！以下是繁to簡資料： 請先關(guān)閉防病毒軟件，因為大部分都會把按鍵精靈當病毒擋掉 '先下載按鍵精靈第六版,主要是要引用按鍵精靈QMDispatch.dll 里的函數(shù) '解壓縮后把目錄下所有的.dll檔 復(fù)制到 C:\WINNT\system32下面 '開始 執(zhí)行 輸入regsvr32 C:\WINNT\system32\QMDispatch.dll '然后到vb里面 項目設(shè)定引用項目 '打以下程序代碼,把要找的圖 放在d:\ 檔名用icon.bmp '找到會秀出坐標，完成 '我在vb6 sp6下執(zhí)行成功 沒問題 Option Explicit Private Declare Function FindPic Lib "QMDispatch" () As Long Private Sub Command1_Click() Dim pos As Long Dim QMDispatchObj As Object Set QMDispatchObj = CreateObject("QMDispatch.QMFunction") '參數(shù) 左, 上, 右, 下, 尋找圖片的路徑, 相似度 pos = QMDispatchObj.FindPic(0, 0, 1280, 1024, "d:\icon.bmp", 0.9) MsgBox Int(pos / 8192) 'X左邊 MsgBox pos Mod 8192 'Y左邊 End Sub
'模塊中
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
目的: 將屏幕按照指定坐標和大小進行截取成圖,在picture1顯示
問題: 大小是相同了,為什么截取的坐標不對,只是屏幕上的左上
相信大家都用過QQ截圖功能。不過很多人并沒有真正掌握好它的用法。將QQ截圖與其它截屏和制圖軟件配合使用，會有意想不到的效果。
獲取顏色的RGB值
我們在編輯圖片或網(wǎng)頁的時候，經(jīng)常需要獲取某種顏色的“RGB值”，所以很多人都安裝了第三方的顏色吸取工具。其時用QQ截圖鍵即可獲取屏幕上任意顏色的RGB值。
當按下“Ctrl+Shift+A”彈出“截圖”提示框時，提示框中的“當前像素RGB”即為當前鼠標屏幕位置的顏色RGB值，將鼠標移動到你想查看的屏幕顏色上即可獲得相應(yīng)的RGB值（如圖1）。
圖1精確截取圖片大小
有時我們對要使用的截圖尺寸有嚴格要求，比如論壇簽名或QQ頭像等。用QQ截圖鍵可以按尺寸精確截取，一步到位無需再進行后期裁剪了。
按下QQ截圖鍵，按住鼠標不放選取截取范圍時，在鼠標上方會有一個信息框顯示當前范圍的詳細信息，其中“矩形大小”就是以像素來表示的圖片的尺寸大小，括號內(nèi)的數(shù)字分別表示的是長和高（如圖2）。松開鼠標調(diào)整截圖框時，對照“矩形大小”就可以按需要的尺寸來精確截圖范圍，然后用鼠標點住截圖框?qū)⒔貓D框拖到要截取的圖片上，雙擊即可獲得所需尺寸的圖片了。
圖2圖片拼貼好幫手
大部分的截圖軟件一次只能截取一張圖片，當要截取多張圖片并進行拼貼組合時，就需要一張一張截取全部保存后再進行拼貼操作，非常麻煩。
我們知道用QQ截圖鍵截取的圖片可以在任一個可以粘貼圖片的程序中使用，這樣只需用截圖軟件進行一次截圖操作，剩下的圖片用QQ截圖鍵來截取，然后依次粘貼到截圖軟件的窗口中即可快速進行拼貼操作了，是不是很方便啊。
小提示：QQ截圖鍵無需打開聊天窗口即可使用，截取的圖片在任一可粘貼圖片的程序窗口中如畫圖、Word等，使用“粘貼”命令即可使用
重慶分公司
重慶分公司
