ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2024年3月29日(金) 06:35

全ての表示時間は UTC+09:00 です




返信する
ユーザー名:
件名:
メッセージ本文:
メッセージを入力してください。60000 字まで入力できます。 

フォントサイズ:
フォントカラー
オプション:
BBCode: ON
[img]: ON
[flash]: OFF
[url]: ON
スマイリー: OFF
BBCode を無効にする
URL を自動的にパースしない
クイズ
お手数ですがカタカナで「エービー」と4文字を入力してください。:
答えを正確に入力してください。答えられるかどうかでスパムボットか否かを判定します。
   

トピックのレビュー - 4.24 N88BASIC
作成者 メッセージ
  記事の件名:  Re: 4.24 N88BASIC  引用付きで返信する
N88BASICモードではDOSプロンプト画面と挙動が異なり上書きされます。
データをPRINT文で表示した回数をカウントして適当な値でCLS命令で画面を一旦クリアする方法があります。
投稿記事 Posted: 2016年9月29日(木) 00:54
  記事の件名:  4.24 N88BASIC  引用付きで返信する
コード:
Dim Leng As Long
Dim alls As Long



'ウインドウ設定
#N88BASIC
SetWindowText(_PromptSys_hWnd, "File_Deleter")

Dim A As String

'本プログラム
do
	Color 7 ,-1
Print " 削除するファイルのパスを入力してください。   "
Print " 何も入力しない状態でENTERすると、終了します。"
Input " パスを入力 =  < ",A
Print " 入力されたパス = < ";A;" >"


alls = DeleteFile ( A & "" )
print " ~削除中"
If A = "" Then
    
    END

End If

If alls <> 0 Then
	Color 1 ,7
    print  " 成功しました。" 
    
 Else
Color 2 ,7
 print " 失敗しました。"

End If

print ""

loop 

上記のプログラムで、 削除処理をしたら最初に戻る の繰り返しが行われます。
そのためwindowの最低まで到達すると、文字の上に文字と、上書きされてしまいます。
上書きさせないためにはどうすればいいでしょうか?
画像
投稿記事 Posted: 2016年9月28日(水) 17:56

全ての表示時間は UTC+09:00 です


ページ移動:  
cron
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by ocean