1樓：匿名使用者
private 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
private declare function setwindowpos lib "user32" (byval hwnd as long, byval hwndinsertafter as long, byval x as long, byval y as long, byval cx as long, byval cy as long, byval wflags as long) as long
private sub command1_click()
dim i as long
i = findwindowex(0, 0, vbnullstring, "testwindow")
do until i = 0
setwindowpos i, me.hwnd, 0, 0, 640, 480, 0
i = findwindowex(0, i, vbnullstring, "testwindow")
loop
end sub
以上**是搜尋所有標題為「testwindow」的視窗，並把它們移到桌面左上角，大小設定為640*480，是精簡得不能再簡的**了，只用了兩個api函式。你在此基礎上修改一下就行了。
2樓：秦風落
如果是窗體自己的控制代碼的話，窗體有屬性，可以直接告訴你的。別的程式呼叫的話，可以先把這個控制代碼寫到一個檔案裡，然後讓別的程式去讀檔案然後呼叫控制代碼就可以咯。（網上有寫好的程式去獲取別的程式的窗體控制代碼。）
【vb】如何獲取一個視窗中所有文字框的控制代碼?
3樓：蘭馨谷
dim i as long,h1 as long,h() as long
h1=0
redim h(0)
do while true
i = findwindowex(視窗控制代碼, h1, "edit", vbnullstring)
if i <> 0 then
redim preserve h(ubound(h)+1)h(ubound(h))=i
h1=i
else
exit do
end if
loop
''ubound(h) 就是文字框的總數
vb怎麼獲取視窗標題
4樓：好幾碗粥
非常簡單.
先用 getforegroundwindow 來獲取當前活動視窗的控制代碼,然後用 getwindowtext 來獲得這個控制代碼的標題..就可以了,
我給你寫了個** 你執行看下就明白了..
在窗體上建立一個timer控制元件(用來隨時檢測活動視窗的標題),然後複製下面的** 執行 就看到了...哥們,最好追加點分哦~~ o(∩_∩)o...~~
private declare function getwindowtext lib "user32" alias "getwindowtexta" (byval hwnd as long, byval lpstring as string, byval cch as long) as long
private declare function getforegroundwindow lib "user32" () as long
private sub form_load()
timer1.interval = 500
timer1.enabled = true
me.width = screen.width / 2
end sub
private sub timer1_timer()
dim hd as long, tt as string
tt = space(255)
hd = getforegroundwindow
getwindowtext hd, tt, 256
clsprint "活動視窗標題是 " & tt
end sub
5樓：匿名使用者
當前活動視窗的標題
me.caption
6樓：烏水風
我是用vb.net的
me.title就可以了
例如 dim strname as string = me.title
就可以獲取視窗標題了
vb 獲取視窗上多個控制元件的控制代碼,如何知道哪個是自己想要的?
7樓：匿名使用者
一、程式設計前的準備工作：
1、開啟「計算器」程式；
2、用spy+工具，檢視0-9按鈕對應的控制代碼(當然包括其他你想要的控制代碼)；
3、利用vb列舉計算器視窗下的所有子窗體控制代碼；
4、通過對比，找出0-9控制代碼在在列舉列表中所處的相對位置，並記住此位置。
二、程式設計實現
在開啟「計算器」程式的前提下，如果你想點選1對應的按鈕，就先列舉計算器視窗下的所有子窗體控制代碼；當找到1所處的相對位置時，此時的button就可模擬點選了。其他數字的點選實現與此相似。
vb獲取視窗控制代碼的詳細教程
8樓：電子科技小百科
1、首先在電腦中開啟vb軟體，然後點選視窗。
2、然後找到窗體佈局視窗，就可以在這裡，直接拖曳滑鼠，設定窗體的位置。
3、如果沒有預設開啟，回到操作頁面中，找到並點選如下圖的按鈕。
4、也可以找到stateupposition這個屬性。
5、然後在開啟點頁面中，就可以根據自己的需要，設定預設的型別了。
9樓：匿名使用者
是不是取某個程式的視窗控制代碼?
我以前寫輔助的時候弄過
使用的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寫出來的** 完全不是自己找的
10樓：匿名使用者
就這個了
找qq的控制代碼，其他的雷同
11樓：匿名使用者
dim hwnd as long
hwnd=picture1.hwnd
hwnd=form1.hwnd???
vb通過控制代碼獲得視窗名稱
12樓：匿名使用者
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如何向所有視窗廣播自定義訊息
public wm definemessage as long wm definemessage registerwindowmessage msg123 引號裡是自定義訊息名字 postmessage hwnd broadcast,wm definemessage,0 0 後面兩個引數你可以自己指...
vb中如何控制字型大小，vb中如何控制字型大小
所有的控制元件都有字型屬性，找到它修改就可以了。如果需要在程式中動態修改也可以的，什麼意思？是說編寫出的運用程式的字型大小還是什麼？ctlnew.font.size 18ctlnew.font.name 宋體 ctlnew.forecolor vbhighlightctlnew.fontbold t...
VB中CASE使用問題，VB中如何使用select case語句
這種不行，用 if then elseif then elseif then end if 還有個方法，這些變數的值都0和1，可以作為二進位制碼合成一個變數中，然後用select private sub command1 click dim b as byte dim s1 as byte,s2 a...