ab.com コミュニティ

いわゆる画面の初期設定のお話なのですが
＃N８８BASICウインドウでアプリを作りますと
ブラック字の白文字で画面が立ち上がります。

これを白地の黒文字で立ち上げるための
最適かつ最短な初期設定はございますでしょうか？

カラー設定してCLSが妥当なのでしょうか？

なお、どなたか達人の方でおすすめの初期設定一式のような
ものをご指導いただければ幸いです。
結局のところ、私のような初心者ユーザーがもっとも最初に
勉強しておいたほうがよさそうなのがこの初期設定に
あると感じるのです。

そして多くの疑問がある理由として、やりたいことは分かるだけれど
その呼び名が何であるかが分からない場合が多いのです。
なかなか困っております。

ご指導よろしくお願い申し上げます。

草々

初期状態では、#N88BASICのウインドウは

Color 7,0
の状態でございます。安易にこれを

Color 0,7
して、Clsかければ、全体が白くなるかなあと思ったら・・・・
なりませんでした。

やはりなんらかの操作が必要なようです。
達人の皆様、ご指導のほどよろしくお願いいたします。

草々

昔（AB２の頃）は、Line文で画面全部を塗りつぶして、Color文で文字色を変更して表示していました。
Paintだと処理速度が遅かった気がします。

AB3以降は、やった事が無いので知りません。

しかも、全領域を一度塗りつぶすんですね。
実験してみます。
いずれにしましても、画面が白くなってくれるなら
初期設定ですし許されるとおもいます。

ご指導ありがとうございます。

草々

basic\prompt.sbpファイル内のCls関数を書き換えるという方法を紹介しておきます。

Macro CLS()(num As Long)
	Dim i As Long
	Dim hBrush As HBURSH,hOldBrush As HBRUSH

	'When parameter was omitted, num is set to 1
	If num=0 Then num=1

	If num=1 or num=3 Then
		'Clear the text screen
		For i=0 To 100
			FillMemory(_PromptSys_Buffer,255,0)
		Next
		_PromptSys_CurPos.x=0
		_PromptSys_CurPos.y=0
	End If

	If num=2 or num=3 Then
		'Clear the graphics screen
		hBrush=CreateSolidBrush(_PromptSys_NowBackColor)
		hOldBrush=SelectObject(_PromptSys_hMemDC,hBrush)
		PatBlt(_PromptSys_hMemDC,0,0,_PromptSys_ScreenSize.cx,_PromptSys_ScreenSize.cy,PATCOPY)
		SelectObject(_PromptSys_hMemDC,hOldBrush)
		DeleteObject(hBrush)
	End If

	'Redraw
	InvalidateRect(_PromptSys_hWnd,ByVal 0,0)
End Macro

移植に関する問題があれば、MacroをSubにして、関数名をCls2とするなどしてください。

_________________
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。

に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。