ab.com コミュニティ

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

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




新しいトピックを投稿する  トピックへ返信する  [ 2 件の記事 ] 
作成者 メッセージ
 記事の件名: 4.24 N88BASIC
投稿記事Posted: 2016年9月28日(水) 17:56 
オフライン

登録日時: 2016年9月24日(土) 15:35
記事: 62
コード:
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の最低まで到達すると、文字の上に文字と、上書きされてしまいます。
上書きさせないためにはどうすればいいでしょうか?
画像


通報する
ページトップ
 記事の件名: Re: 4.24 N88BASIC
投稿記事Posted: 2016年9月29日(木) 00:54 
オフライン

登録日時: 2006年2月05日(日) 17:10
記事: 215
お住まい: 東京都
N88BASICモードではDOSプロンプト画面と挙動が異なり上書きされます。
データをPRINT文で表示した回数をカウントして適当な値でCLS命令で画面を一旦クリアする方法があります。


通報する
ページトップ
期間内表示:  ソート  
新しいトピックを投稿する  トピックへ返信する  [ 2 件の記事 ] 

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


オンラインデータ

このフォーラムを閲覧中のユーザー: Ahrefs [Bot] & ゲスト[19人]


トピック投稿:  可
返信投稿:  可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可

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