テクスチャ文字を作成する

テクスチャ文字を作成するには、PictureBox２つと、
Print、PaintPictureを使えば簡単に出来ます。
まず1つめのPictureBoxに、好きな絵をセットします。
そしたら２つめのPictureBoxに好きな文字をPrintを使って書きます。
このとき、背景は白、文字は黒にして下さい。
それが出来たら、最後に１つめのPictureBoxに、
２つめのPictureBoxの内容をPaintPictureメソッドで重ねます。
このとき、最後の引数はvbSrcPaintにして下さい。
これで出来あがりです。

次のコードはテクスチャ文字を作成するサンプルコードの一部です。
すべてのコードはこのページの下でダウンロードできます。
＊サンプルではPictureBoxを3つ使ってます。


Dim moji As String

'表示する文字
moji = "テクスチャ文字"

Picture2.BackColor = vbWhite
Picture2.ForeColor = vbBlack
Picture2.Print moji

'テクスチャを描画して文字をORする。
Picture3.PaintPicture Picture1.Image, 0, 0
Picture3.PaintPicture Picture2.Image, 0, 0, , , , , , , vbSrcPaint

BACK