[ツリー表示へ] [ワード検索] [Home]
タイトル ： Re: 白抜き文字を印刷したい 投稿日 ： 2008/01/23(Wed) 21:20 投稿者 ： 魔界の仮面弁士
| 実際のコードは、これとは異なりますよね。 Print メソッドは、With ステートメントを利用できなかったはずですし…。 どこかで、単純なミスをしているような気がします。 > .drawmode=13 > .DrawMode = vbXorPen 'XORで反転させる 定数だったり、マジックナンバーだったりしているのは何故? (^^; > 以前の環境（VB5.0,NT4.0,モノクロプリンタ）では以下のようにできたのですが、 プリンタの問題ではなく、元のコードが間違っているような気がします。 提示されたプログラムでは、プリンタどころか画面描画でさえ、 白抜き(黒背景に白文字)にはなりませんでしたし。 Option Explicit '元のコード(Xor描画)を活かした例 Private Sub Command1_Click() Cls BackColor = vbWhite DrawMode = vbCopyPen '13 Print "あ"; DrawMode = vbXorPen FillColor = vbBlack 'こっちだとNG(どりさん自身のコード) Line -Step(-TextWidth("あ"), TextHeight("あ")), vbBlack, BF 'こっちならOK(大吉末吉さんの修正案) 'Line -Step(-TextWidth("あ"), TextHeight("あ")), vbWhite, BF End Sub '花ちゃんさんの修正案(文字を後描き) Private Sub Command2_Click() Cls DrawMode = vbCopyPen Line (TextWidth("あ"), TextHeight("あ"))-(0, 0), vbBlack, BF FontTransparent = True ForeColor = vbWhite Print "あ"; End Sub |
をクリックするとツリー全体を一括表示します） - 白抜き文字を印刷したい - どり 08/01/23-15:20No.11220