vb.net截屏代碼 截屏程序代碼

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

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

讓客戶滿意是我們工作的目標，不斷超越客戶的期望值來自于我們對這個行業(yè)的熱愛。我們立志把好的技術通過有效、簡單的方式提供給客戶，將通過不懈努力成為客戶在信息化領域值得信任、有價值的長期合作伙伴，公司提供的服務項目有：域名申請、虛擬主機、營銷軟件、網站建設、青神網站維護、網站推廣。

標題的問題：你先把圖片保存，再加載

vb截屏代碼？

Private?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

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

'窗口上要放一個圖片框和一個時鐘控件。辦法是把屏幕拷貝到圖片框，再把圖片框的Image保存到文件。

Private?Sub?Form_Load()

If?Dir("D:\截圖",?vbDirectory)?=?""?Then?MkDir?"D:\截圖"

Timer1.Enabled?=?False

Timer1.Interval?=?1000

Picture1.Move?0,?0,?Screen.Width,?Screen.Height

Picture1.AutoRedraw?=?True

Picture1.Visible?=?False

End?Sub

Private?Sub?Command1_Click()

Me.WindowState?=?vbMinimized?'開始后把窗口最小化，否則自己也會拷貝進去

Timer1.Enabled?=?True

End?Sub

Private?Sub?Timer1_Timer()

Static?imgIndex?As?Long

imgIndex?=?imgIndex?+?1

BitBlt?Picture1.hDC,?0,?0,?Screen.Width?\?Screen.TwipsPerPixelX,?Screen.Height?\?Screen.TwipsPerPixelY,?GetDC(0),?0,?0,?vbSrcCopy

SavePicture?Picture1.Image,?"D:\截圖\"??imgIndex??".bmp"

End?Sub

VB截取屏幕

[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);

先找到你要截圖的那個窗體的 句柄 然后根據這個句柄得到改窗體的DC 創(chuàng)建一個bitmap 然后填充 得到的bitmap后 顯示到picturebox里面

本文標題：vb.net截屏代碼 截屏程序代碼
分享路徑：http://www.jbt999.com/article46/doosoeg.html

成都網站建設公司_創(chuàng)新互聯(lián)，為您提供域名注冊、網站設計、外貿建站、網頁設計公司、電子商務、網站改版

廣告

聲明：本網站發(fā)布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：[email protected]。內容未經允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯(lián)