tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトルjpegファイルへ文字を挿入する方法
記事No891
投稿日: 2004/06/07(Mon) 12:16
投稿者ゴン太
[OSのVer]:WindowsXP pro   [VBのVer]:VB.NET

SQLサーバーからいくつかの文字データを取得し、
それらを連結して、ひとつのJPEGファイルにしたい
のですが、そんなことできますでしょうか?

<例>
DBのレコード:「今日は」,「晴れ」,「です」という3つのデータ。
VB.NETの処理:「今日は晴れです」と文字を連結してPictureBox(?)を
JPEGとして保存する。

宜しくお願い致します。
  

[ツリー表示へ]
タイトルRe: jpegファイルへ文字を挿入する方法
記事No895
投稿日: 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

[ツリー表示へ]
タイトルRe^2: jpegファイルへ文字を挿入する方法
記事No896
投稿日: 2004/06/08(Tue) 10:16
投稿者ゴン太
できました!
「有難うございます」
心より御礼申し上げます。

[ツリー表示へ]