Question

VB中怎样让picturebox中的控件、图像等随窗体的改变而改变大小？代码尽量少一些，我百度了很久都不行

Answer 1

这个是很麻烦的，你首先需要先定义好picturebox中的每个控件与picturebox的位置的比例和大小的比例，注意是比例，比如说是1/10还是6%，然后在Form_Resize中把picturebox中的每个控件的大小和位置都按比例改变。

Answer 2

你如何改变窗体？拖动？最大化？
根据改变窗体的方式不同，代码是不同的。

追问

拖动，，用鼠标在窗体边拖动改变大小

追答

已经做好，没有问题，现在给你注释一下。

Dim W As Single, H As Single
Dim TP As Single, LP As Single, WP As Single, HP As Single
Dim WLabel1 As Single, HLabel1 As Single, TLabel1 As Single, LLabel1 As Single
Dim WText1 As Single, HText1 As Single, TText1 As Single, LText1 As Single

Private Sub Form_Load()
W = Me.Width: H = Me.Height
WP = Picture1.Width: HP = Picture1.Height: TP = Picture1.Top: LP = Picture1.Left
WLabel1 = Label1.Width: HLabel1 = Label1.Height: TLabel1 = Label1.Top: LLabel1 = Label1.Left
WText1 = Text1.Width: HText1 = Text1.Height: TText1 = Text1.Top: LText1 = Text1.Left
End Sub

Private Sub Form_Resize()
Dim WL As Single, HL As Single
WL = Me.ScaleWidth / W: HL = Me.ScaleHeight / H '拖动后的比例，不是一定值！
Picture1.Width = WP * WL: Picture1.Left = LP * WL
Picture1.Height = HP * HL: Picture1.Top = TP * HL
Label1.Left = LLabel1 * WL: Label1.Width = WLabel1 * WL
Label1.Top = TLabel1 * HL: Label1.Height = HLabel1 * HL
Text1.Left = LText1 * WL: Text1.Width = WText1 * WL
Text1.Top = TText1 * HL: Text1.Height = HText1 * HL
End Sub

追问

WLabel1 = Label1.Width: HLabel1 = Label1.Height: TLabel1 = Label1.Top: LLabel1 = Label1.Left
VB调试说是要求对象错了

追答

我在窗体放置了一个标签Label1，一个文本框Text1，一个图片控件Picture1，修改为你需要的。

在这里你已经选择了最佳答案，还是到HI去聊，我可以详细给你解释。

Answer 3

Private Sub Form_Resize()
Picture1.Height = Form1.ScaleHeight
Picture1.Left = Form1.ScaleLeft
Picture1.Top = Form1.ScaleTop
Picture1.Width = Form1.ScaleWidth
End Sub

追问

控件不会动，不会改变大小啊

追答

你拖动窗体看看

追问

我拖了，控件还是不动，大小还是不改变大小

追答

你运行程序后 拖动窗口 改变大小

追问

程序运行了，拖了，但控件不变

追答

picture控件 没随着你窗口的大小改变而改变？

追问

我是说，picturebox中的控件、图像等随窗体的改变而改变大小，是picturebox中的控件，不是picture这个控件

追答

要图像随大小改变 可以用image控件 这个可以直接设置
要改变其中的控件大小 这个也是在Private Sub Form_Resize()
中相应的修改

Private Sub Form_Load()
Image1.Stretch = True
End Sub

Private Sub Form_Resize()
Image1.Width = Form1.ScaleWidth
Image1.Height = Form1.ScaleHeight
Image1.Left = Form1.ScaleLeft
Image1.Top = Form1.ScaleTop

Command1.Width = Form1.ScaleWidth / 12
Command1.Left = 300
Command1.Height = Form1.ScaleHeight / 12
Command1.Top = 300
End Sub

追问

image变了控件变了，picturebox却不会变