用户登陆
站点统计
最新评论
日志搜索
其他信息
任务拦高度 [ 日期：2006-10-21 ] 'Screen.Height - Me.Height - TaskbarHeight
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_GETWORKAREA = 48
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Function GetTaskBarHeight() As Long
Dim lRes As Long
Dim rectVal As RECT
Dim TaskbarHeight As Long
lRes = SystemParametersInfo(SPI_GETWORKAREA, 0, rectVal, 0)
TaskbarHeight = Screen.Height - rectVal.Bottom * Screen.TwipsPerPixelY
GetTaskBarHeight = TaskbarHeight
End Function
Private Sub Form_Load()
Me.Move Screen.Width - Me.Width, Screen.Height - Me.Height - GetTaskBarHeight
End Sub
相关链接：任务拦 | 高度
[本日志由 admin 于 2013-11-01 10:45 PM 编辑]
引用通告地址 (0)：
http://www.cnng.net/blog/trackback.asp?tbID=22
http://www.cnng.net/blog/trackback.asp?tbID=22&CP=GBK