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表示對兩條邊的等分情況,...