VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2004/03/24(Wed) 23:03
投稿者： 花ちゃん
Ｅメール：
ＵＲＬ：
タイトル： Re: 印刷関係での質問です

>             If iflag = 1 Then

                  Form1.Cls    '　追加

>                 Printer.Line (xline, (yline - 1) * (40 * 6))-(xcnt + 1 * (32 * 6), yline * (40 * 6)), QBColor(11), BF
>                 iflag = 0
>             Else

                  Form1.Cls    '　追加

>                 Printer.Line (xline, (yline - 1) * (40 * 6))-(xcnt + 1 * (32 * 6), yline * (40 * 6)), QBColor(15), BF
>                 iflag = 1
>             End If

上記のように Form1.Cls  を追加して Printer のところを Form1 に置き換えて Form に表示
して確認してみて下さい。　
その場合　F8 キーを押して起動して下さい。

２回目以降どのように表示されるかが解るかと思います。
こういった場合、順を追ってプログラムを実行すれば解るかと思います。
変数の値を　イミディエイトウィンドウに表示して見るのもいいかも知れません。  

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -