vb 控件大小调整的问题

来源：百度知道 编辑：UC知道 时间：2024/06/06 20:26:30
我需要向一个picturebox中动态添加textbox，竖直排列，但是添加的多了以后图片框的大小不变，新添加的文本框看不见，求助高手帮忙
图片框的大小增加后如何使窗体的长度也跟着增加呢？我增加图片框长度后直接跑到窗体外面去了
不是很明白，能细说一下吗？谢谢。追加20分
窗体变大了，但是没有出现滚动条，出了电脑屏幕了，怎么办？真不好意思，我刚学。
增加到超出屏幕怎么办？窗体增大不是应该出现一个滚动条吗，为什么我的窗体增大后没有？
应该如何添加滚动条？如何编写相应的代码？
能介绍详细一些吗？不好意思麻烦你了，再加20分

每加一个文本框，就检查一下picturebox的大小，如果不合适，就用代码调整。
用form1.width=代码调整就行了。
form1.width=picture1.left+picture1.width+300
那你也不能让picture的宽度无限制的增大呀。你总得有个边吧。
窗体上的滚动条需要自己添加的。在控件中有个HScroll，是左右滚动条，VScroll是上下滚动条。
你到底想做什么？不行把你的程序发过来，我帮你做得了。

两个pic（Picture控件数组）
把pic(1)放在Pic(0)里面
把Text1(0)放在Pic(1)里面，Visible为false
VScroll1放在旁边，Visible为false
一定要注意

Private Sub Command1_Click()
Static n As Integer
n = n + 1
Load Text1(n)
Text1(n).Top = Text1(0).Top + Text1(0).Height * (n - 1)
Text1(n).Visible = True
If Text1(n).Top + Text1(n).Height > pic(1).Height Then
pic(1).Height = Text1(n).Top + Text1(n).Height + 500
VScroll1.Max = (pic(1).Height - pic(0).Height) / 100
VScroll1.Visible = True
End If
End Sub

Private Sub Form_Load()
pic(1).Move -10, -10, pic(0).Width, pic(0).Height
End Sub

Private Sub VScroll1_Change()
pic(1).Top = -VScroll1.Value * 100
End Sub