Vb查詢控制代碼

2023-03-08 23:45:20 字數 1100 閱讀 6964

1樓:匿名使用者

'新增一個timer控制元件 寫如下**:(再開兩個記事本看一下效果)

private declare function getdesktopwindow lib "user32" () as long

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 setfocusapi& lib "user32" alias "setfocus" (byval hwnd as long)

private declare function flashwindow lib "user32" (byval hwnd as long, byval binvert as long) as long

private declare sub sleep lib "kernel32" (byval dwmilliseconds as long)

dim dhwnd as long

private sub form_load()

timer1.interval = 1000

dhwnd = getdesktopwindow()

end sub

private sub timer1_timer()

hwnd1 = findwindowex(dhwnd, 0, "notepad", vbnullstring)'得到第一個控制代碼

flashwindow hwnd1, true

sleep (500)

hwnd2 = findwindowex(dhwnd, hwnd1, "notepad", vbnullstring)'得到第二個控制代碼

setfocusapi hwnd2

flashwindow hwnd2, true

end sub

2樓:匿名使用者

查api吧

emuewindow?

vb查詢access資料庫

private sub command1 click dim cn as adodb.connectiondim mysql as string dim myrs as adodb.recordsetcn.cursorlocation aduseclientcn.connectionstring d...

vb查詢文字重複次數,用vb找到文字中重複的行?

是查詢 字 重複還是 句 重複?vb 如何獲取字串中一個字元出現的次數 迴圈遍歷這個字串,用一個計數器來記錄該字元的個數。int fun char str,char ch return i function strcount stra as string,strb as string as long...

易語言取控制代碼, 易語言 如何取指定視窗控制代碼?

版本 2.支援庫 eapi 支援庫 iext.程式集 視窗程式集1.子程式 取所有視窗控制代碼。區域性變數 視窗名稱,文字型,0 區域性變數 計次,整數型視窗名稱 取所有視窗列表 計次迴圈首 取陣列成員數 視窗名稱 計次 如果真 取視窗標題 到數值 視窗名稱 計次 且 取視窗標題 到數值 視窗名稱 ...