vb.net坐标转换 vb坐标反算代码
VB.NET坐标变换
Dim g As Graphics = PictureBox1.CreateGraphics
江宁网站制作公司哪家好,找创新互联建站!从网页设计、网站建设、微信开发、APP开发、响应式网站设计等网站项目制作,到程序开发,运营维护。创新互联建站自2013年创立以来到现在10年的时间,我们拥有了丰富的建站经验和运维经验,来保证我们的工作的顺利进行。专注于网站建设就选创新互联建站。
g.TranslateTransform(2, 2) ‘定义原点坐标
g.ScaleTransform(1, -1) ’X轴不变,反转Y轴
以PictureBox1中(2,2)点为新的原点(0,0)
向右为X轴正方向 向上为Y轴正方向
可不可以回答一下,vb.net中的窗体坐标和屏幕上的屏幕坐标怎么转换?? (最好是有代码) 祝好人一生平安!
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中的窗体坐标转换成屏幕上的屏幕坐标
End Sub
End Class
vb.net 坐标的转化
也就是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)'实现坐标平移,即把圆中心作为了坐标原点了-----该处的x,y为圆心在要作图picture中的相对坐标
g.ScaleTransform(1, -1) 'X轴不变,反转Y轴
文章标题:vb.net坐标转换 vb坐标反算代码
文章地址:http://pwwzsj.com/article/ddojocp.html