Http://www.cnng.net  首页 原创软件   VB文挡  VB资源   乱舞人生  资源   Tags  给我留言 
用户登陆
用户:
密码:
 

站点日历
73 2024 - 3 48
     12
3456789
10111213141516
17181920212223
24252627282930
31


站点统计

最新日志
星际富矿地图 随机字母的函数
晴天 任务拦高度   [ 日期: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
暂时没有评论
发表评论 - 不要忘了输入验证码哦!
作者: 用户名:  密码:   注册? 验证码: 
评论:

禁止表情
禁止UBB
禁止图片
识别链接
识别关键字
表  情