VB窗体初始最大化和改变窗体大小自动缩放控件及字体
作者:米爸爸发布时间:2023-12-18分类:电脑网络维修浏览:900评论:0
导读:1、模块代码:'标准模块声明写入(自定义类型)Type cp wp As Single...
1、模块代码:
'标准模块声明写入(自定义类型) Type cp wp As Single hp As Single tp As Single lp As Single fp As Single End Type Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long '屏幕尺寸 Private Declare Function GetSystemMetrics32 Lib "user32" _ Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long Public ap() As cp '定义窗体数组 '屏幕宽 Function ScreenWidth() As Long ScreenWidth = GetSystemMetrics32(0) * 15 End Function '屏幕高,去除底部状态栏高度 Function ScreenHeight() As Long ScreenHeight = (GetSystemMetrics32(1) - 40) * 15 End Function Public Function MyGetWinDirectory() As String Dim sBuffer As String Dim lSize As Long sBuffer = String(255, 0) lSize = GetWindowsDirectory(sBuffer, Len(sBuffer)) sBuffer = Left(sBuffer, lSize) sBuffer = sBuffer + "\" MyGetWinDirectory = sBuffer End Function '定义窗体过程 Public Sub GetControlsSize(ByVal fm As Form) On Error GoTo uerror '跳过无width属性控件 With fm For i = 0 To .Controls.Count - 1 ap(i).wp = .Controls(i).Width / .ScaleWidth ap(i).hp = .Controls(i).Height / .ScaleHeight ap(i).lp = .Controls(i).Left / .ScaleWidth ap(i).tp = .Controls(i).Top / .ScaleHeight ap(i).fp = .Controls(i).Font.Size / (.Controls(i).Width * .Controls(i).Height) Next i End With Exit Sub uerror: Resume Next End Sub
2、窗体代码
'加载窗体 Private Sub Form_Load() '获取每个控件大小比例 On Error GoTo uerror ReDim ap(0 To Me.Controls.Count - 1) uerror: Resume Next GetControlsSize Me '窗口最大化 Me.Left = 0 Me.Top = 0 Me.Width = ScreenWidth Me.Height = ScreenHeight End Sub '窗体尺寸改变时 Private Sub Form_Resize() Dim i As Integer On Error GoTo uerror For i = 0 To Controls.Count - 1 Controls(i).Move ap(i).lp * Me.ScaleWidth, ap(i).tp * Me.ScaleHeight, ap(i).wp * Me.ScaleWidth, ap(i).hp * Me.ScaleHeight If Not Me.Controls(i).Name Like "ListView*" Then Controls(i).Font.Size = ap(i).fp * (Controls(i).Width * Controls(i).Height) End If Next i Exit Sub uerror: Resume Next End Sub
转自CSDN
打赏
收藏
点赞
你 发表评论:
欢迎- 电脑网络维修排行
-
随机文章
热评文章
热门文章
-
大泼猴有声小说全集-莫言鬼语-谷映蝶播讲2023-04-21 阅读(599)
-
兄弟喷墨一体机DCP-J100-J105-T300-T500W-T700W_MFC-J200-T800W维修手册(ASC)2023-04-25 阅读(638)
-
万兴PDF专家 PDFelement v9.0.2 中文破解版(附破解补丁)PDF编辑2023-04-25 阅读(594)
-
WINDOWS 11微软官方原版系统下载MSDN2023-04-29 阅读(904)
-
微软Windows操作系统历史简史汇总2023-04-30 阅读(457)
-
舒特6655,5566收费机改IP2023-05-02 阅读(1019)
-
柯美 柯尼卡美能达 bizhub 184 164 7718 黑白复印机现场维修手册2023-05-11 阅读(561)
-
京瓷打印机FS-1040_1060DN维修手册2023-05-11 阅读(614)
-
万兴PDF专家 PDFelement v10.3.8 繁体中文破解版(附破解补丁)PDF编辑器2024042023-05-22 阅读(520)
-
富士施乐s2110 s2011 s1810 2420 2220系列机器载体初始化步骤2023-05-25 阅读(1490)
-
惠普 M154 M180 M181 M254 M280 M281 彩色打印机中文维修手册和故障排除2023-05-28 阅读(726)
-
爱普生清零软件EPSON_L13002023-05-30 阅读(702)
-
爱普生清零软件Reset_Espon-L111-211-301-303-351-353-358-551-5582023-05-30 阅读(672)
-
永隆新版固定资产管理软件系统单机免费增强版2023-05-30 阅读(1802)
-
爱普生清零软件L6160 L6170 L61902023-06-01 阅读(659)
-
60套进销存管理系统excel表格模板免费下载2023-06-07 阅读(1388)
-
永隆新版固定资产管理软件系统单机免费增强版2023-05-30 阅读(1802)
-
爱普生L805 原版epson清零软件2023-05-29 阅读(1042)
-
文件视频图片修复工具 Wondershare Repairit (万兴)v4.0.5.4 破解版(附破解补丁)2023-04-18 阅读(1792)
-
门诊电子处方软件4.0( 内含注册码)打印系统2023-07-01 阅读(677)
-
兄弟彩色喷墨打印机 DCP-T220T420WT425WT428WT520WT720DWT725DWT820DWMFC-T920DW中文维修手册2023-05-08 阅读(1311)
-
爱普生清零软件EPSON_L13002023-05-30 阅读(702)
-
129个奔图维修手册2023-04-28 阅读(1431)
-
柯美 柯尼卡美能达 bizhub C286i C266i C226i 彩色复印机中文维修手册2023-05-26 阅读(957)
-
柯尼卡美能达 柯美 bizhub C266 C226 C256 彩色复印机维修手册2023-05-26 阅读(1088)
-
爱普生ME offce ME1100中文版 清零软件2023-12-21 阅读(586)
-
傲软视频下载王 Apowersoft Video Download v6.5.0 绿色破解版2023-11-15 阅读(401)
-
HitPaw Watermark Remover 2.3.0.8视频图片AI去水印免费中文2023-09-13 阅读(594)
-
柯美 柯尼卡美能达 bizhubC650i C550i C450i C750i 750i 彩色复印机中文维修手册2023-06-01 阅读(770)
-
全系列打印机复印机1280本维修手册维修资料拆机手册合集2023-05-25 阅读(1743)
-
富士施乐S2011 S2110 S1810 2150 2350 2520 网络IP地址设置方法2023-04-15 阅读(16474)
-
柯尼卡美能达复印机bizhub C226/C266系列扫描功能设置步骤(内有ftp utilitystup下载)2023-04-25 阅读(13033)
-
大奉打更人有声小说全集-头陀渊-大斌-丸子播讲2023-04-23 阅读(6723)
-
东芝2010AC 2110ac复印机 出现CD40故障 废粉盒满了2023-04-13 阅读(6005)
-
富士施乐复印机提示更换定影组件R8 清零 解决方案2023-05-26 阅读(3154)
-
兄弟T420 T425w喷墨一体机清洗打印头设置方法2023-04-15 阅读(3138)
-
凡人修仙传有声小说全集_大灰狼播讲免费下载2023-04-15 阅读(2902)
-
富士施乐系列xerox SC2022 进入维修模式方法2023-04-21 阅读(2711)
-
富士施乐s2110 s2011 s1810系列机器载体初始化步骤2023-05-02 阅读(2081)
-
凡人修仙之仙界篇有声小说全集_大灰狼播讲(经典玄幻修仙)免费下载2023-04-15 阅读(2031)
-
佳能全系列型号清零软件超级版2023最新版永久可复制万能版本V22023-06-04 阅读(2020)
-
中控考勤机软件安装包-Zktime5.0考勤软件(新界面风格体温版本)2023-04-17 阅读(1908)
-
永隆新版固定资产管理软件系统单机免费增强版2023-05-30 阅读(1802)
-
文件视频图片修复工具 Wondershare Repairit (万兴)v4.0.5.4 破解版(附破解补丁)2023-04-18 阅读(1792)
-
全系列打印机复印机1280本维修手册维修资料拆机手册合集2023-05-25 阅读(1743)
- 网站分类
- 标签列表
-