VB.NT用的是觸發(fā)事件,一按就會觸發(fā),要不你加個timer控件,延遲一秒
創(chuàng)新互聯(lián)公司專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù),包含不限于做網(wǎng)站、成都網(wǎng)站建設(shè)、防城港網(wǎng)絡(luò)推廣、微信小程序定制開發(fā)、防城港網(wǎng)絡(luò)營銷、防城港企業(yè)策劃、防城港品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運營等,從售前售中售后,我們都將竭誠為您服務(wù),您的肯定,是我們最大的嘉獎;創(chuàng)新互聯(lián)公司為所有大學(xué)生創(chuàng)業(yè)者提供防城港建站搭建服務(wù),24小時服務(wù)熱線:028-86922220,官方網(wǎng)址:www.cdcxhl.com
標題的問題:你先把圖片保存,再加載
INTOUCH自帶的就有,打印屏幕的命令
自己寫個時間條件運行那命令就可以了
PRINTSCREEN這個命令 具體怎么用 看下幫助
希望我的回答對你有所幫助
如有其他問題,可以繼續(xù)追問,您的采納是我前進的動力!
'模塊中
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等,使用“粘貼”命令即可使用
vb.net 怎么來回切換圖片?1、添加控件Picturebox1和控件Timer1,將Timer1的Interval屬性改為1000(即1秒),Enabled屬性改為True
2、假設(shè)你要循環(huán)切換4張圖片,你可以添加如下代碼即可實現(xiàn):
Dim a As Integer = 0
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If a = 4 Then
a = 0
Else
a = a + 1
End If
If a = 0 Then Me.PictureBox1.Image = Image.FromFile("1.jpg")
If a = 1 Then Me.PictureBox1.Image = Image.FromFile("2.jpg")
If a = 2 Then Me.PictureBox1.Image = Image.FromFile("3.jpg")
If a = 3 Then Me.PictureBox1.Image = Image.FromFile("4.jpg")
End Sub