VisualBasic让表单一开始就显示在荧幕中央（不含工作列）
敬业的IT人
互联网
佚名
2008-4-17 17:53:30
以下之程序在计算时会扣除工作列所占的高度(或宽度)，如果有启动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即可
- 最新文章
- VisualBasic可以产生四角形以外其他形状的Form[04-17]
- VisualBasic让一个Form出现在另一个非MDIFo..[04-17]
- VisualBasic产生渐层的Form背景[04-17]
- 提高VisualBasic访问数据库效率[04-17]
- 如何编写高质量的VB代码[04-17]
- VB“变态”用法之高效字串指针类[04-17]
- 相关文章
- VisualBasic可以产生四角形以外其他形状的Form[04-17]
- VisualBasic让一个Form出现在另一个非MDIFo..[04-17]
- VisualBasic产生渐层的Form背景[04-17]
- 提高VisualBasic访问数据库效率[04-17]
- 提高VisualBasic访问数据库的效率[04-17]
- VisualBasic代码优化的六条军规[04-17]
