「カーソルが迷子になったとき」の編集履歴（バックアップ）一覧はこちら

「カーソルが迷子になったとき」(2010/11/26 (金) 22:09:49) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

画面が広いとカーソルが迷子（どこにあるのかわからない状態）になることがよくある。
こういう時にお助けプログラムを作ってみよう。
CTRLキーを押すとカーソルを左上に持っていくコードだ。
単純な構造なのでABで作るにはもってこいだ。
このPGは改善の余地は大いにあるが。。。

プログラムは60秒で終了するようにしている。

#asciiart(blockquote){
Dim t As Long

t = GetTickCount() + (60 * 1000)

While (t > GetTickCount())
	If GetAsyncKeyState(VK_CONTROL) And &h8000 Then
		SetCursorPos(0,0)
	End If 
	Sleep(1)
Wend
End
}