没有合适的资源?快使用搜索试试~ 我知道了~
VB6实现不同分辨率控件大小改变
5星 · 超过95%的资源 需积分: 10 35 下载量 176 浏览量
2011-08-18
10:32:03
上传
评论 1
收藏 1KB TXT 举报
温馨提示
试读
2页
VB6实现不同分辨率控件大小改变 VB6实现不同分辨率控件大小改变
资源推荐
资源详情
资源评论
Private Type ControlPlaces
Contrl As Control
Left As Single
Top As Single
Width As Single
Height As Single
End Type
Dim CtrlPos() As ControlPlaces
Private Sub Form_Load()
ReloadPos
End Sub
Sub ReloadPos()
ReDim CtrlPos(Me.Controls.Count)
Dim Ctrl As Control
Dim Num As Long
For Each Ctrl In Me.Controls
Set CtrlPos(Num).Contrl = Ctrl
CtrlPos(Num).Left = Ctrl.Left
CtrlPos(Num).Top = Ctrl.Top
CtrlPos(Num).Width = Ctrl.Width
CtrlPos(Num).Height = Ctrl.Height
Num = Num + 1
Next
CtrlPos(UBound(CtrlPos)).Left = Me.Left
CtrlPos(UBound(CtrlPos)).Top = Me.Top
CtrlPos(UBound(CtrlPos)).Width = Me.Width
CtrlPos(UBound(CtrlPos)).Height = Me.Height
Contrl As Control
Left As Single
Top As Single
Width As Single
Height As Single
End Type
Dim CtrlPos() As ControlPlaces
Private Sub Form_Load()
ReloadPos
End Sub
Sub ReloadPos()
ReDim CtrlPos(Me.Controls.Count)
Dim Ctrl As Control
Dim Num As Long
For Each Ctrl In Me.Controls
Set CtrlPos(Num).Contrl = Ctrl
CtrlPos(Num).Left = Ctrl.Left
CtrlPos(Num).Top = Ctrl.Top
CtrlPos(Num).Width = Ctrl.Width
CtrlPos(Num).Height = Ctrl.Height
Num = Num + 1
Next
CtrlPos(UBound(CtrlPos)).Left = Me.Left
CtrlPos(UBound(CtrlPos)).Top = Me.Top
CtrlPos(UBound(CtrlPos)).Width = Me.Width
CtrlPos(UBound(CtrlPos)).Height = Me.Height
资源评论
- zhunengwen2013-10-08适合用于不同分辨率控制控件大小的情况,非常实用
- bugs20072016-05-14非常不错,谢谢
zxp888888
- 粉丝: 0
- 资源: 1
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功