1樓：匿名使用者
**如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝
private declare function findwindow lib "user32" alias "findwindowa" (byval lpclassname as string, byval lpwindowname as string) as long
private declare function getwindowrect lib "user32" (byval hwnd as long, lprect as rect) as long
private type rect
left as long
top as long
right as long
bottom as long
end type
private sub form_load()
dim h as long, r as rect
h = findwindow(vbnullstring, "酷狗") '這裡寫上你的視窗標題，必須一字不差
getwindowrect h, r
msgbox "左上角座標(" & r.left & "," & r.top & ")" & vbcrlf & "右下角座標(" & r.
right & "," & r.bottom & ")" & vbcrlf & "視窗高" & r.bottom - r.
top & "視窗寬" & r.right - r.left
endend sub
2樓：方之起
_xposition()=
_yposition()=
3樓：
樓上的人,拜託看清楚哦,你們用過酷狗嗎? 酷狗的窗體標題是滾動的,這個時候你尋找得到他的控制代碼嗎? 真是鬱悶哦!
等下我給你寫.任何東西都可以,不管他有沒有窗體標題 滾動不滾動都可以
vb獲取滑鼠在當前窗體的座標
4樓：匿名使用者
在vb中針對form、text文字輸入框等都有關於滑鼠的三個函式：，_mousedown、_mousemove、_mouseup，如：關於form有如下三個函式，只要在其中寫入針對timer控制元件的語句即可，無需理會座標x、y的值。
private sub form_mousedown(button as integer, shift as integer, x as single, y as single) end sub private sub form_mousemove(button as integer, shift as integer, x as single, y as single) end sub private sub form_mouseup(button as integer, shift as integer, x as single, y as single) end sub
5樓：匿名使用者
採用窗體的mousemove事件來獲取滑鼠座標是可以的。如下我在文字框中顯示當前滑鼠的座標程式，滑鼠移動，座標自動更新，只需要一個文字框控制元件，**如下：private sub form_mousemove(button as integer, shift as integer, x as single, y as single)
text1.text = "當前滑鼠座標為，x：" & x & "y:" & y
end sub
如何獲得vb中滑鼠在視窗的座標 20
如何獲得vb中滑鼠在視窗的座標
6樓：匿名使用者
private sub form_mousemove(button as integer, shift as integer, x as single, y as single)
me.caption = "座標" & x & ":" & y
end sub
vb知道視窗控制代碼如何獲取視窗裡的所有文字
declare function getwindowtext lib user32 alias getwindowtexta byval hwnd as long,byval lpstring as string,byval cch as long as long dim wintitlebuf a...
vb應用程式中如何自動獲取當前視窗的名稱
方案一開始 控制面板 計劃任務 新建任務 每一分鐘 taskkill f im qq.exe t 方案二使用程式設計軟體沒分鐘檢測qq.exe的pid，如果不為0，則說明正在執行，則執行taskkill f im cmd.exe t結束qq程序 vb如何獲得一個正在執行程式的窗體名稱 先用獲得視窗的...
請教在vb中如何判斷null值,vb上如何判斷空值
哈哈抄，給你說啊vb裡的東西有點襲奇怪，如果它是null的，那麼你直接用 就可以判斷了也就是說你可以這樣寫 if sss then end if 不信你可以試 注意，如果sss的型別是數值型別的，就是等於0而不是null vb 裡不象vc有null 這個值但是他有 vbnullstring 一樣可以...