文章类别：VB 来源： 作者： 发表日期：2006-2-28 字体：[大 中 小]

小游戏 | 在线影院 | 幽默笑话 | 源码下载 | Flash MTV | 音乐试听 | 书屋 | 美女写真

---

以下之程序在计算时会扣除工作列所占的高度(或宽度)，如果有启动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即可->

上一篇:MDIForm可否跟一般的表单一样设定背景颜色(BackColor)

下一篇:VisualBasic可以产生四角形以外其他形状的Form