如何运用VB获取任务栏的高度呢？

作者：绿色风分类：时间：2022-08-18 浏览：177

楼主 0Mouse	Q：如何运用VB获取任务栏的高度呢？ A：在模块内写入以下代码： '声明获取或设置系统参数的API函数 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 '声明工作区常量 Const SPI_GETWORKAREA = 48 '自定义数据结构类型 Type RECT '表示矩形区域，单位为像素 Left As Long Top As Long Right As Long Bottom As Long End Type Sub Main() '主程序 MsgBox "任务栏高度为：" & TaskbarHeight * Screen.TwipsPerPixelX & "缇，即" & TaskbarHeight & "像素。" End Sub Function TaskbarHeight() As Long '获取任务栏高度的自定义函数 Dim myRECT As RECT SystemParametersInfo SPI_GETWORKAREA, 0, myRECT, 0 '获取工作区参数 TaskbarHeight = Screen.Height / Screen.TwipsPerPixelX - myRECT.Bottom '计算任务栏高度 End Function 附件：运用VB获取任务栏的高度.rar
2楼水星钓鱼	这个任务栏指的是？
3楼 0Mouse	就是位于屏幕底部的任务栏嘛
4楼芐雨	原来那个叫任务栏，学习了

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表