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