请教一个关于VB窗体的菜鸟问题

chenhailiangbiy 2003-11-28 09:56:47

怎样才能使Form中的各种控件尺寸随Form的改变而改变？请给代码谢谢　！！！

...全文

77 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

feilong215 2003-11-28

打赏
举报

Private Sub Form_Resize()
txtNote.Move 20, 20, Me.Width - 100, Me.Height - 200
End Sub

数字就是边距了，自己调一下就OK了

QINYUEH 2003-11-28

打赏
举报

在Form_resize中

控件.width= Me.ScaleWidth
控件.height= Me.ScaleHeight

doudou8090 2003-11-28

打赏
举报

楼上说的不错呀
努力

boydgmx 2003-11-28

打赏
举报

回复人： vbanddelphi(一枝梨花) 的意见就足够了，思路很明确，
充分利用控件的tag属性。。。

希望楼主不要期望大家提供给你直接可以执行的代码，自己的程序必须要自己写，
我们在这里讨论的关键是思路。

chenhailiangbiy 2003-11-28

打赏
举报

上面给的代码不是很清楚？？？
哪位大虾？？？有没有更详细的？？？

wumy_ld 2003-11-28

打赏
举报

留个EMail，给你发一个控件，这个控件往窗体上一放就搞定了（运行时不显示），随着窗体大小变化自动调整每个控件位置和大小，呵呵，超级简单。

davidlv 2003-11-28

打赏
举报

在Form_resize中进行调整，得自己写代码调整各个控件的位置

vbanddelphi 2003-11-28

打赏
举报

这是"海牛猪猪"给我写的,你去参考一下吧!
第一部分代码
Option Explicit

Private Sub Form_Load()
Dim lFormWidth As Long
Dim lFormHeight As Long

lFormWidth = Me.ScaleWidth
lFormHeight = Me.ScaleHeight

'第二步分
Me.Command1.Tag = Me.Command1.Width / lFormWidth & "|" & Me.Command1.Height / lFormHeight
Me.Command3.Tag = Me.Command1.Width / lFormWidth & "|" & Me.Command1.Height / lFormHeight
Me.Command4.Tag = Me.Command1.Width / lFormWidth & "|" & Me.Command1.Height / lFormHeight
End Sub

Private Sub Form_Resize()
If Me.WindowState <> 1 Then
Call ResizeControls
End Sub

Private Sub ResizeControls()
Dim objC As Object
Dim strarrK() As String
Dim lW As Long, lH As Long
lW = Me.ScaleWidth
lH = Me.ScaleHeight
For Each objC In Me.Controls
If TypeOf objC Is CommandButton Then
If Len(objC.Tag) <> 0 Then
strarrK = Split(CStr(objC.Tag), "|")
objC.Width = lW * Val(strarrK(0))
objC.Height = lH * Val(strarrK(1))
End If
Next objC
End Sub
'添加四个CommandButton

chenhailiangbiy 2003-11-28