VB.NT用的是觸發事件,一按就會觸發,要不你加個timer控件,延遲一秒
創新互聯擁有網站維護技術和項目管理團隊,建立的售前、實施和售后服務體系,為客戶提供定制化的成都網站設計、網站制作、網站維護、雅安電信機房解決方案。為客戶網站安全和日常運維提供整體管家式外包優質服務。我們的網站維護服務覆蓋集團企業、上市公司、外企網站、商城網站開發、政府網站等各類型客戶群體,為全球上千余家企業提供全方位網站維護、服務器維護解決方案。
標題的問題:你先把圖片保存,再加載
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("圖像已經保存到:?"??FilePath,?"截圖成功",?MessageBoxButtons.OK,?MessageBoxIcon.Information)
[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 創建一個bitmap 然后填充 得到的bitmap后 顯示到picturebox里面
本文題目:vb.net的截圖原代碼 vbs截圖代碼
轉載來源:http://vcdvsql.cn/article28/ddoijcp.html
成都網站建設公司_創新互聯,為您提供營銷型網站建設、微信公眾號、微信小程序、定制網站、網站內鏈、定制開發
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯