VB动态添加控件的问题——TextBox文本框

Private Sub Command1_Click()
Dim a As Label
Dim i As Integer
For i = 0 To 9
Set a = Form1.Controls.Add("VB.TextBox", "Text" & i)
a.Visible = True
a.Move i * 500, i * 400, 1000, 300
a.BackColor = RGB(255, 255, 255)
a.Caption = "Text" & i
Next
Lab.Caption = "动态添加控件成功"
End Sub

哪位高手看看,这个程序错在哪里啦,我都郁闷了,,谢谢啦!

Private Sub Command1_Click()
Dim a As TextBox
Dim i As Integer
For i = 0 To 9
Set a = Form1.Controls.Add("VB.TextBox", "Text" & i)
a.Visible = True
a.Move i * 500, i * 400, 1000, 300
a.BackColor = RGB(255, 255, 255)
a.Text = "Text" & i
Next
Lab.Caption = "动态添加控件成功"
End Sub
温馨提示:内容为网友见解,仅供参考
第1个回答  2009-08-10
Private Sub Command1_Click()
Dim a As TextBox
Dim i As Integer
For i = 0 To 9
Set a = Form1.Controls.Add("VB.TextBox", "Text" & i)
a.Visible = True
a.Move i * 500, i * 400, 1000, 300
a.BackColor = RGB(255, 255, 255)
a.Text = "Text" & i
Next
MsgBox "动态添加控件成功"
End Sub
第2个回答  2009-08-10
1. 首先,你是动态添加textbox文本框的,那么你Dim a As Label肯定类型不匹配,可以直接Dim a
2. textbox文本框没有Caption属性,只有text属性

修改这两处后,可以执行了
第3个回答  2009-08-10
Dim a As textbox

a.text = "text" & i

求教VB中如何动态生成textbox控件
首先,在窗体画一个名为Text1的文本框,将其Index属性设置为0,Left属性设置为100,Top属性设置为100.再在窗体上添加一个命令按钮,其单击事件代码如下:Private Sub Command1_Click() Dim n As Integer n = InputBox("请输入要生成文本框的个数", , 5) For i = 1 To n - 1 Load...

vb里面添加文本框,让文本框可以多行显示,满了换行,有一个竖直的滚动条...
说明 当键入文本超出文本框时多行 TextBox 控件将使正文卷绕。使用 ScrollBars 属性也能够在 TextBox 控件中加入滚动条来加大 TextBox 控件的显示范围。如果没有指定水平滚动条,那么在多行 TextBox 中文本将自动地卷绕。注意 在一个没有缺省按钮的窗体上,在多行 TextBox 控件中按下 ENTER 将把焦点...

vb窗体中怎么引入文本框
在VB窗体中引入文本框的主要步骤如下:首先,打开VB编辑器并创建或打开一个已有项目。接着,通过点击“视图”菜单,再选择“工具箱”,即可打开工具箱窗口。在工具箱窗口内,找到并点击第二行右侧的文本框控件,即TextBox控件。将文本框控件拖放到窗体上,即可在窗体上添加文本框。文本框控件允许用户输入...

vba窗体在运行的时候动态添加控件的代码
mc.Caption = k mc.Top = Me.Controls(k - 1).Top + Me.Controls(k - 1).Height Me.Controls.Remove "Commandbutton1"二、动态添加文本框 Set myText = Controls.Add( "VB.TextBox ", "myTextBox ")With myText .Visible = True .Text = "这是加载的动态控件 ".Width = 3200 End ...

vb编程textbox怎么弄
1、点击textbox,在属性中把MultiLine属性设置为True,如下图;2、在属性中设置ScrollBars的值,一般选择2-Vertical,你可以根据自己需要选择。

vb如何在运行过程中动态的创建按钮,标签,文本框等对象?
若为文本框,则 首行对象为System.Windows.Forms.TextBox 如果要处理其他事件,自己在[相关事件链接]部分添加链接就可以了 举着例子如TextBox的TextChanged事件 AddHandler newTextBox.TextChanged, AddressOf myTextBox_TextChanged AddHandler 后为事件对象, AddressOf 后为为事件对象分配的名称 这样在处理...

VB中Textbox是什么,请指教
TextBox 说明 为了在 TextBox 控件中显示多行文本,要将 MultiLine 属性设置为 True。如果多行 TextBox 没有水平滚动条,那么即使 TextBox 调整了大小,文本也会自动换行。为了在 TextBox 上定制滚动条组合,需要设置 ScrollBars 属性。如果文本框的 MultiLine 属性设置为 True 而且它的 ScrollBars 没...

vb里面怎么设置textbox的滚动条?
1、首先打开VB,然后在VB窗体上添加一个文本框,如图。2、然后点击这个添加的文本框,接着在右侧的一个窗口中,设置他的相关名称和数值,然后将文本内容清空。如图。3、紧接着在窗体上面,再添加一个水平滚动条,如图。4、然后单击这个水平滚动条,设置名称和数值,将Min设置为0,Max设置为100。

有关VB中TextBox控件的问题
Const xStr As String = "0123456789" '如果想限制其他的字符就都写进这里,如新身份证号中会有字母x,把x加进来,用户就只能输入数字和x了 Private Sub Text1_KeyPress(KeyAscii As Integer)KeyAscii = IIf(InStr(xStr & Chr(8), Chr(KeyAscii)), KeyAscii, 0)End Sub ...

VB.NET中的TextBox控件详解
TextBox组件(文本框组件)是一种常用的 也是比较容易掌握的组件 应用程序主要使用它来接收使用者于输入文字信息 在前面内容中已经或多或少的接触到TextBox组件 本节就来详细探讨一下Visual 中TextBox组件的使用方法 一TextBox组件 TextBox类 当我们使用Visual Basic Net集成开发环境开发应用程序时 在从【工具箱】的【...

相似回答