ab.com コミュニティ

Sub Scrool(dx As Long,dy As Long,Width As Long,Hight As Long,sx As Long,sy As Long)
	Dim hDC As HDC
	hDC=GetDC(_PromptSys_hWnd)
	BitBlt(hDC,dx+1,dy+1,Width-1,Hight-1,hDC,dy-sx+1,dy-sy+1,SRCCOPY)
End Sub

#N88BASIC
Sub Scrool(dx As Long,dy As Long,Width As Long,Hight As Long,sx As Long,sy As Long)
	Dim hDC As HDC
	hDC=GetDC(_PromptSys_hWnd)
	BitBlt(hDC,dx+1,dy+1,Width-1,Hight-1,hDC,dy-sx+1,dy-sy+1,SRCCOPY)
End Sub
Do
	PSet(40,40),7
	Scrool(1,1,600,400,1,1)
Loop

#N88BASIC
Dim i As Long,j As Long
Sub Scrool(dx As Long,dy As Long,Width As Long,Hight As Long,sx As Long,sy As Long)
	Dim hDC As HDC
	hDC=GetDC(_PromptSys_hWnd)
	BitBlt(hDC,dx+1,dy+1,Width-1,Hight-1,hDC,dy-sx+1,dy-sy+1,SRCCOPY)
End Sub
randomize
i=0
j=Int(Rnd()*20)
Locate 40,j
Print "a"
Do
	Scrool(-1,-1,600,400,-1,0)
	Sleep(100)
	If i=10 then
		i=0
		j=Int(Rnd()*20)
		Locate 40,j
		Print "a"
	End If
	i+=1
Loop

#N88BASICの間違いだとは思いますがそこはスルーして置きまして、どのような状態になっているのかがよくわかりません。

[code]
Sub Scrool(dx As Long,dy As Long,Width As Long,Hight As Long,sx As Long,sy As Long)
Dim hDC As HDC
hDC=GetDC(_PromptSys_hWnd)
BitBlt(hDC,dx+1,dy+1,Width-1,Hight-1,hDC,dy-sx+1,dy-sy+1,SRCCOPY)
End Sub
[/code]
とりあえず関数作ってみました。
第一引数～第四引数でスクロールする範囲を決めます。
第五引数と第六引数は、それぞれx,y座標に対してどれだけスクロールさせるか決めます。
注意点:Promptモードで動かしてください。
ノーマルウインドウモードで使用する場合は、関数内2行目のGetDCの第一引数を変更すればおそらく動きます。
何度も連続で使用すると、まれにウインドウがおかしくなります。何度もそのような状態になるようでも、僕には回避方法がわかりません。ご了承ください。


サンプル
[code]
#N88BASIC
Sub Scrool(dx As Long,dy As Long,Width As Long,Hight As Long,sx As Long,sy As Long)
Dim hDC As HDC
hDC=GetDC(_PromptSys_hWnd)
BitBlt(hDC,dx+1,dy+1,Width-1,Hight-1,hDC,dy-sx+1,dy-sy+1,SRCCOPY)
End Sub
Do
PSet(40,40),7
Scrool(1,1,600,400,1,1)
Loop
[/code]

ちなみに、描画可能な点のうちの一番左上の点を(0,0)にしてあるので、左の端に押し込めてしまう場合は第一引数を-1に、上の端に押し込めたい場合は第二引数を-1にしてください。

[hide=おまけ][code]
#N88BASIC
Dim i As Long,j As Long
Sub Scrool(dx As Long,dy As Long,Width As Long,Hight As Long,sx As Long,sy As Long)
Dim hDC As HDC
hDC=GetDC(_PromptSys_hWnd)
BitBlt(hDC,dx+1,dy+1,Width-1,Hight-1,hDC,dy-sx+1,dy-sy+1,SRCCOPY)
End Sub
randomize
i=0
j=Int(Rnd()*20)
Locate 40,j
Print "a"
Do
Scrool(-1,-1,600,400,-1,0)
Sleep(100)
If i=10 then
i=0
j=Int(Rnd()*20)
Locate 40,j
Print "a"
End If
i+=1
Loop
[/code][/hide]

#88BASICで、
画面がいっぱいになって、
その後のプログラムが読まれないで停止してしまいます。
プロンプト画面をスクロールできればいいと思うんですが
できますか？