vb怎么做个放大、缩小的控件

VB怎么让窗口改变大小时控件也按比例改变大小？~

可以用窗体的Resize事件来实现，改变窗体大小时，控件大小跟窗体成比例，不过如果最小化的时候就会出错，所以还得把最小化的事件给去了，代码如下：
Private Sub Form_Resize()
If Me.WindowState 1 Then '如果不是最小化
Command1.Width = Me.Width / 5 '按钮宽度是窗体的1/5
Command1.Height = Me.Height / 5 '按钮高度是窗体的1/5
End If
End Sub
参数可以自己设定，其它的也是如此，细节还得自己弄了，如果想让控件居中可以这样：
Private Sub Form_Resize()
If Me.WindowState 1 Then '如果不是最小化
Command1.Width = Me.Width / 5 '按钮宽度是窗体的1/5
Command1.Height = Me.Height / 5 '按钮高度是窗体的1/5
Command1.Left = (Me.Width - Command1.Width) / 2 '按钮左边
Command1.Top = (Me.Height - Command1.Height) / 2 '按钮顶边
End If
End Sub
这样就可以随窗体改变而改变了。

先在Form_Load中记录控件的相对位置及大小比例，然后在Form_Resize中按比例设置控件的位置及大小即可：

Dim ll As Single, tt As Single, ww As Single, hh As Single

Private Sub Form_Load()

ll = Text1.Left / Me.ScaleWidth
tt = Text1.Top / Me.ScaleHeight

ww = Text1.Width / Me.ScaleWidth
hh = Text1.Height / Me.ScaleHeight

End Sub

Private Sub Form_Resize()
Text1.Left = Me.ScaleWidth * ll
Text1.Top = Me.ScaleHeight * tt
Text1.Width = Me.ScaleWidth * ww
Text1.Height = Me.ScaleHeight * hh
End Sub

如果控件比较多的话，就要用数组了。

image控件设置stretch属性为TRUE 这样的话就会自动放大或缩小图片和控件一样大，你只需要改变image控件的大小即可改变图片大小

我这里有实例，需要的话联系我，告诉我你的邮箱。
Private Sub Command3_Click() '变大
Image1.Width = 1.1 * Image1.Width
Image1.Height = 1.1 * Image1.Height
If Image1.Width >= 2000 Then Command4.Enabled = True
If Image1.Width >= 7000 Then Command3.Enabled = False
End Sub

Private Sub Command4_Click() '变小
Image1.Width = 0.9 * Image1.Width
Image1.Height = 0.9 * Image1.Height
If Image1.Width < 7000 Then Command3.Enabled = True
If Image1.Width < 2000 Then Command4.Enabled = False
End Sub

---

包河区13617961284： 求用vb编程,实现图片的缩小和放大的程序 - ？
丹盆脑得： 粗劣的做了下~最简单的就是用image控件 先将Image1的Stretch 属性设置为 True Private Sub Command1_Click() Static a As Integer Static b As Integer a = a + 1 b = b + 1 Image1.Height = Image1.Height * a Image1.Width = Image1.Width * b End Sub

包河区13617961284： 用vb做一个图像放大缩小的程序 - ？
丹盆脑得： 供参考 Private Sub Form_Load() HScroll1.Max = 1000 '自定义设置 End Sub Private Sub HScroll1_Scroll() Image1.Width = 1200 + HScroll1.Value Image1.Height = 1200 + HScroll1.Value End Sub

包河区13617961284： 在vb编程时如何按窗体比例缩放控件大小 - ？
丹盆脑得： dim formldwidth, formldheightprivate sub form_load()call resizeinit(me)end sub private sub form_resize()call resizeform(me)end sub public sub resizeinit(formname as form)dim obj as controlformldwidth = formname.scalewidthformldheight...

包河区13617961284： vb语言中怎么使窗体和窗体里的控件同时放大缩小?？
丹盆脑得： 要做到同时扩大或缩小,而比例不变.要先记住窗体的原来的大小和控件的大小. 再用到窗体的Form_Resize()事件. 简单的好像不能达到保持原比例

包河区13617961284： 用VB程序如何在一定限度内放大缩小图片,用Image控件 - ？
丹盆脑得： Private Sub Command1_Click() Image1.Height=Image1.Height+Image1.Height*0.1 Image1.Width=Image1.Width+Image1.Width*0.1 End Sub Private Sub Command2_Click() Image1.Height=Image1.Height-Image1.Height*0.1 Image1.Width=Image1.Width-Image1.Width*0.1 End Sub Private Sub Command3_Click() End End Sub

包河区13617961284： VB程序设计(在窗体上放大或缩小圆) - ？
丹盆脑得： shape1 应该是一个控件 这段代码的意思是 每隔一段时间缩小shape1 的高和宽 200 缇 如果控件的长或宽不足200缇 空间的长和宽=当前长和宽各加200 事件结束你所问到的几行代码 1. 当空间长或者宽不足200时 2、3 控件的长和宽各减200

包河区13617961284： Vb中怎么让控件随窗体放大缩小?谢谢! - ？
丹盆脑得： 在窗体的resize时间中写代码控制控件大小的代码

包河区13617961284： VB中如何用滚动条控制图片的缩放? - ？
丹盆脑得： 要注意保持原图片的宽窄比,否则会失真!给你段相对完整的代码. 步骤1: 新建一窗体,添加一按钮组【Command1(0)】、【Command1(1)】、【Command1(2)】,一个对话框【CommonDialog1】(COMDLG32.OCX)以及一个图片框【...

包河区13617961284： vb中如何使图片自动放大和缩小？
丹盆脑得： 用image控件,设置image1的Stretch属性值为True,图像就缩放为image控件大小.

包河区13617961284： 编写一个VB程序,把某个图形装入一个图片框中,且能实现该图形的放大,缩小和全屏显示 - ？
丹盆脑得： image 控件,属性设置图片大小适应控件,放大缩小只要改变image控件的height, left, top 属性就可以.