HOW TO：在執行階段時建立點陣圖
更新：2007 年 11 月
這個範例會建立 Bitmap 物件並在其中描繪，然後在現有的 Windows Form PictureBox 控制項中顯示該物件。
範例
Private pictureBox1 As New PictureBox()
Public Sub CreateBitmapAtRuntime()
pictureBox1.Size = New Size(210, 110)
Me.Controls.Add(pictureBox1)
Dim flag As New Bitmap(200, 100)
Dim flagGraphics As Graphics = Graphics.FromImage(flag)
Dim red As Integer = 0
Dim white As Integer = 11
While white <= 100
flagGraphics.FillRectangle(Brushes.Red, 0, red, 200, 10)
flagGraphics.FillRectangle(Brushes.White, 0, white, 200, 10)
red += 20
white += 20
End While
pictureBox1.Image = flag
End Sub
PictureBox pictureBox1 = new PictureBox();
public void CreateBitmapAtRuntime()
{
pictureBox1.Size = new Size(210, 110);
this.Controls.Add(pictureBox1);
Bitmap flag = new Bitmap(200, 100);
Graphics flagGraphics = Graphics.FromImage(flag);
int red = 0;
int white = 11;
while (white <= 100) {
flagGraphics.FillRectangle(Brushes.Red, 0, red, 200,10);
flagGraphics.FillRectangle(Brushes.White, 0, white, 200, 10);
red += 20;
white += 20;
}
pictureBox1.Image = flag;
}
編譯程式碼
這個範例需要：
- 匯入 System、System.Drawing 和 System.Windows.Forms 組件的 Windows Form。