获取除任务栏高度(宽度)外的屏幕大小

获取除任务栏高度(宽度)外的屏幕大小

Type RECT
Left As Long
ToP As Long
Right As Long
Bottom As Long
End Type

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal HWnd As Long, ByRef lpRect As RECT) As Boolean

Public Sub xx() '获取除任务栏高度(宽度)外的屏幕大小
Dim re As RECT
Dim kuan As Long, gao as Long

GetWindowRect FindWindow("Shell_TrayWnd", vbNullString), re

If re.ToP = 0 And re.Left = 0 And re.Right < re.Bottom Then '任务栏在左边
kuan = Screen.Width / Screen.TwipsPerPixelX + re.Right '注意这里要+
gao = Screen.Height / Screen.TwipsPerPixelY
End If

If re.ToP = 0 And re.Left = 0 And re.Right > re.Bottom Then '任务栏在顶部
kuan = Screen.Width / Screen.TwipsPerPixelX
gao = Screen.Height / Screen.TwipsPerPixelY + re.Bottom '注意这里要+
End If

If re.ToP <> 0 And re.Left = 0 Then '任务栏在下面
kuan = Screen.Width / Screen.TwipsPerPixelX
gao = Screen.Height / Screen.TwipsPerPixelY - (re.Bottom - re.ToP) '注意这里要-
End If

If re.ToP = 0 And re.Left <> 0 Then '任务栏在右边
kuan = Screen.Width / Screen.TwipsPerPixelX - (re.Right - re.Left) '注意这里要-
gao = Screen.Height / Screen.TwipsPerPixelY
End If
Debug.Print kuan, gao
End Sub

这个代码能够判断任务栏的状态和大小，很不错啊，有时候要用到，如果直接取屏幕分辨率的话会把任务栏也算进去了。

==============================================================================

.版本 2

.DLL命令 FindWindowA, 整数型
.参数 a, 文本型
.参数 b, 文本型

.DLL命令 GetWindowRect, 逻辑型
.参数 a, 整数型
.参数 b, RECT, 传址

 

.版本 2

.数据类型 RECT
.成员 Left, 整数型
.成员 ToP, 整数型
.成员 Right, 整数型
.成员 Bottom, 整数型

 

.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 re, RECT
.局部变量 kuan, 整数型
.局部变量 gao, 整数型
.局部变量 wei, 文本型

kuan ＝ 取屏幕宽度 ()
gao ＝ 取屏幕高度 ()
GetWindowRect (FindWindowA ("Shell_TrayWnd", ""), re)

.如果真 (re.ToP ＝ 0 且 re.Left ＝ 0 且 re.Right ＜ re.Bottom) ' 任务栏在左边
wei ＝ "左边"
kuan ＝ kuan ＋ re.Right
.如果真结束

.如果真 (re.ToP ＝ 0 且 re.Left ＝ 0 且 re.Right ＞ re.Bottom) ' 任务栏在顶部
wei ＝ "上边"
gao ＝ gao ＋ re.Bottom
.如果真结束

.如果真 (re.ToP ≠ 0 且 re.Left ＝ 0) ' 任务栏在下面
wei ＝ "下边"
gao ＝ gao － (re.Bottom － re.ToP)
.如果真结束

.如果真 (re.ToP ＝ 0 且 re.Left ≠ 0) ' 任务栏在右边
wei ＝ "右边"
kuan ＝ kuan － (re.Right － re.Left)
.如果真结束

标签1.标题 ＝ "任务栏在" ＋ wei ＋ "，去除任务栏后的大小为：" ＋ 到文本 (kuan) ＋ " X " ＋ 到文本 (gao)