VB捕捉滑鼠座標,vb 獲取滑鼠座標

2023-02-11 04:30:48 字數 3238 閱讀 4281

1樓:匿名使用者

建一個picture1.**任意。

**如下。

===============

private sub picture1_mousedown(button as integer, shift as integer, x as single, y as single)

clsprint "在窗體上的絕對座標為:("; x + picture1.left; ","; y + picture1.top; ")"

end sub

2樓:

private sub picture1_mousedown(button as integer, shift as integer, x as single, y as single)

with picture1

print "座標為(" & (x + .left) \ screen.twipsperpixelx & "," & (y + .

top) \ screen.twipsperpixely & ")"

end with

end sub

vb 獲取滑鼠座標

vb獲取滑鼠的螢幕座標

vb6如何獲得滑鼠位置?

vb 獲取滑鼠在視窗內的螢幕座標

3樓:匿名使用者

講一下很久以前的設計思路

1、首先取得全屏的大小。

2、不可能獲取任意視窗,因為不同的系統和軟體的限制。

3、找出看得見的視窗的控制代碼,求出視窗大小。

4、綜上所述建立一個限制演算法。

5、其它的由你了。

4樓:奪命精神病

不太清楚哦,希望有人幫解答,祝:早日找到答案!

vb中怎麼獲取滑鼠的座標

5樓:數學與計算機程式設計

private sub form_mousedown(button as integer, shift as integer, x as single, y as single)

clscurrentx = x + 100currenty = y

print "(" & x & "," & y & ")"

end sub

private sub form_mousemove(button as integer, shift as integer, x as single, y as single)

clscurrentx = x + 100currenty = y

print "(" & x & "," & y & ")"

end sub

6樓:匿名使用者

可以在 mousemove 事件中獲得。

如何在vb裡製作滑鼠移動時顯示滑鼠位置

7樓:老牛帶你看奇聞

在窗體上放個標籤label1程式執行的時候移動滑鼠,在滑鼠的位置上顯示出滑鼠的座標來。**如下:

private sub form_mousemove(button as integer, shift as integer, x as single, y as single)

label1.caption = "x=" & x & "y" & y

label1.left = x

label1.top = y

end sub

8樓:vb妮可

private sub form_mousemove(button as integer, shift as integer, x as single, y as single)

clsprint "x:" & x, "y:" & y

end sub

vb獲取滑鼠在當前窗體的座標

9樓:匿名使用者

在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

10樓:匿名使用者

採用窗體的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 裡面 滑鼠按下 獲取點的座標

11樓:

private sub form_load()scalemode = 3  '畫素模式

end sub

private sub form_mousedown(button as integer, shift as integer, x as single, y as single)

msgbox x & "," & y

end sub

獲取的是相對窗體區域左上角(不含標題欄)

12樓:匿名使用者

病情分析:

檢查出有肺動脈高壓。

指導意見:

**方法

一.藥物**:1.血管舒張藥,2.抗凝。二.肺或者心臟移植。

13樓:裝水的空瓶子

你是要取當前螢幕的座標,還是自己軟體視窗的座標,或者是別的軟體的座標,這些都不一樣的

VB找控制元件控制代碼問題,VB 獲取其他程式控制元件的控制代碼

用下面2個函式查詢視窗和子視窗 private declare function findwindow lib user32 alias findwindowa byval lpclassname as string,byval lpwindowname as string as long priv...

AS3獲取滑鼠單擊座標,AS3語言,如何獲取滑鼠單擊事件當前目標的座標及物件(線上等)

搜尋你的 中是否包含mousemove或者mouse move字樣 如果有前者,則改為mousedown,後者改為mouse down 在stage上增加click事件的監聽,你的處理在監聽上再呼叫就可以了。import flash.event.mouseevent stage.addeventli...

在VB中,已知四點座標,怎麼按要求m,n等分座標

這個不難,給你個思路!自己先試試看能不能寫出來!不行的話再幫你寫!0 四個點的座標紀錄為 x1,y1 x2,y2 x3,y3 x4,y4 分別對應格子的1,5,40,36的點 1 四個點可以組成四個邊 分別記為a,b,c,d 也就是可以得到每個的邊長 求兩點的距離 2 m,n表示對兩條邊的等分情況,...