《vb.ne-t-中自定义坐标实现方法》由会员分享,可在线阅读,更多相关《vb.ne-t-中自定义坐标实现方法(2页珍藏版)》请在金锄头文库上搜索。
1、 自定义坐标实现 2017 +win8.1设计运行代码 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim MyGraphics As Graphics Dim blackPen As New Pen(Color.DarkGreen, 0.1) 线的颜色 宽度 MyGraphics = PictureBox1.CreateGraphics MyGraphics.TranslateTransform(0, 0) 定义原点 MyGraphics.ScaleTransform(Pi
2、ctureBox1.Width / 201, PictureBox1.Height / 201) 定义坐标x,y For i = 0 To 200 Step 20 MyGraphics.DrawLine(blackPen, 0, i, 200, i) 画线 x MyGraphics.DrawLine(blackPen, i, 0, i, 200) 画线 y Next For x = 0 To 200 Step 20 For y = 0 To 200 Step 20 MyGraphics.DrawString(x & , & y, New Font(宋体, 3), Brushes.Black, x, y) 输出坐标点 Next Next End Sub