| 投稿日 | ： 2006/12/27(Wed) 16:37 |
| 投稿者 | ： し〜さ〜 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: VB6.0でのBMPデータ保存の方法 |
魔界の仮面弁士様、早速の回答ありがとうございます。
> えぇと、BMP というのは、Bitmap 画像のことですよね?
>
> # XML で BMP というと、私は Unicode 0面の
> # Basic Multilingual Plane (基本多言語面) を連想してしまうので…。
Bitmap画像のことです。説明下手で申し訳ありませんm(_ _)m
> もともと、Form と XML データの間に関連性はありませんよね。
>
> で、『メモリ上での静的な方法』というのが、何を示しているのかわかりませんが、
> VB6 から XML データの読み込み・解析・編集を行う場合は、XML パーサを用いる事が多いですね。
言いたかったことは、TextBox等で入力した値を使用するのではないということです。
これもまた説明下手で申し訳ありませんm(_ _)m
> 読み取った文字を、AutoRedraw=True な PictureBox に Print して、
> その Image を SavePicture で画像化するというのはどうでしょう。
> 色数の融通が利かないので、ちょっとファイルサイズが大きくなってしまいますけれども、
> とりあえず目的は果たせるかと。
一応私が考えたコーディングは以下になるのですが、
「ActiveXコンポーネントはオブジェクトを作成出来ません。」
というエラーメッセージが表示されてしまいます。
Private Sub CreBMP(ByVal sName As String)
Dim p As Object
Set p = CreateObject("VB.PictureBox")
With p
.AutoRedraw = True
.ScaleMode = 1
.CurrentX = 0.2
.CurrentY = 0.2
.Width = (50 * Screen.TwipsPerPixelX) * Len(sName)
.Height = (50 * Screen.TwipsPerPixelY)
.ForeColor = vbBlack
.BackColor = vbWhite
.FontName = "ＭＳ 明朝"
.FontSize = 32
p.Print sName
End With
SavePicture p.Image, "D:\moji.bmp"
End Sub
どこを修正したらいいのかご教授願います。