タイトル | : Re: jpegファイルへ文字を挿入する方法 |
記事No | : 895 |
投稿日 | : 2004/06/07(Mon) 22:41 |
投稿者 | : 花ちゃん |
下記のような感じではいかがですか。 Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click 'Bitmap を作成 PictureBox1.Image = New Bitmap(200, 30) 'グラフィックオブジェクト作成 Dim g As Graphics = Graphics.FromImage(PictureBox1.Image) '描画面全体を消去し背景を白で塗りつぶし g.Clear(Color.White) 'フォントを作成 Dim f As New Font("MS Pゴシック", 20) '文字を描画 g.DrawString("今日は" & "晴れ" & "です", f, Brushes.Blue, 0, 0) 'Jpg 形式で保存 PictureBox1.Image.Save("c:\test.jpg", Imaging.ImageFormat.Jpeg) '文字ならこちらの方が綺麗に保存できるが PictureBox1.Image.Save("c:\test.Gif", Imaging.ImageFormat.Gif) f.Dispose() g.Dispose() End Sub
|