画面を回転させるスクリプト

Meopad Windows CE

以前もスクリーンを回転させる簡単なスクリプトを書きましたが、意外と画面の回転が面白いので、もうちょっと使いやすくしてみました。
現在の状態を見て、画面を回転させます。

#
# 画面を回転させる
#

If (Question("画面を回転させますか？","画面の回転","YesNo"))
	If (Screen("landscape"))
		Rotate(270)
	Else
		Rotate(0)
	EndIf
EndIf


デスクトップにショートカットを作っておけば、意外と便利かもしれません。