印刷について・・・ (ID:104165)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 PictureBoxやFormに絵をタイル状に貼り付ける処理をしたことがあるので、 その処理の一部です。 参考になればいいんですけど…。 mTextureには、貼り付ける絵の入ったStdPictureオブジェクト(テクスチャー)、 eとiは、カウンタ数値(小数点が絡むので、 Integer型などより、Currency型やSingle型やDouble型のほうがいいです)、 描く対象のオブジェクトは、その前にWithで省略しています。 If mTexture Is Nothing Or mTexture = 0 Then Exit Sub 'mTextureが空っぽだったり、白紙キャンバスなら抜ける For i = 0 To .ScaleWidth / (mTexture.Width / Screen.TwipsPerPixelX) Step 0.56 'よこがわにループ(0〜フォームサイズ割るピクセル換算したテクスチャサイズ) ステップは0.56(謎)) For e = 0 To .ScaleHeight / (mTexture.Height / Screen.TwipsPerPixelY) Step 0.56 'たてがわループ(〃) .PaintPicture mTexture, i * mTexture.Width / Screen.TwipsPerPixelX, e * mTexture.Height / Screen.TwipsPerPixelY ’テクスチャをはる Next 'たてがわループのほうをさきにすませる Next 'よこがわループをすませる １５９ ２６10 ３７11 ４８12 の順に貼り付けるはずです。 プログラムは日本語になおしながらやるとうまくいきやすいです。 ("よく知っている"といわれて少し舞い上がってしまいました^^;)