急！！！高手请帮忙，请问如何将optionbutton控件数组在程序运行的时候，加载到框架中去，或是picture控件中去呀~。

[老吴老吴]

高手请帮忙，请问如何将optionbutton控件数组在程序运行的时候，加载到框架中去，或是picture控件中去呀~。

急呀~。。


高手请帮忙呀~。。。
我的QQ：112605936
e-mail：[e-mail]

[zhouxiaona]

我也遇到了同样的问题？。。。
唉~。。。

[韧恒]

Declare Function SetParent Lib "user32" Alias "SetParent" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

SetParent option1(i).hwnd, picture1.hwnd

[myhgyp]

Dim a(5) As OptionButton '定义五个单选按钮
Private Sub Command2_Click() '动态创建这五个单选按钮
Dim I As Integer
For I = 0 To 5
Set a(I) = Me.Controls.Add("VB.OptionButton", "opt" & I, Me)
a(I).Caption = "这是第" & I & "个"
a(I).Visible = True
a(I).Top = I * 500
Next I
End Sub
Private Sub Command3_Click() '把五个单选按钮放入Frame1框架中
Dim I As Integer
For I = 0 To 5
Set a(I).Container = Frame1
a(I).Top = 500 * (I + 1)
a(I).Left = 200
Next I
End Sub

[老吴老吴]

谢了楼上的两位~。。
我的问题已经解决了~。。。。
非常感谢~。。。。
………………*^-^*…………………………

[老吴老吴]

不好意思~。。。
我第一次来~。。
还不会给分~。。
只给了10分~。
不过还是谢谢你们的帮助~。。。
非常感谢~。。
不过现在又出现了一个问题~。。
问题是现在用了你们两个方法任何一个~。。
可以实现现在的问题~。。
可是当我退出程序的时候都会出现错误~。。
怎么办~？。。

vb6.exe 产生了错误会被windows关闭，您需要重新启动程序。

正在创建错误日志

怎么办~。。。

我再去提这个问题~。。
请两位务必帮忙呀~。。。