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

Dim g As Graphics = PictureBox1.CreateGraphics

江寧網(wǎng)站制作公司哪家好，找創(chuàng)新互聯(lián)建站！從網(wǎng)頁設(shè)計、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、響應(yīng)式網(wǎng)站設(shè)計等網(wǎng)站項目制作，到程序開發(fā)，運營維護。創(chuàng)新互聯(lián)建站自2013年創(chuàng)立以來到現(xiàn)在10年的時間，我們擁有了豐富的建站經(jīng)驗和運維經(jīng)驗，來保證我們的工作的順利進(jìn)行。專注于網(wǎng)站建設(shè)就選創(chuàng)新互聯(lián)建站。

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

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

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

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

可不可以回答一下，vb.net中的窗體坐標(biāo)和屏幕上的屏幕坐標(biāo)怎么轉(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 '鼠標(biāo)點擊坐標(biāo)（屏幕上的屏幕坐標(biāo)）

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

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

End Sub

End Class

vb.net 坐標(biāo)的轉(zhuǎn)化

也就是A(x,y)-------A'(y*sin(x*pi/180),y*cos(x*pi/180))------------前提是先：

Dim g As Graphics = Me.PictureBox1.CreateGraphics

g.TranslateTransform(x, y)'實現(xiàn)坐標(biāo)平移，即把圓中心作為了坐標(biāo)原點了-----該處的x,y為圓心在要作圖picture中的相對坐標(biāo)

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

本文題目：vb.net坐標(biāo)轉(zhuǎn)換 vb坐標(biāo)反算代碼
網(wǎng)站URL：http://chinadenli.net/article28/ddojocp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站排名、標(biāo)簽優(yōu)化、品牌網(wǎng)站建設(shè)、建站公司、定制開發(fā)、App設(shè)計

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)