GetScreenRotation 获取屏幕旋转方向

🎯功能

获取当前设备的屏幕的旋转方向。

BUG

在重复执行200多次后, 会出现异常终止BUG

📜语法

方向 = GetScreenRotation()

📥参数

无

📤返回

数值型 ，有以下几个值：

返回值	屏幕旋转情况
0	没有旋转
1	逆时针旋转90度
2	逆时针旋转180度
3	逆时针旋转270度

💡示例

Dim 方向
方向 = GetScreenRotation()
Select Case 方向
Case 0
   TracePrint "屏幕没有旋转"
Case 1
   TracePrint "屏幕逆时针旋转90度"
Case 2
   TracePrint "屏幕逆时针旋转180度"
Case 3
   TracePrint "屏幕逆时针旋转270度"
End Select

📘备注

无