VB2010 でのPictureboxのフォント指定
VB2010 でのPictureboxのフォント指定
現在 Pictureboxのフォントをプログラムの先頭で定義しているのですが、
'-------------------------------------------------------------------------
Dim fnt As New Font("MS ゴシック", 9)
With PictureBox1
.Image = New Bitmap(.Size.Width, .Size.Height)
g1 = Graphics.FromImage(.Image)
g1.Clear(.BackColor)
End With
g1.DrawString("TEST" fnt, Brushes.Black, IX,IY)
'-------------------------------------------------------------------------
下記のようにループ内で指定したいのですが、どう定義すればいいでしょうか。
For i=1 to 10
<------------------------ここでfont指定したい
g1.DrawString("TEST" fnt, Brushes.Black, IX,IY)
next
お礼
どうもありがとうございました。きちんとクリアすることができ助かりました。