我想在vb.net里画一个直角坐标
我想在vb.net里画一个直角坐标,不知道怎么画,请各位大虾指教,不胜感激!!
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim g As Graphics
Dim p As New Pen(Color.Blue, 4)
p.SetLineCap(Drawing2D.LineCap.Round, Drawing2D.LineCap.ArrowAnchor, Drawing2D.DashCap.Round)
g = Me.CreateGraphics
g.TranslateTransform(10, 10)
g.DrawLine(p, 0, 0, CInt(Me.Width * 0.8), 0)
g.DrawLine(p, 0, 0, 0, CInt(Me.Height * 0.8))
g.Dispose()
End Sub