没有合适的资源?快使用搜索试试~ 我知道了~
VB如何使控件位置和大小自动适应窗体变化的三种不同模式.doc
需积分: 50 30 下载量 92 浏览量
2015-08-18
21:32:34
上传
评论 4
收藏 32KB DOC 举报
温馨提示
试读
5页
VB如何使控件位置和大小自动适应窗体变化的三种不同模式 本人发现VB2008前版本使控件位置和大小自动适应窗体变化的提问很多。但回答的正确的不多。本人用vb6.0也遇到此问题。认真研究的一下。给出最正确的三种模式给大家借鉴。有更好方法可以在交流。代码是无需更改的。 第一种。就是最实用的,就是所有控件的width和height按比例随窗体变化,位置也是当然是按比例哦。控件的字体不变。如下复制到代码:
资源推荐
资源详情
资源评论
VB 如何使控件位置和大小自动适应窗体变化的三种不同模式
本人发现 VB2008 前版本使控件位置和大小自动适应窗体变化的提问很多。但回答的正确的不多。本人用
vb6.0 也遇到此问题。认真研究的一下。给出最正确的三种模式给大家借鉴。有更好方法可以在交流。代码是无
需更改的。
第一种。就是最实用的,就是所有控件的 width 和 height 按比例随窗体变化,位置也是当然是按比例哦。控件
的字体不变。如下复制到代码:
'改比例,字体不该。最实用
Option Explicit
Private FormOldWidth As Long '保存窗体的原始宽度
Private FormOldHeight As Long '保存窗体的原始高度
Private Sub Form_Load()
Call ResizeInit(Me) '在程序装入时必须加入
End Sub
Private Sub Form_Resize()
Call ResizeForm(Me) '确保窗体改变时控件随之改变
End Sub
'在调用 ResizeForm 前先调用本函数
Public Sub ResizeInit(FormName As Form)
Dim Obj As Control
FormOldWidth = FormName.ScaleWidth
FormOldHeight = FormName.ScaleHeight
On Error Resume Next
For Each Obj In FormName
Obj.Tag = Obj.Left & " " & Obj.Top & " " & Obj.Width & " " & Obj.Height & " "
Next Obj
On Error GoTo 0
End Sub
'按比例改变表单内各元件的大小,在调用 ReSizeForm 前先调用 ReSizeInit 函数
Public Sub ResizeForm(FormName As Form)
Dim Pos(4) As Double
Dim i As Long, TempPos As Long, StartPos As Long
Dim Obj As Control
Dim ScaleX As Double, ScaleY As Double
ScaleX = FormName.ScaleWidth / FormOldWidth '保存窗体宽度缩放比例
ScaleY = FormName.ScaleHeight / FormOldHeight '保存窗体高度缩放比例
On Error Resume Next
资源评论
zhangguan119
- 粉丝: 0
- 资源: 2
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
最新资源
- 2023 年电子设计竞赛试题.zip
- springboot+activiti+angular 这是spring boot框架集成activiti工作流实现.zip
- 基于Python的PCA人脸识别算法的原理及实现代码+文档详解.zip
- 《人工智能AI生成图片》
- springboot 整合jpa框架和querydsl框架,实现多数据源数据增删改查.zip
- SpringBoot + LayUI 框架快速搭建WEB网站.zip
- 基于python开发的的验证码识别+源码(期末大作业&课程设计&项目开发)
- douban.ipynb
- 基于C#的游戏服务器后台.zip
- 基于neo4j制作的医药领域-疾病诊断知识图谱dump文件
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功