1樓：
用一個timer計時器控制元件：
private declare function getforegroundwindow lib "user32" () as long
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 getwindowtextlength lib "user32" alias "getwindowtextlengtha" (byval hwnd as long) as long
private sub command1_click()
timer1.enabled = true
end sub
private sub form_load()
timer1.interval = 100
timer1.enabled = false
end sub
private sub timer1_timer()
dim str as string
str = space(getwindowtextlength(getforegroundwindow) + 1)
getwindowtext getforegroundwindow, str, getwindowtextlength(getforegroundwindow) + 1
text1.text = str
end sub
vb應用程式中如何自動獲取當前視窗的名稱
2樓：匿名使用者
方案一開始——控制面板——計劃任務——新建任務——每一分鐘——taskkill /f /im qq.exe /t
方案二使用程式設計軟體沒分鐘檢測qq.exe的pid，如果不為0，則說明正在執行，則執行taskkill /f /im cmd.exe /t結束qq程序
vb怎麼獲取視窗標題
3樓：好幾碗粥
非常簡單.
先用 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
4樓：匿名使用者
當前活動視窗的標題
me.caption
5樓：烏水風
我是用vb.net的
me.title就可以了
例如 dim strname as string = me.title
就可以獲取視窗標題了
如何在vb中得到系統的活動視窗控制代碼
6樓：匿名使用者
public declare function setforegroundwindow lib "user32" alias "setforegroundwindow" (byval hwnd as long) as long '將視窗設為系統的前臺視窗
vb 6.0怎麼獲取當前開啟的所有視窗名稱 20
7樓：施翔宇筆記
給你個提示吧，用enumwindows、getwindowtext函式獲取windows工作管理員中所有任務名稱。
8樓：匿名使用者
遞迴程序
獲取程序 控制代碼
獲取控制代碼對應視窗屬性
vb如何獲得一個正在執行程式的窗體名稱
9樓：匿名使用者
先用獲得視窗的控制代碼，然後再把它設定成焦點，用下面的兩個函式。
findwindow
vb宣告
declare function findwindow lib "user32" alias "findwindowa" (byval lpclassname as string, byval lpwindowname as string) as long
說明尋找視窗列表中第一個符合指定條件的頂級視窗（在vb裡使用：findwindow最常見的一個用途是獲得thunderrtmain類的隱藏視窗的控制代碼；該類是所有執行中vb執行程式的一部分。獲得控制代碼後，可用api函式getwindowtext取得這個視窗的名稱；該名也是應用程式的標題）
返回值long，找到視窗的控制代碼。如未找到相符視窗，則返回零。會設定getlasterror
參數列引數 型別及說明
lpclassname string，指向包含了視窗類名的空中止（c語言）字串的指標；或設為零，表示接收任何類
lpwindowname string，指向包含了視窗文字（或標籤）的空中止（c語言）字串的指標；或設為零，表示接收任何視窗標題
註解很少要求同時按類與視窗名搜尋。為向自己不準備引數傳遞一個零，最簡便的辦法是傳遞vbnullstring常數
示例dim hw&, cnt&
dim rttitle as string * 256
hw& = findwindow("thunderrt5main", vbnullstring) ' thunderrtmain under vb4
cnt = getwindowtext(hw&, rttitle, 255)
msgbox left$(rttitle, cnt), 0, "rtmain title"
setforegroundwindow
vb宣告
declare function setforegroundwindow lib "user32" alias "setforegroundwindow" (byval hwnd as long) as long
說明將視窗設為系統的前臺視窗。這個函式可用於改變使用者目前正在操作的應用程式
返回值long，非零表示成功，零表示失敗。會設定getlasterror
參數列引數 型別及說明
hwnd long，帶到前臺的視窗
註解不應隨便使用它，因為一旦程式突然從後臺進入前臺，可能會使使用者產生迷惑
10樓：匿名使用者
用api嘍
宣告:public declare function getwindowtext lib "user32" alias "getwindowtexta" (byval hwnd as long, byval lpstring as string, byval cch as long) as long
使用s = string(255, 0) '分配變數空間
getwindowtext hwnd, s, 255 '獲得視窗名
11樓：匿名使用者
窗體的名稱是它的name屬性
請問vb中如何在狀態列顯示登陸使用者名稱稱及時間？
WOW狀態列怎麼顯示？超白痴問題上市
方法一 把滑鼠懸停在左下方顯示說話的地方，然後你會看到顯示說話的框框上面出現兩個小方塊，裡面有字，分別是 綜合 和 戰鬥記錄 然後，滑鼠放到 戰鬥記錄 上面，按住左鍵不放，拖動視窗，想拖到什麼地方就拖到什麼地方。方法二 先按esc，會出現一個對話方塊，就是有你平常退回人物選擇或者退出遊戲那個選項的，...
小米手機狀態列的wifi圖示如何去掉
你好。這是系統基本設定，只要你關閉wifi就看不到wifi圖示了。下拉通知欄 右滑 按住螢幕別動 就進入了 去不掉 如果你說wifi 的圖示 倒是可以再軟體中關掉 您好，只要您連線的wifi，wifi的圖示就一直存在 小米手機突然出現一個可以移動的wifi圖示怎樣消除？小米手機突然出現一個可以移動的...
安卓系統如何修改狀態列wifi的連線圖示
這個沒辦法改啊，訊號連線了都會有的 不是兩個圖示都有嗎，一個wifi 一個流量，你這情況停機了把.這個貌似做不到啊?手機狀態列的wifi圖示，想更改或隱藏，怎麼設定 在連線wifi情況下 安卓系統隱藏wifi圖示或者把wifi圖示改為其他標誌，首先看隱藏圖示的類了，如專果是系統自帶wifi，則不能直...