サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 2011/03/22 11:43
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[描画・画像][][] *
* キーワード：画像と文字,ペイント風画像上にテキスト, *
***********************************************************************************
タイトル ： 画像に文字を追加
記 事 No ： 10223
投 稿 日 ： 2010/09/07(Tue) 00:45
元質問者 ： YUKI
画像に文字を組み込むソフトを作ろうと考えています。
ちょうど、ペイントで画像を開いた後にテキストを追加するイメージです。
本HPの描画・画像のカテゴリを参考に作成をしているのですが、画像と描画した文字を
同時に表示できません。
-----------------------------------------------------------------------------------
記事No ： 10224
投稿日 ： 2010/09/07(Tue) 11:19
回答者 ： 花ちゃん
-----------------------------------------------------------------------------------
取り敢えず、ここの掲載しているサンプルを使って画像の上に文字を描画して見ましたので
参考にして、一行、一行何をしているのかを調べ、ご自分のやりたい事に応用して下さい。
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
'ピクチャーボックスに画像を表示
Dim bmap As Bitmap = New Bitmap("c:\test.bmp")
PictureBox1.Image = bmap
PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
'画像に文字を描画
Dim g As Graphics
PictureBox1.Image = New Bitmap(bmap)
g = Graphics.FromImage(PictureBox1.Image)
Dim f As New Font("ＭＳ Ｐゴシック", 14)
g.DrawString("花ちゃん", f, Brushes.Red, 10, 10)
f.Dispose()
g.Dispose()
bmap.Dispose()
End Sub
 |
