要用到vb的api函數(shù)ClientToScreen,你可以看看這個(gè)方面的內(nèi)容,
10余年建站經(jīng)驗(yàn), 做網(wǎng)站、成都網(wǎng)站建設(shè)客戶的見證與正確選擇。創(chuàng)新互聯(lián)公司提供完善的營(yíng)銷型網(wǎng)頁建站明細(xì)報(bào)價(jià)表。后期開發(fā)更加便捷高效,我們致力于追求更美、更快、更規(guī)范。
這里又一個(gè)坐標(biāo)變換的問題!
控件.location=New Point(X,Y)
X,Y為整數(shù),即控件坐標(biāo),原點(diǎn)在窗體左上角
代碼就不寫了,給你思路,默認(rèn)左上角是原點(diǎn),所以x的位置=窗口高度-y.
這樣就獲得xy
復(fù)雜點(diǎn)的辦法是重寫繪制,繪制十字,
簡(jiǎn)單點(diǎn)的辦法就是十字放到picbox或者image里,然后取中,然后隱藏,確定按鈕點(diǎn)擊顯示,中心位置等于坐標(biāo)點(diǎn),然后換算左上角控件位置,然后設(shè)置坐標(biāo).
在你的窗體代碼最頂上(那就第一行吧,其實(shí)就是“聲明”那里),加入以下代碼:
Private Type POINTAPI
x As Long
y As Long
End Type
Public Declare Function ClientToScreen Lib "user32" Alias "ClientToScreen" (ByVal hWnd As Long, lpPoint As POINTAPI) As Long
Public Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long
然后呢,我告訴你取鼠標(biāo)相對(duì)控件位置的方法(注意注意:這里取得的坐標(biāo)是以像素為單位的?。?!而VB默認(rèn)單位是“緹”即Twips。1像素=15緹):
Dim MousePos As POINTAPI
GetCursorPos MousePos
ClientToScreen 控件名.hWnd, MousePos
完了以后,MousePos.x和MousePos.y就是鼠標(biāo)相對(duì)控件的位置的橫縱坐標(biāo)。去掉“ClientToScreen 控件名.hWnd, MousePos”這句,就是取鼠標(biāo)在屏幕上的位置。
你原來的代碼里有
Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
這個(gè)過程。實(shí)際上,這里的X和Y是鼠標(biāo)在容器(控件)內(nèi)的位置,以“緹”為單位。要轉(zhuǎn)化成像素(Pixel),你得把原坐標(biāo)的橫縱值除以15.
Button1.Location?=?New?Point(100,?100)
或
Button1.Left?=?100
Button1.Top?=?100
窗體內(nèi)的左上角的座標(biāo)為(0,0),向右是.Left+,向左是.Left-,向下是.Top+,向上是.Top-;如果要使用相對(duì)座標(biāo),比如向右移動(dòng)100,就可以寫成Object.Left=Object.Left+100即可。
網(wǎng)站標(biāo)題:vb.net控件絕對(duì)坐標(biāo) vb坐標(biāo)系統(tǒng)
標(biāo)題來源:http://jinyejixie.com/article6/hehdog.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供小程序開發(fā)、企業(yè)網(wǎng)站制作、搜索引擎優(yōu)化、網(wǎng)站策劃、響應(yīng)式網(wǎng)站、移動(dòng)網(wǎng)站建設(shè)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)
營(yíng)銷型網(wǎng)站建設(shè)知識(shí)