1,453
社区成员
发帖
与我相关
我的任务
分享在VB6中，如何使窗体上的所有控件都随着显示器的大小自动相似缩放。从常规窗口到最大化时也自动相似放大。
在VB6中，如何使窗体上的所有控件都随着显示器的大小自动相似缩放。从常规窗口到最大化时也自动相似放大。
...全文
请发表友善的回复…
发表回复
贝隆 2011-12-13
- 打赏
- 举报
这样做不可取
wanmin2010 2011-12-13
- 打赏
- 举报
三楼顶起
oceantide 2008-06-19
- 打赏
- 举报
顶，区区在下也想知道！
sudeping_ok 2007-03-18
- 打赏
- 举报
楼上的说得很好，不过你分给得也太少了吧，分数合适我把代码写给你。流口水中.......
cangwu_lee 2007-03-12
- 打赏
- 举报
打开窗口的时候，记住没有控件的大小、位置，窗口变化之后，相应调整。
xiangfly 2007-03-12
- 打赏
- 举报
可以用第三方控件,如ReSize,FastFormControl
luxu365 2007-03-12
- 打赏
- 举报
这个实现起来理论很简单，但是编起来比较麻烦。你确定要实现么？好吧，如果你坚持要实现这个看似很简单但是写起来十分枯燥无味的功能我就告诉你吧。废话不说了，首先控件的大小位置是由控件的4个属性决定的，分别是height、width、top、left。只要改变这4个属性的值就可以实现控制控件的大小和位置。第二谁规定这四个属性的值一定要用常数？你可以用数学公式嘛。你要首先确定你要改变控件位置大小的触发事件是什么？你给出的要求是在窗体大小发生改变时触发，那好就把相关代码写在Private Sub Form_Resize()窗体事件当中，这个事件就是当窗体的大小发生改变时被触发。然后是如何确定控件改变的大小，前面不是说了么控件的大小数值可以用公式来确定，那么公式中一定有相关参数来和触发改变的事物进行交互以确定实际数值，那么好你可以这样定义控件的大小以窗体大小的百分比来表示，控件的位置已窗体长宽的百分比来表示，把它们写入Private Sub Form_Resize()事件。OK
