1樓：匿名使用者
private declare function getforegroundwindow lib "user32" () as long
private sub form_load()msgbox "控制代碼為：" & getforegroundwindow
end sub
vb獲取視窗控制代碼的詳細教程
2樓：電子科技小百科
1、首先在電腦中開啟vb軟體，然後點選視窗。
2、然後找到窗體布局視窗，就可以在這裡，直接拖曳滑鼠，設定窗體的位置。
3、如果沒有預設開啟，回到操作頁面中，找到並點選如下圖的按鈕。
4、也可以找到stateupposition這個屬性。
5、然後在開啟點頁面中，就可以根據自己的需要，設定預設的型別了。
3樓：匿名使用者
是不是取某個程式的視窗控制代碼?
我以前寫輔助的時候弄過
使用的api函式是findwindow
首先宣告一下api
在你視窗最頂的位置上寫上
private declare function 取視窗控制代碼 lib "user32" alias "findwindowa" (byval lpclassname as string, byval lpwindowname as string) as long
'由於vb支援中文的 我就定義成 取視窗控制代碼 這個了'在窗體中新增乙個按鈕裡面放進下面**就ok了private sub command1_click()dim 視窗控制代碼 as long '宣告視窗控制代碼變數儲存視窗控制代碼 = 取視窗控制代碼(vbnullstring, "新建 文字文件.txt - 記事本") '取視窗標題的控制代碼 把得到視窗標題控制代碼賦予給剛才 視窗控制代碼 這變數裡
if 視窗控制代碼 = 0 then '判斷視窗控制代碼是否等於0 如果等於0表示無法找到視窗控制代碼
msgbox "無法找到需要的視窗控制代碼"
else
msgbox "已找到視窗控制代碼 控制代碼數為：" & 視窗控制代碼end if
end sub
純手工+vb寫出來的** 完全不是自己找的
4樓：匿名使用者
就這個了
找qq的控制代碼，其他的雷同
5樓：匿名使用者
dim hwnd as long
hwnd=picture1.hwnd
hwnd=form1.hwnd???
《vb》api如何獲取視窗內控制項的控制代碼？
vb 怎麼獲取指定控制代碼視窗的截圖
6樓：伯鑲柏
'新增如下宣告
private declare function bringwindowtotop lib "user32" (byval hwnd as long) as long
private declare function getwindowrect lib "user32" (byval hwnd as long, lprect as rect) as long
private declare function getwindowdc lib "user32" (byval hwnd as long) as long
private declare function releasedc lib "user32" (byval hwnd as long, byval hdc as long) as long
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 type rect
left as long
top as long
right as long
bottom as long
end type
'新增這個函式
private sub getwndpic(wnd as long, pic as picturebox)
dim r as rect, dc as long
getwindowrect wnd, r '獲取指定視窗的左上角、右下角位置(以便獲取其大小)
dc = getwindowdc(wnd) '得到dc
with pic
.autoredraw = true: .borderstyle = 0
.parent.scalemode = vbpixels
.move .left, .top, r.right - r.left, r.bottom - r.top '使picturebox適合大小
bringwindowtotop wnd '目標視窗提到前面(非置頂)
bitblt .hdc, 0, 0, .width, .height, dc, 0, 0, vbsrccopy '複製繪圖
end with
releasedc wnd, dc '釋放
end sub
'呼叫示例(把控制代碼131454的程式視窗截圖放到picture1中)
getwndpic 131454, picture1
vb通過控制代碼獲得視窗名稱
7樓：匿名使用者
vb如何獲取程式的視窗標題名稱：api函式宣告：private declare function getwindowtext lib "user32" alias "getwindowtexta" (byval hwnd as long, byval lpstring as string, byval cch as long) as long呼叫：
private sub form_load()dim a as stringa = space(255)getwindowtext hwnd, a, 255msgbox aend sub
vb知道視窗控制代碼如何獲取視窗裡的所有文字？
8樓：
declare function getwindowtext lib "user32" alias "getwindowtexta" _
(byval hwnd as long, byval lpstring as string, _
byval cch as long) as long
dim wintitlebuf as string * 255
getwindowtext(lhwnd, wintitlebuf, 255)
wintitlebuf=left( wintitlebuf,instr(1, wintitlebuf,chr(0))-1)
ps：用enumchirldwindow 函式列舉 得到主窗體的所有子視窗（控制項）的hwnd，就可以用getwindowtext得到內容。但是窗體上的標籤是找不到的……
9樓：匿名使用者
窗體上的文字，實際上在該窗體上的子窗體（就是窗體上的控制項，如標籤控制項，按鈕控制項等）上的文字，你必須列舉該窗體下的子窗體後，再用getwindowtext獲取內容。
vb 獲取視窗上多個控制項的控制代碼,如何知道哪個是自己想要的?
10樓：匿名使用者
一、程式設計前的準備工作：
1、開啟「計算器」程式；
2、用spy+工具，檢視0-9按鈕對應的控制代碼(當然包括其他你想要的控制代碼)；
3、利用vb列舉計算器視窗下的所有子窗體控制代碼；
4、通過對比，找出0-9控制代碼在在列舉列表中所處的相對位置，並記住此位置。
二、程式設計實現
在開啟「計算器」程式的前提下，如果你想點選1對應的按鈕，就先列舉計算器視窗下的所有子窗體控制代碼；當找到1所處的相對位置時，此時的button就可模擬點選了。其他數字的點選實現與此相似。
什麼是企業頂層設計企業的頂層設計包括哪些內容
頂層設計，工程學術語，正成為中國新的政治名詞。其在工程學中的本義是統籌考慮專案各層次和各要素，追根溯源，統攬全域性，在最高層次上尋求問題的解決之道。頂層設計 在中共 關於 十二五 規劃的建議中首次出現。這一新名詞進入國家新五年規劃，預示著中國改革事業進入了新的征程。頂層設計是運用系統論的方法，從全域...
頂層設計方案包括哪些內容，企業的頂層設計包括哪些內容
1 專案概況。2 汙染物的 設計的水質水量 排放標準和沼氣的用途。3 專案方案選擇。4 專案具體的方案設計，包括工藝 建築 裝置 電氣等。5 人員編制及持證人員的培訓 環境保護 安全防火 能源的開發與利用。6 專案投資費用估算與執行費用估算。7 經濟技術指標。1 專案概況。2 汙染物的 設計的水質水...
“頂層設計”概念什麼意思，頂層設計是什麼意思
頂層設計，工程學術語，正成為中國新的政治名詞。其在工程學中的本意是統籌考慮專案各層次和各要素，追根溯源，統攬全域性，在最高層次上尋求問題的解決之道。頂層設計 在中共 關於 十二五 規劃的建議中首次出現。這一新名詞進入國家新五年規劃，預示著中國改革事業進入了新的征程。頂層設計不是設計頂層，而是從頂層開...