vb可以通过代码 指定控件所属容器 然后以此分组
就是想了解 对应的 vc实现方法[不是用groupbox分组] 是要容器 因为我需要调用的是 activex控件
这个控件 group 风格不起作用。 下面付上vb工程代码
创建过程
1、新建exe工程 不添加任何控件
2、动态创建控件 并设定单选控件的 容器 为 frame控件源代码
Sub CreateControl()
' 创建新frame 控件
Set Frame1 = Controls.Add("VB.Frame", "Frame1")
' 将控件移动到你所需要的地方
Frame1.Move 50, 50, 3200, 3300
' 创建时,所有的控件都是不可见的
Frame1.Visible = True
'单选按钮1
Set Option1 = Controls.Add("VB.OptionButton", "Option1")
Option1.Move 222, 222, 1200, 300
Option1.Visible = True
Option1.Caption = "Option1"
'单选按钮2
Set Option2 = Controls.Add("VB.OptionButton", "Option2")
Option2.Move 222, 555, 1200, 300
Option2.Visible = True
Option2.Caption = "Option2"
'单选按钮3
Set Option3 = Controls.Add("VB.OptionButton", "Option3")
Option3.Move 222, 888, 1200, 300
Option3.Visible = True
Option3.Caption = "Option3"
'设定按钮 属于的容器
Set Option1.Container = Frame1
Set Option2.Container = Frame1
Set Option3.Container = Frame1
End Sub
Private Sub Form_Load()
CreateControl
End Sub
就是想了解 对应的 vc实现方法[不是用groupbox分组] 是要容器 因为我需要调用的是 activex控件
这个控件 group 风格不起作用。 下面付上vb工程代码
创建过程
1、新建exe工程 不添加任何控件
2、动态创建控件 并设定单选控件的 容器 为 frame控件源代码
Sub CreateControl()
' 创建新frame 控件
Set Frame1 = Controls.Add("VB.Frame", "Frame1")
' 将控件移动到你所需要的地方
Frame1.Move 50, 50, 3200, 3300
' 创建时,所有的控件都是不可见的
Frame1.Visible = True
'单选按钮1
Set Option1 = Controls.Add("VB.OptionButton", "Option1")
Option1.Move 222, 222, 1200, 300
Option1.Visible = True
Option1.Caption = "Option1"
'单选按钮2
Set Option2 = Controls.Add("VB.OptionButton", "Option2")
Option2.Move 222, 555, 1200, 300
Option2.Visible = True
Option2.Caption = "Option2"
'单选按钮3
Set Option3 = Controls.Add("VB.OptionButton", "Option3")
Option3.Move 222, 888, 1200, 300
Option3.Visible = True
Option3.Caption = "Option3"
'设定按钮 属于的容器
Set Option1.Container = Frame1
Set Option2.Container = Frame1
Set Option3.Container = Frame1
End Sub
Private Sub Form_Load()
CreateControl
End Sub
并未起到容器作用,控件内部没产生联系。还是揭帖