GetScreenRotation 获取屏幕旋转方向

文章目录
  1. 1. 功能
  2. 2. 语法
  3. 3. 参数
  4. 4. 返回值
  5. 5. 示例
  6. 6. 备注

功能

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

语法

方向 = GetScreenRotation()

参数

返回值

数值型 ,有以下几个值:

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

示例

1
2
3
4
5
6
7
8
9
10
11
12
Dim 方向
方向 = GetScreenRotation()
Select Case 方向
Case 0
TracePrint "屏幕没有旋转"
Case 1
TracePrint "屏幕逆时针旋转90度"
Case 2
TracePrint "屏幕逆时针旋转180度"
Case 3
TracePrint "屏幕逆时针旋转270度"
End Select

备注