如何在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 進行建模

左側和頂部控制項、寬度和高度控制項與窗體比例相同。

有乙個屬性是可以控制的。