VB 如何在运行时在控件内加载控件

来源：百度知道 编辑：UC知道 时间：2024/07/03 23:06:38
比如在运行时在一个图片框内加载一个图片框
事实上A框就是用控件数组加载上去的，所以。。。 。。。
而且即使A框本来有B框，但控件数组加载的A框也是没有B框的

你想要在A图片框里加载B 你不如在写程序时 直接拖个B图片框放在A里 B的visible属性设置为false 就好了 你想什么时候加载B 就让visible=true 不就好了
或者 动态加载Picture控件组数
添加一个按钮 一个picturebox 控件name属性改为PicZu index属性为0
点按钮一次会添加图片框 点第二次会删除添加
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const HTCAPTION = 2
Private Const WM_NCLBUTTONDOWN = &HA1
Private Sub Command1_Click()
If PicZu.Count > 1 Then
For i = 1 To 2
Unload PicZu(i)
Next
Exit Sub
End If
For i = 1 To 2
Load PicZu(i)
PicZu(i).Visible = True
PicZu(i).Height = PicZu(0).Height - 400 * i
PicZu(i).Width = PicZu(0).Width - 400 * i
ncl = SendMessage(PicZu(i).hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
PicZu(i).Move PicZu(0).Left + 100, PicZu(0).Top + 200
PicZu(i).Picture = LoadPicture("d:\" & i & ".jpg")'加载图片