vb怎么控制frame里面的文本框

在 VB 中，可以通过在 Frame 控件中添加文本框控件来实现。要控制 Frame 中的文本框，需要先获取 Frame 控件，然后再获取 Frame 中的文本框控件。以下是一个简单的示例代码，展示了如何通过代码控制 Frame 中的文本框控件的可见性和文本值。

vb

Copy code

Private Sub CommandButton_Click()

' 获取 Frame 控件

Dim myFrame As Frame

Set myFrame = Me.Frame1

' 获取 Frame 中的文本框控件

Dim myTextBox As TextBox

Set myTextBox = myFrame.Controls("TextBox1")

' 控制文本框控件的可见性和文本值

myTextBox.Visible = False

myTextBox.Text = "Hello, World!"

End Sub

在上面的代码中，Me.Frame1 获取了名为 Frame1 的 Frame 控件，myFrame.Controls("TextBox1") 获取了 Frame 中名为 TextBox1 的文本框控件。然后可以通过设置文本框的 Visible 属性控制其可见性，通过设置 Text 属性控制其文本值。

vb6如下：

Private Sub Command1_Click()

 Dim txt As Object

 Static n As Integer, x As Long

 n = n + 1

 Set txt = Controls.Add("vb.textbox", "txok" & n, Me)

 With txt

  .Move x, 500

  .Text = "Hi,textbox"

  .Visible = True

 

 End With

 x = x + 2000

End Sub

方法一：如果文本框的数量不很多，而且可以知道最多值，可以使用Visible属性，先隐藏，后显示．

方法二：使用文本框控件组，先使用一个，后用语句添加

先在窗体上放一个Text1(0)，然后添加，命令是Load

Text1(n)

不过，新添加的控件默认是不可见的，要这样：

Load

Text1(n)

Text1(n).visible

=

true

Text1(n).Left=2345

text1(n).top=5555

因为，新添加的控件位置与原来的重合，还要用语句重新定位．

---