vb.net 2008 如何將指定的窗體截圖并保存

INTOUCH自帶的就有，打印屏幕的命令

讓客戶(hù)滿意是我們工作的目標(biāo)，不斷超越客戶(hù)的期望值來(lái)自于我們對(duì)這個(gè)行業(yè)的熱愛(ài)。我們立志把好的技術(shù)通過(guò)有效、簡(jiǎn)單的方式提供給客戶(hù)，將通過(guò)不懈努力成為客戶(hù)在信息化領(lǐng)域值得信任、有價(jià)值的長(zhǎng)期合作伙伴，公司提供的服務(wù)項(xiàng)目有：國(guó)際域名空間、網(wǎng)站空間、營(yíng)銷(xiāo)軟件、網(wǎng)站建設(shè)、金灣網(wǎng)站維護(hù)、網(wǎng)站推廣。

自己寫(xiě)個(gè)時(shí)間條件運(yùn)行那命令就可以了

PRINTSCREEN這個(gè)命令 具體怎么用 看下幫助

希望我的回答對(duì)你有所幫助

如有其他問(wèn)題，可以繼續(xù)追問(wèn)，您的采納是我前進(jìn)的動(dòng)力！

VB.net點(diǎn)擊按鈕后截圖，截取被當(dāng)前窗體擋住的圖像作為窗體背景（窗體默認(rèn)無(wú)邊框樣式）

'沒(méi)辦法，需的把窗口隱藏一下，還的隱藏后延遲一下再截圖。

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

VB.NET如何實(shí)現(xiàn)擷取區(qū)域屏幕

既然能夠取得整個(gè)屏幕，可以取到整個(gè)屏幕以后創(chuàng)建一個(gè)全屏窗體顯示靜態(tài)的屏幕圖像，然后在窗體上實(shí)現(xiàn)部分截取。

估計(jì)別的截圖也是這個(gè)原理，因?yàn)橐稽c(diǎn)開(kāi)始截圖屏幕就變?yōu)殪o態(tài)不動(dòng)了，肯定是在截圖初期復(fù)制了當(dāng)時(shí)的屏幕場(chǎng)景

vb.net 窗口句柄獲取進(jìn)程名

FindWindowEx

VB聲明

Declare Function FindWindowEx Lib "user32" Alias

"FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As

String, ByVal lpsz2 As String) As Long

說(shuō)明

在窗口列表中尋找與指定條件相符的第一個(gè)子窗口

返回值

Long，找到的窗口的句柄。如未找到相符窗口，則返回零。會(huì)設(shè)置GetLastError

參數(shù)表

參數(shù)

類(lèi)型及說(shuō)明

hWnd1

Long，在其中查找子的父窗口。如設(shè)為零，表示使用桌面窗口（通常說(shuō)的頂級(jí)窗口都被認(rèn)為是桌面的子窗口，所以也會(huì)對(duì)它們進(jìn)行查找）

hWnd2

Long，從這個(gè)窗口后開(kāi)始查找。這樣便可利用對(duì)FindWindowEx的多次調(diào)用找到符合條件的所有子窗口。如設(shè)為零，表示從第一個(gè)子窗口開(kāi)始搜索

lpsz1

String，欲搜索的類(lèi)名。零表示忽略

lpsz2

String，欲搜索的類(lèi)名。零表示忽略

vb.net問(wèn)題，如何根據(jù)句柄獲取ihtmldocument2接口，網(wǎng)上都是c或者c＃，希望學(xué)習(xí)大俠代碼，謝謝

我這有vb.net的，知道句柄就可獲取，用C#改了好久才可以。

Declare Function ObjectFromLresult Lib "oleacc" (ByVal lResult As Int32, ByRef riid As System.Guid, ByVal wParam As Int32, ByRef ppvObject As mshtml.IHTMLDocument) As Int32

Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpString As String) As Int32

Declare Function SendMessageTimeout Lib "user32" Alias "SendMessageTimeoutA" (ByVal hWnd As Int32, ByVal msg As Int32, ByVal wParam As Int32, ByVal lParam As Int32, ByVal fuFlags As Int32, ByVal uTimeout As Int32, ByRef lpdwResult As Int32) As Int32

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Int32

Const SMTO_ABORTIFHUNG = H2

用這些api可實(shí)現(xiàn)，你沒(méi)給分，我也舍不得拿出代碼，費(fèi)了很多時(shí)間才搞定的代碼

vb.net如何通過(guò)窗口句柄顯示窗口

首先聲明一下API

在你窗口最頂?shù)奈恢蒙蠈?xiě)上

Private Declare Function 取窗口句柄 Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

'由于VB支持中文的 我就定義成 取窗口句柄 這個(gè)了

'在窗體中添加一個(gè)按鈕里面放進(jìn)下面代碼就OK了

Private Sub Command1_Click()

Dim 窗口句柄 As Long '聲明窗口句柄變量存儲(chǔ)

窗口句柄 = 取窗口句柄(vbNullString, "新建 文本文檔.txt - 記事本") '取窗口標(biāo)題的句柄 把得到窗口標(biāo)題句柄賦予給剛才 窗口句柄 這變量里

If 窗口句柄 = 0 Then '判斷窗口句柄是否等于0 如果等于0表示無(wú)法找到窗口句柄

MsgBox "無(wú)法找到需要的窗口句柄"

Else

MsgBox "已找到窗口句柄 句柄數(shù)為：" 窗口句柄

End If

End Sub