| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 6036 人关注过本帖
标题:如何在vb窗口最大化的时候,里面的控件一起变化?
只看楼主 加入收藏
fm945
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2005-2-13
收藏
 问题点数:0 回复次数:14 
如何在vb窗口最大化的时候,里面的控件一起变化?
如何在vb窗口最大化的时候,里面的控件一起变化?
就是不会出现“控件不动,旁边多出来许多空白的”。
搜索更多相关主题的帖子: 控件 窗口 最大化 
2005-07-03 19:51
Srin
Rank: 1
等 级:新手上路
帖 子:59
专家分:0
注 册:2005-5-11
收藏
得分:0 
是不是在窗口最大化的时候,加个事件。让他里边的控件也一起移动就好了。。
我是这样想的,但没有试验过。
2005-07-04 00:19
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
收藏
得分:0 
计算比例,移动位置和大小

快上课了……
2005-07-04 19:20
84009030
Rank: 1
等 级:新手上路
帖 子:191
专家分:0
注 册:2005-5-19
收藏
得分:0 
这么麻烦

有没有简单一点

/* HELLO.C -- Hello, jat chan */ #include \"stdio.h\" #include \"conio.h\" main() { printf(\"Hello, jat chan\\n\"); getch(); }
2005-07-05 22:56
vb2005
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2005-6-5
收藏
得分:0 
我觉得也只有计算一下比例,把控件的width,Height属性按照比例调整.其实也不复杂啊

期待有更好的方法.
2005-07-06 17:48
84009030
Rank: 1
等 级:新手上路
帖 子:191
专家分:0
注 册:2005-5-19
收藏
得分:0 
不是复杂的问题

如果程序控件多要逐个计算

太麻烦

/* HELLO.C -- Hello, jat chan */ #include \"stdio.h\" #include \"conio.h\" main() { printf(\"Hello, jat chan\\n\"); getch(); }
2005-07-06 20:32
萧三少
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2005-7-8
收藏
得分:0 

Form改变大小时同时改变其内Control之大小

这个程式只是个范例,但在某些物件上不能使用,例如:Line,因为它没有Top, Left Width, Height所以在本程式中没有作用,不过呢,像这一类的东西可自己用另外程式 去控制。

Option Explicit Private InitWidth As Long ' Form 的原始大小 Private InitHeight As Long

Private Sub Form_Load() InitWidth = ScaleWidth InitHeight = ScaleHeight Dim Ctl As Control ' 记录每个 Control 的原始位置、大小、字型大小, 放在 Tag 属性中 On Error Resume Next '确保left, top, width, height, Tag属性没有全有的Control For Each Ctl In Me '也能正常执行 Ctl.Tag = Ctl.Left & " " & Ctl.Top & " " & Ctl.Width & " " & Ctl.Height & " " Ctl.Tag = Ctl.Tag & Ctl.FontSize & " " Next Ctl On Error GoTo 0 End Sub

Private Sub Form_Resize() Dim D(4) As Double Dim I As Long Dim TempPos As Long Dim StartPos As Long Dim Ctl As Control Dim TempVisible As Boolean Dim ScaleX As Double Dim ScaleY As Double

ScaleX = ScaleWidth / InitWidth ScaleY = ScaleHeight / InitHeight On Error Resume Next For Each Ctl In Me TempVisible = Ctl.Visible Ctl.Visible = False StartPos = 1 ' 读取 Control 的原始位置、大小、字型大小 For I = 0 To 4 TempPos = InStr(StartPos, Ctl.Tag, " ", vbTextCompare) If TempPos > 0 Then D(I) = Mid(Ctl.Tag, StartPos, TempPos - StartPos) StartPos = TempPos + 1 Else D(I) = 0 End If ' 根据比例设定 Control 的位置、大小、字型大小 Ctl.Move D(0) * ScaleX, D(1) * ScaleY, D(2) * ScaleX, D(3) * ScaleY 'Ctl.Width = D(2) * ScaleX 'Ctl.Height = D(3) * ScaleY If ScaleX < ScaleY Then Ctl.FontSize = D(4) * ScaleX Else Ctl.FontSize = D(4) * ScaleY End If Next I Ctl.Visible = TempVisible Next Ctl On Error GoTo 0 End Sub


尊重别人就是尊重自己
2005-07-08 10:01
pipi_song
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2006-8-29
收藏
得分:0 

这个好啊!我也正需要这个!楼上的方法有人试过吗?楼主没有总结阿?
2006-08-29 10:50
jiangdongbing
Rank: 1
等 级:新手上路
帖 子:40
专家分:0
注 册:2006-8-24
收藏
得分:0 
确实很好 感谢萧三少 我也需要这个

2006-08-29 14:02
pipi_song
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2006-8-29
收藏
得分:0 

我试了,确实可以用!但是还有一个问题是:窗口如果有背景图片的话,背景图片不能随窗口的最大化拉伸,不知道能不能解决!
还是很感谢萧三少!!

2006-08-29 19:01
快速回复:如何在vb窗口最大化的时候,里面的控件一起变化?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.081414 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved