开发学院软件开发VB VisualBasic让表单一开始就显示在荧幕中央(不含工... 阅读

VisualBasic让表单一开始就显示在荧幕中央(不含工作列)

 2006-02-27 21:10:12 来源:WEB开发网   
核心提示:以下之程序在计算时会扣除工作列所占的高度(或宽度),如果有启动MicrosoftOffice的快捷列的话,VisualBasic让表单一开始就显示在荧幕中央(不含工作列),也会扣除快捷列所占的高度(或宽度),PublicConstSM_CXFULLSCREEN=16PublicConstSM_CYFULLSCREEN=
以下之程序在计算时会扣除工作列所占的高度(或宽度),如果有启动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即可->

Tags:VisualBasic 表单 开始

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接