vb.net Bitmap Drawing

Public Class Form1
	Dim BMP As New Drawing.Bitmap(640,480)
	Dim GFX As Graphics = Graphics.FromImage(BMP)
	Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
		FX.FillRectangle(Brushes.White,PictureBox1.Width,PictureBox1.Height)
		GFX.DrawLine(Pens.Red,10,50,50)
		GFX.DrawString("Robomatics",SystemFonts.DefaultFont,Brushes.Black,60,60)
		PictureBox1.Image = BMP
	End Sub
	Private Sub PictureBox1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles PictureBox1.Click
		BMP.SetPixel(MousePosition.X - Me.Location.X - PictureBox1.Location.X - 4,MousePosition.Y - Me.Location.Y - PictureBox1.Location.Y - 30,Color.Black)
		GFX.DrawString("Robomatics",MousePosition.X - Me.Location.X - PictureBox1.Location.X - 4,MousePosition.Y - 	Me.Location.Y - PictureBox1.Location.Y - 30)
		PictureBox1.Image = BMP
	End Sub
End Class

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!