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

Dim g As Graphics = PictureBox1.CreateGraphics

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

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軸正方向

可不可以回答一下，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)點(diǎn)擊坐標(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)'實(shí)現(xiàn)坐標(biāo)平移，即把圓中心作為了坐標(biāo)原點(diǎn)了-----該處的x,y為圓心在要作圖picture中的相對(duì)坐標(biāo)

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

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

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

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶(hù)投稿、用戶(hù)轉(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í)需注明來(lái)源： 創(chuàng)新互聯(lián)