VisualBasic让表单一开始就显示在荧幕中央(不含…

2018-06-17 17:12:42来源:未知 阅读 ()

新老客户大回馈,云服务器低至5折

以下之程序在计算时会扣除工作列所占的高度(或宽度),如果有启动MicrosoftOffice的快捷列的话,也会扣除快捷列所占的高度(或宽度)。

PublicConstSM_CXFULLSCREEN=16
PublicConstSM_CYFULLSCREEN=17

#IfWin32Then
DeclareFunctionGetSystemMetricsLib"user32"(ByValnIndexAsLong)AsLong
#Else
DeclareFunctionGetSystemMetricsLib"User"(ByValnIndexAsInteger)AsInteger
#EndIf

PublicSubCenterForm(frmAsForm)
frm.Left=Screen.TwipsPerPixelX*GetSystemMetrics(SM_CXFULLSCREEN)/2-frm.Width/2
frm.Top=Screen.TwipsPerPixelY*GetSystemMetrics(SM_CYFULLSCREEN)/2-frm.Height/2
EndSub

只要在Form_Load中使用CenterFormMe即可->

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:VB技巧-工具栏使用技巧

下一篇:禁用Alt-Tab或Ctrl-Alt-Del