VB窗体初始最大化和改变窗体大小自动缩放控件及字体
作者:米爸爸发布时间:2023-12-18分类:电脑网络维修浏览:949评论: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-14 阅读(1035)
-
苏教版 小学五年级( 上)数学期末 试卷2023-04-15 阅读(928)
-
京瓷一体机1020报错PF,原因和解决方法2023-04-21 阅读(1473)
-
兄弟DR2450 2595 7895 7190 7195 2595 打印机硒鼓清零 鼓架清零方法2023-04-22 阅读(660)
-
兄弟一体机7360打印卡纸报错 无法打印362023-04-25 阅读(909)
-
富士施乐FujiXerox1810 s2010 S2420 S2220复印机报 077 900错误原因2023-05-02 阅读(660)
-
中文维修手册 兄弟DCP9055CDN_MFC9465CDN维修手册2023-05-06 阅读(579)
-
兄弟彩色喷墨打印机 DCP-T220T420WT425WT428WT520WT720DWT725DWT820DWMFC-T920DW中文维修手册2023-05-08 阅读(1321)
-
富士施乐复印机提示更换定影组件R8 清零 解决方案2023-05-26 阅读(3312)
-
爱普生L805 原版epson清零软件2023-05-29 阅读(1051)
-
爱普生清零软件EPSON_L1210_L3219_L3210_L3250_L3251_L3260_L52902023-05-29 阅读(1755)
-
爱普生清零软件EPSON_L13002023-05-30 阅读(714)
-
永隆新版固定资产管理软件系统单机免费增强版2023-05-30 阅读(1858)
-
爱普生清零软件Reset Epson L41602023-06-01 阅读(963)
-
爱普生维修手册ET-4700L5190L5196L51982710 ET-2711L3150L3151L3158 L3110L3119L3108等2023-06-01 阅读(752)
-
60套进销存管理系统excel表格模板免费下载2023-06-07 阅读(1401)
-
永隆新版固定资产管理软件系统单机免费增强版2023-05-30 阅读(1858)
-
爱普生L805 原版epson清零软件2023-05-29 阅读(1051)
-
文件视频图片修复工具 Wondershare Repairit (万兴)v4.0.5.4 破解版(附破解补丁)2023-04-18 阅读(1820)
-
门诊电子处方软件4.0( 内含注册码)打印系统2023-07-01 阅读(686)
-
兄弟彩色喷墨打印机 DCP-T220T420WT425WT428WT520WT720DWT725DWT820DWMFC-T920DW中文维修手册2023-05-08 阅读(1321)
-
爱普生清零软件EPSON_L13002023-05-30 阅读(714)
-
129个奔图维修手册2023-04-28 阅读(1451)
-
柯美 柯尼卡美能达 bizhub C286i C266i C226i 彩色复印机中文维修手册2023-05-26 阅读(971)
-
柯尼卡美能达 柯美 bizhub C266 C226 C256 彩色复印机维修手册2023-05-26 阅读(1098)
-
爱普生ME offce ME1100中文版 清零软件2023-12-21 阅读(594)
-
傲软视频下载王 Apowersoft Video Download v6.5.0 绿色破解版2023-11-15 阅读(414)
-
HitPaw Watermark Remover 2.3.0.8视频图片AI去水印免费中文2023-09-13 阅读(606)
-
柯美 柯尼卡美能达 bizhubC650i C550i C450i C750i 750i 彩色复印机中文维修手册2023-06-01 阅读(790)
-
全系列打印机复印机1280本维修手册维修资料拆机手册合集2023-05-25 阅读(1791)
-
富士施乐S2011 S2110 S1810 2150 2350 2520 网络IP地址设置方法2023-04-15 阅读(16513)
-
柯尼卡美能达复印机bizhub C226/C266系列扫描功能设置步骤(内有ftp utilitystup下载)2023-04-25 阅读(13062)
-
大奉打更人有声小说全集-头陀渊-大斌-丸子播讲2023-04-23 阅读(6743)
-
东芝2010AC 2110ac复印机 出现CD40故障 废粉盒满了2023-04-13 阅读(6089)
-
富士施乐复印机提示更换定影组件R8 清零 解决方案2023-05-26 阅读(3312)
-
兄弟T420 T425w喷墨一体机清洗打印头设置方法2023-04-15 阅读(3164)
-
凡人修仙传有声小说全集_大灰狼播讲免费下载2023-04-15 阅读(2925)
-
富士施乐系列xerox SC2022 进入维修模式方法2023-04-21 阅读(2731)
-
富士施乐s2110 s2011 s1810系列机器载体初始化步骤2023-05-02 阅读(2132)
-
佳能全系列型号清零软件超级版2023最新版永久可复制万能版本V22023-06-04 阅读(2082)
-
凡人修仙之仙界篇有声小说全集_大灰狼播讲(经典玄幻修仙)免费下载2023-04-15 阅读(2055)
-
中控考勤机软件安装包-Zktime5.0考勤软件(新界面风格体温版本)2023-04-17 阅读(1928)
-
永隆新版固定资产管理软件系统单机免费增强版2023-05-30 阅读(1858)
-
文件视频图片修复工具 Wondershare Repairit (万兴)v4.0.5.4 破解版(附破解补丁)2023-04-18 阅读(1820)
-
全系列打印机复印机1280本维修手册维修资料拆机手册合集2023-05-25 阅读(1791)
- 网站分类
- 标签列表
-