点击按钮后在Frame1中新建一个文本框的例子：
Private Sub Command1_Click()Dim txt1 As TextBox
Set txt1 = Me.Controls.Add("VB.TextBox", "txt1")
Set txt1.Container = Frame1
txt1.Move 360, 360, 3600, 600
txt1.Text = "新建的文本框"
txt1.Visible = True
End Sub
给你啊一个样子，你自己看。
vb如何用代码在frame中动态创建控件
点击按钮后在Frame1中新建一个文本框的例子：Private Sub Command1_Click()Dim txt1 As TextBoxSet txt1 = Me.Controls.Add("VB.TextBox", "txt1")Set txt1.Container = Frame1txt1.Move 360, 360, 3600, 600txt1.Text = "新建的文本框"txt1.Visible = TrueEnd Sub ...
VB6.0如何用代码添加控件
在Frame1上画一个按钮 Add 方法（Controls 集合）示例 Private Sub Form_Load()Form1.Controls.Add "VB.CommandButton", "cmdObj1", Frame1 With Form1!cmdObj1 .Visible = True .Width = 2000 .Caption = "Dynamic Button"End With End Sub 注意 上面的代码例子使用 ! 作为一个语法要素。您...
VB中的frame框架里面怎么添加东西
1）鼠标选中工具箱想添加的控件。2）放在在Frame控件中绘制它的大小尺寸。3）调整控件位置和大小。Frame 控件，Frame 控件为控件提供可标识的分组。Frame 可以在功能上进一步分割一个窗体－例如，把 OptionButton 控件分成几组。为了将控件分组，首先需要绘制 Frame 控件，然后绘制 Frame 里面的控件。这样就...
vb6.0 动态添加的控件可以对它进行操作吗?
用Controls：dim frame1 as Frame Set frame1 = Controls.Add("VB.Frame", "aa") ‘添加 frame1 .Visible = True frame1.Width = 1000‘调整大小 frame1.Height = 1000 Controls.Remove aa’删除 用控件数组：首先在窗体上添加一个Frame控件，命名为frameArray，Index属性为0 Load frameArray(1...
在vb编程中怎样编一个"上一个"和"下一个"按钮代码
代码中adoEmp是我建的一个ADODC控件 for语句那段是我想如果从数据库中取出的数据是NULL的话，就把它设为""，这样方便在窗体上显示。因为窗体上控件的text属性可以是"",但不能是NULL 最后，将各数据输入到窗体相应的控件上，你就把with块里的语句改一下就行。Private Sub cmdMD_Click(Index As ...
vb 怎么创建控件数组对象
如果想要直接传递窗体上的控件数组，你的过程参数必须是集合形式：call other（Frame1）Sub other(My_frame As Collection)My_frame(0).BackColor = vbGreen My_frame(1).BackColor = vbRed End Sub
VB 中如何使控件位置和大小自动适应窗体变化?
1. 在窗体上添加一个框架控件。2. 将需要自动适应窗体变化的控件（如按钮）拖放到框架内。3. 调整框架的大小和位置。当窗体大小变化时，框架内的控件也将自动调整大小和位置，从而实现随窗体变化的自适应。使用框架控件能简化控件布局的调整工作，提高代码的可维护性和灵活性。通过将控件放入框架内，只...
VB中用代码编辑FRAME属性
Frame1.caption="文本区"
VB6.0,如何把已建立的控件,放入Frame中?
画好Frame后，把你的控件剪切，然后选中Frame，再粘贴。
如何动态生成多个Frame
Private WithEvents NewTextBox As TextBox '通过使用WithEvents关键字声明一个对象变量为新的命令按钮 Private Sub Command1_Click()If NewTextBox Is Nothing Then Set NewTextBox = Controls.Add("VB.TextBox", "cmdNew", Form1)NewTextBox.Move 200, 200 NewTextBox.Width = Form1.Width -...
