投稿日 | : 2004/03/25(Thu) 15:19 |
投稿者 | : くるりん |
Eメール | : |
URL | : |
タイトル | : Re^3: 印刷関係での質問です |
こんにちわ。少し変更してがんばってみてたのですが、フォームに出力されずどのように進んでいるか
わからなかったので再度質問させていただきます。
様子見用のform2を作成して、以下のようにコードを一部修正しました。
Form2.show
If iflag = 1 Then
Form2.Cls
Form2.Line (xline, (yline - 1) * (40 * 6))-((xcnt + 1) * (32 * 6), yline * (40 * 6)), QBColor(11), BF
Debug.Print xline, (xcnt + 1) * (32 * 6)
iflag = 0
else
Form2.Cls
Form2.Line (xline, (yline - 1) * (40 * 6))-((xcnt + 1) * (32 * 6), yline * (40 * 6)), QBColor(11), BF
Debug.Print xline, (xcnt + 1) * (32 * 6)
iflag = 1
End If
最初Form1で動かしてみたのですが、 Form1.Cls のところでForm1に全く変化がみられずその後のLine命令でも表示上に変化が見られませんでした。
また、以前のコードではX軸の指定がきちんと出来ていないということがわかったのでその部分は修正いたしました。
お手数ですがご助言をよろしくおねがいします。