在VB.net中怎么獲取 鼠標(biāo)在屏幕中的坐標(biāo)

Private Declare Function GetCursorPos Lib "user32" (ByRef lpPoint As POINTAPI) As Long '全屏坐標(biāo)聲明

創(chuàng)新互聯(lián)公司成立與2013年，我們提供高端網(wǎng)站建設(shè)、小程序開發(fā)、電商視覺設(shè)計(jì)、手機(jī)APP定制開發(fā)及網(wǎng)絡(luò)營銷搜索優(yōu)化服務(wù)，在傳統(tǒng)互聯(lián)網(wǎng)與移動互聯(lián)網(wǎng)發(fā)展的背景下，我們堅(jiān)守著用標(biāo)準(zhǔn)的設(shè)計(jì)方案與技術(shù)開發(fā)實(shí)力作基礎(chǔ)，以企業(yè)及品牌的互聯(lián)網(wǎng)商業(yè)目標(biāo)為核心，為客戶打造具商業(yè)價值與用戶體驗(yàn)的互聯(lián)網(wǎng)+產(chǎn)品。

Private Declare Function ScreenToClient Lib "user32.dll" (ByVal hwnd As Int32, ByRef lpPoint As POINTAPI) As Int32 '窗口坐標(biāo)聲明

Private Structure POINTAPI '聲明坐標(biāo)變量

Public x As Int32 '聲明坐標(biāo)變量為32位

Public y As Int32 '聲明坐標(biāo)變量為32位

End Structure

'以上是聲明部分

'以下是窗口部分

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick '用時鐘控件來取坐標(biāo),窗口上放個Timer組件,Enabled為允許,周期為10到100毫秒均可

Dim P As POINTAPI '聲明坐標(biāo)變量

Dim xx, yy '聲明轉(zhuǎn)換要用到的變量

GetCursorPos(P) '獲取鼠標(biāo)在屏幕中的位置

ScreenToClient(Me.Handle.ToInt32, P) '轉(zhuǎn)換為本窗體的坐標(biāo)

xx = P.x.ToString '把X轉(zhuǎn)換成能顯示到文本框的字符串格式

yy = P.y.ToString '把Y轉(zhuǎn)換成能顯示到文本框的字符串格式

TextBox1.Text = xx + "和" + yy '文本框的內(nèi)容為X坐標(biāo)和Y坐標(biāo)

End Sub

vb.net怎么自定義坐標(biāo)系

scale(x1,y1)-(x2,y2)

你只要記住，這里的x1,y1是左上角的坐標(biāo)，x2,y2是右下角的坐標(biāo)，通過這兩個點(diǎn)的坐標(biāo)設(shè)定，就可以決定坐標(biāo)原點(diǎn)的位置以及坐標(biāo)軸的方向了，比如

Scale (-300,200)-(300,-200)

以上是把坐標(biāo)原點(diǎn)設(shè)在窗體中心，x軸長600，方向從左到右，y軸長400，方向從下向上。

Scale (800,0)-(0,600)

以上是把坐標(biāo)原點(diǎn)設(shè)在窗體右上角，x軸長800，方向從右到左，y軸長600，方向從上向下。

下面說坐標(biāo)軸和原點(diǎn)的標(biāo)示法：

假定自定義坐標(biāo)設(shè)為：

Scale (-300, 200)-(300, -200)

則

Line (-300, 0)-(300, 0) '畫x軸

Line (0, 200)-(0, -200) '畫y軸

CurrentX = 290

CurrentY = -5

Print "x" '標(biāo)示x軸

CurrentX = 5

CurrentY = 200

Print "y" '標(biāo)示y軸

CurrentX = 5

CurrentY = -5

Print "0" '標(biāo)示原點(diǎn)

VB.NET坐標(biāo)變換

Dim g As Graphics = PictureBox1.CreateGraphics

g.TranslateTransform(2, 2) ‘定義原點(diǎn)坐標(biāo)

g.ScaleTransform(1, -1) ’X軸不變，反轉(zhuǎn)Y軸

以PictureBox1中（2,2）點(diǎn)為新的原點(diǎn)（0,0）

向右為X軸正方向 向上為Y軸正方向