如何让PictureBox容下不定数量的控件,如CommandButton?

Question

你如果不想使用滚动条的话可以在Load CommandButton的时候自己算出它们要占的位置空间，然后再把PictureBox设置成相应大小。

Answer 1

他的意思可能不是这样，可能那样的话cmd就太小了，方法我再看看，但是不能肯定能想出来

Answer 2

先声明这样做并不方便
不过给个e-mail
代码发给你

Answer 3

我的MAIL：[email protected].我想这个问题需要看源程序，最好是将它下到你们的
邮箱。需要的朋友可login到www.driveway.com,以aldz为用户名，口令是:
gapanypu.将文件夹ALDZGM下的文件全部DOWNLOAD。使用方法：建立C:\ALDZGM，
将download文件拷入，运行源程序即可。运行环境为vb6,pwin97.

Answer 4

关于可滚动窗体
先声明可滚动窗体并不是能提供给用户的最友好的界面
要创建一个可滚动窗体，你需要一对滚动条控件，一个picturebox控件，再加上一个
填充控件--例如commandbutton，当显示两个滚动条时，它在窗体的右下角。创建可
滚动窗体的秘密在于不是一个个移动所有子控件。相反，将所有控件放在picturebox
中（下面代码中称为piccanvas），当用户移动滚动条时：
sub movecanvas()
piccanvas.move -hscroll1.value,-vscroll.value
end sub
为显示窗体上靠右边界的部分，可给picturebox空间的left属性赋一个负值，同样，
为显示窗体上最底端的部分，可将其top属性赋为负值。从滚动条控件中的chang事
件和scroll事件中调用movecanvas过程即可完成。同时，应在form_resize事件中编
写代码，使滚动条在窗体重调大小时可见或不可见，并且给滚动条控件的max属性赋
一个一致的值：
'用缇表示滚动条的尺寸'
const sb_width=300 
const sb_hight=300
private sub form_resize()
hscroll1.move 0,scaleheight-sb_height,scalewidth-sb_width
vscroll1.move scalewidth-sb_width,0,sb_width,scaleheight-sb_height
cmdfiller.move scalewidth-sb_width,scaleheight-sb_height,sb_width,_
sb_heighthscroll1.zorder
vscroll1.zorder
comfiller.zorder
piccanvas.borderstyle=0hscroll1.smallchange=scalex(1,vbpixels,vbtwips)
vscroll1.smallchange=scaley(1,vbpixels,vbtwips)hscroll1.largechange=hscroll1.smallchange * 16
vscroll1.largechange=vscroll1.smallchange * 16'如果窗体比picturebox大，将不需要滚动条'
if scalewidth<piccanvas.width + sb_width then
hscroll1.visible=true
hscroll1.max=piccanvas.width+sb_width-scalewidth
else 
hscroll1.vaule=0
hscroll1.visible=flase
end ifif scaleheight<piccanvas.height + sb_height then
vscroll1.visible=true
vscroll1.max=piccanvas.height+sb_height-scaleheight
else 
vscroll1.vaule=0
vscroll1.visible=flase
end if 
cmdfiller.visible=(hscroll1.visible or vscroll1.visible)
end sub