tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： Re: jpegファイルへ文字を挿入する方法
投稿日： 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("ＭＳ Ｐゴシック", 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
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。