文書番号: 410513
最終更新日: 1999/03/18
Hcopy mode%mode% には出力のモードを指定します。
VBDOS /LUTILITY
' 以下の 3 行はフォーム ファイルのモジュール レベルに記述してください。 DECLARE SUB prints (ir%, ic%, a$) '$INCLUDE: 'vbdos.bi' '$INCLUDE: 'utility.bi' SUB cmdHcopy_Click () SCREEN.HIDE ' フォームを非表示 SCREEN 88 ' グラフィックスが表示できるモードにします FOR c = 0 TO 7 LINE (c * 80, 20)-((c + 1) * 80, 199), c, BF NEXT c FOR c = 8 TO 15 LINE ((c - 8) * 80, 200)-((c - 7) * 80, 399), c, BF NEXT c prints 1, 1, "Please Wait..." Hcopy 3 ' テキスト画面とグラフィックス画面( 16 階調反転)を出力 SCREEN 82 ' フォームを表示するモードにします。 SCREEN.SHOW ' フォームを表示します。 END SUB SUB cmdEnd_Click () END END SUB ' 以下はモジュール ファイルに記述してください。 SUB prints (ir%, ic%, a$) LOCATE ir%, ic% PRINT a$ END SUB
'$INCLUDE: 'vbdos.bi' '$INCLUDE: 'utility.bi' DEFINT A-Z SCREEN 88 CLS FOR c = 0 TO 7 LINE (c * 80, 20)-((c + 1) * 80, 199), c, BF NEXT c FOR c = 8 TO 15 LINE ((c - 8) * 80, 200)-((c - 7) * 80, 349), c, BF NEXT c PRINT "please wait..." Hcopy 3 'テキスト画面とグラフィックス画面 (16 階調反転) END
LINK obj-file(s),exe-file,,UTILITY.LIB;インクルード メタコマンドで指定したインクルード ファイルが見つからない場合
Keywords: KBHOWTO VBDOS KB410513
Technology: kbAudDeveloper kbVB100DOS kbVBSearch kbZNotKeyword3