vb.net怎么自定義坐標系

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

創(chuàng)新互聯(lián)-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性價比山東網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式山東網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設(shè)找我們，業(yè)務(wù)覆蓋山東地區(qū)。費用合理售后完善，十多年實體公司更值得信賴。

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

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

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

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

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

下面說坐標軸和原點的標示法：

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

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

則

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

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

CurrentX = 290

CurrentY = -5

Print "x" '標示x軸

CurrentX = 5

CurrentY = 200

Print "y" '標示y軸

CurrentX = 5

CurrentY = -5

Print "0" '標示原點

可不可以回答一下，vb.net中的窗體坐標和屏幕上的屏幕坐標怎么轉(zhuǎn)換？？ （最好是有代碼） 祝好人一生平安!

vb.net 2008

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim a_Point, b_Point, c_point As Point

b_Point = MousePosition '鼠標點擊坐標（屏幕上的屏幕坐標）

a_Point = PointToClient(MousePosition) 'vb.net中的窗體坐標

c_point = PointToScreen(a_Point) '將vb.net中的窗體坐標轉(zhuǎn)換成屏幕上的屏幕坐標

End Sub

End Class

VB.NET坐標變換

Dim g As Graphics = PictureBox1.CreateGraphics

g.TranslateTransform(2, 2) ‘定義原點坐標

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

以PictureBox1中（2,2）點為新的原點（0,0）

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

在VB.net中怎么獲取 鼠標在屏幕中的坐標

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

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

Private Structure POINTAPI '聲明坐標變量

Public x As Int32 '聲明坐標變量為32位

Public y As Int32 '聲明坐標變量為32位

End Structure

'以上是聲明部分

'以下是窗口部分

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

Dim P As POINTAPI '聲明坐標變量

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

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

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

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

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

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

End Sub