Dim bmp As New Bitmap(100, 100)
Dim gp As Graphics = Graphics.FromImage(bmp)
'画矩形
gp.FillRectangle(Brushes.AliceBlue, 0, 0, 10, 10)
'画点
bmp.SetPixel(10, 10, Color.Black)
PictureBox1.Image = bmp
本文介绍了一个使用 VB.NET 进行简单绘图的例子。通过创建一个 100x100 的位图,并在其上绘制了一个蓝色矩形及一个黑色点。此示例展示了如何利用 Graphics 类来填充矩形区域,以及如何使用 SetPixel 方法来设置特定像素的颜色。
Dim bmp As New Bitmap(100, 100)
Dim gp As Graphics = Graphics.FromImage(bmp)
'画矩形
gp.FillRectangle(Brushes.AliceBlue, 0, 0, 10, 10)
'画点
bmp.SetPixel(10, 10, Color.Black)
PictureBox1.Image = bmp
1462

被折叠的 条评论
为什么被折叠?