| 投稿日 | ： 2006/10/24(Tue) 19:06 |
| 投稿者 | ： 魔界の仮面弁士 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: 文字を埋め込んだ画像ファイルを自動作成するには？ |
> 色のついた四角の中に、ファイル名と同じ文字を埋め込もうと思っています。
> 四角の大きさは変わりません。
> 画像ファイルは、GifでもPngでもBmpでもなんでも良いです。
描画系命令でどうぞ。詳細は、ヘルプの
[Visual Basic ドキュメント]
┗[Visual Basic の使用方法]
┗[プログラミング ガイド]
┗[Visual Basic を使ってできること]
┗[テキストおよびグラフィックスの操作]
┗[グラフィックス メソッドの使い方]
あたりを見てください。
Private Sub Command1_Click()
Me.ScaleMode = vbPixels
Picture1.ScaleMode = vbPixels
Picture1.Font.Size = 18
Picture1.Move 0, 0, 150, 70
Picture1.AutoRedraw = True
Picture1.BackColor = vbWhite
Picture1.ForeColor = vbRed
Picture1.FontTransparent = True
Dim I As Integer
Dim F As String
Dim W As Single, H As Single
For I = 1 To 3
F = "さんぷる" & CStr(I)
W = Picture1.TextWidth(F)
H = Picture1.TextHeight(F)
Picture1.Line (W + 20, H + 20)-(10, 10), vbYellow, BF
Picture1.Print F
SavePicture Picture1.Image, "C:\" & F & ".BMP"
Picture1.Cls
Next
End Sub