国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

VisualBasic讓表單一開始就顯示在熒幕中央（不含工作列）

2019-11-18 17:31:28
字體：大 中 小
來源：轉載
供稿：網友
以下之程序在計算時會扣除工作列所占的高度(或寬度)，如果有啟動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即可->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 中牟县| 额济纳旗| 夏津县| 彝良县| 宜兰县| 宾川县| 乐安县| 中山市| 星子县| 乌兰察布市| 郯城县| 马边| 宁安市| 仁布县| 昌宁县| 浦县| 东丰县| 进贤县| 康保县| 商城县| 江西省| 科技| 高密市| 黄平县| 满洲里市| 荔波县| 黔江区| 马龙县| 聂荣县| 隆尧县| 海原县| 浪卡子县| 滦南县| 通道| 潼南县| 万安县| 青冈县| 翼城县| 如东县| 小金县| 彭山县|