vb.ne-t-中自定义坐标实现方法2页.docx

自定义坐标实现 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(PictureBox1.Width / 201, PictureBox1.Height / 201) 定义坐标x,y For i = 0 To 200 Step 20 MyGraphics.DrawLine