国产探花免费观看_亚洲丰满少妇自慰呻吟_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即可->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 遵化市| 芜湖县| 密山市| 佛学| 平远县| 石屏县| 琼海市| 临泉县| 泉州市| 遵化市| 东兰县| 泾源县| 嘉义市| 大化| 朝阳县| 四子王旗| 惠安县| 普兰店市| 金湖县| 康保县| 中宁县| 江西省| 玉龙| 南平市| 香港 | 思茅市| 天祝| 周宁县| 邵阳县| 喀什市| 金门县| 高邮市| 永济市| 富锦市| 沁水县| 马公市| 连江县| 乌什县| 互助| 阿坝| 包头市|