16,554
社区成员
发帖
与我相关
我的任务
分享
Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
Dim g As Graphics = e.Graphics
dim width as single=PictureBox1.width
dim height as single=PictureBox1.height
g.DrawString("我的绘图", New Font("宋体", 9, System.Drawing.FontStyle.Italic Or FontStyle.Bold), Brushes.LightGreen, _image.Width / 4, _image.Height / 2 + 50)
g.DrawLine(New Pen(Color.AliceBlue), 10, height-10, width-10,height-10 )' 画x轴
g.DrawLine(New Pen(Color.AliceBlue), 10, height-10 , 10,10 )' 画y轴
End Sub