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

2022-02-18 01:08:46 字數 1746 閱讀 2818

1樓:匿名使用者

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

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

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

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

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

5、其它的由你了。

2樓:奪命精神病

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

vb怎麼獲取滑鼠的螢幕座標

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

3樓:匿名使用者

在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

4樓:匿名使用者

採用窗體的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怎樣獲取滑鼠相對於螢幕的位置?

5樓:匿名使用者

可以參考 這個http://zhidao.baidu.

vb 裡面 滑鼠按下 獲取點的座標

6樓:

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

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

7樓:匿名使用者

病情分析:

檢查出有肺動脈高壓。

指導意見:

**方法

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

8樓:裝水的空瓶子

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

VB從全路徑中獲取檔名,VB如何提取路徑中的檔名?

public function getfilename byval fullpathname as string,optional byval noextname as boolean false as string 從指定全路徑中找到檔名 fullpathname指定全路徑 返回值 包含的檔名 d...

求VB基礎操作已知平面座標系內兩點的座標,求兩點間的距離

新建一個form1 在form1中加入5個textbox 分別是 text1 text2 text3 text4 text5 在form1下寫入如下 private sub command1 click text5.text val text1.text val text3.text 2 val t...

大學vb座標象限按要求與步驟的怎麼程式設計

private sub command1 click if text1.text 0 or text2.text 0 then text3.text 該座標在座標軸上,不在象限內!exit sub end if if text1.text 0 and text2.text 0 then text3....