如何在VB编程中实现控件的自适应功能？

随着窗体的变化，文本框也会发生变化

private sub form_load()= 2500

1end sub

private sub timer1_timer()= 100

end sub

在表单 resize 事件中写入 **。

小组件会随着窗体的宽度和高度而变化。

在窗体调整大小事件中，只需根据窗体的宽度更改控件的宽度和高度即可。

例如，私有子窗体 resize（） 控件根据窗体的大小进行缩放。 同样，相对位置可以是这样的。

Form 的 Resize 事件。

例如，私有子表单 resize（）if <>1 then

end if

end sub

更改窗口大小，小部件宽度也会更改。

没有控件也没有api实现**，粘贴下面**尝试，我不明白嗨我。

private sub form_resize()=

0end sub

窗体具有 Resize 事件。

private

subform_resize()

endsub 用于在窗体大小更改时在控件中添加更改。

当然，你必须弄清楚它应该如何改变。

首先，在表单加载中记录小部件的相对位置和大小比，然后在表单调整大小中按比例设置小部件的位置和大小

dim ll as single, tt as single, ww as single, hh as single

private sub form_load()ll = /

tt = /

ww = /

hh = /

end sub

private sub form_resize()= * ll

tt * ww

hhend sub

如果有很多控件，则需要使用数组。

1.用**控制大小和位置。

2.采用乘法和除法，不加减法。

3.在表格调整大小中写**。

例如，私有子表单 resize（） = *

end sub

你可以用锚点来锚定，但是这个方法只是控制控件四边的相对坐标，控件的大小可以任意决定，如果想要完全遵循，其实像素坐标都在变化，必须用**来写。。。其实很简单，只要让控件坐标与窗口大小成正比就行了。

您可以将相关按钮放在框架中，这样在调整表单大小时，您不需要更改每个按钮的大小和位置，您只需要更改框架的大小和位置。

您可以添加或减去顶部、左侧、宽度和高度的值！

例如，在表单中添加一个命令按钮，私有子表单 resize（） on error resume next

固定值“end sub

这需要更改控件的位置和纵横比。 这很麻烦。

我只是发现这件事很重要，我就去做了。

打嗝。。。 博学！！ 将 max 属性设置为 false 也是一种权宜之计！ o(∩_o...哈哈。

看看我的空间！

我必须写我自己的**才能实现。

可以使用原始窗体大小与当前窗体大小的比率乘以每个控件的原始长度和宽度。

在表单的私有子表单 resize（） 事件中写入 **。

.top .left

hightwidth

直接使用它。 move 方法。

有两个属性，dock 和 anchor，建议查看参考文献，看看哪一个更符合您的要求。

在调整表单大小的过程中。

写入点会自动更改其他控件的大小。

-- 覆盖进程中小组件的大小。

private sub form_resize()= *

end sub

要用好看，还要计算上左改后，如果不想太麻烦，可以做表格不改尺寸。

具体大小是按百分比计算的，我写了50个，当然更大。

表示在表单调整大小事件中，小部件的位置发生了**变化，很明显这些变化无法正常工作。

将“学生管理信息系统”的标签设置为 lable1，将表单设置为 frm：

sub frm_resize()

end sub

效果是 label1 在窗体大小更改后居中。

其他控件可以按照 label1 进行建模

左侧和顶部控件、宽度和高度控件与窗体比例相同。

有一个属性是可以控制的。