首先，在窗体画一个名为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 Text1(i)
Text1(i).Left = 100
Text1(i).Top = 100 + (Text1(i).Height + 100) * i
Text1(i).Visible = True
Next i
End Sub
运行程序，单击此按钮，即可根据你设定的个数生成TextBox控件。
求教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中如何动态添加控件数组? 我现在已经用controls.add添加了一个控件...
Private Sub Command1_Click()CreateTextbox End Sub Private Sub Command2_Click()Set txtTotal(1) = Controls.Add("VB.TextBox", "txtTotal1")txtTotal(1).Move 3000, 800, 1200, 300 txtTotal(1).Visible = True End Sub 这样算不算 像设计放置控件的方法一好像不能实现 ...
vb编程textbox怎么弄
1、点击textbox，在属性中把MultiLine属性设置为True，如下图；2、在属性中设置ScrollBars的值，一般选择2-Vertical，你可以根据自己需要选择。
vb如何在运行过程中动态的创建按钮,标签,文本框等对象?
Dim newButton As New System.Windows.Forms.Button ' 预设对象 With newButton .Name = [按钮控件名称].Text = [按钮显示内容].Location = New Point([x位置], [y位置]).Size = New System.Drawing.Size([控件宽], [控件高]).FlatStyle = FlatStyle.Standard End With ' 生成添加对象 Contr...
VBA Excel 如何监控,动态生成的text控件?
Public Sub change(ctl As MSForms.TextBox)Set myTxt = ctl End Sub Private Sub myBttn_Click()MsgBox "单击我干吗?"End Sub 'Private Sub myTxt_Change()MsgBox myTxt.Text End Sub 窗体部分代码 Option Explicit Private mTxt(1 To 3) As MyClass Dim txt As MSForms.TextBox Private Sub...
vb6.0中怎么动态加载控件?
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 -...
vb里面怎么设置textbox的滚动条?
1、首先打开VB，然后在VB窗体上添加一个文本框，如图。2、然后点击这个添加的文本框，接着在右侧的一个窗口中，设置他的相关名称和数值，然后将文本内容清空。如图。3、紧接着在窗体上面，再添加一个水平滚动条，如图。4、然后单击这个水平滚动条，设置名称和数值，将Min设置为0，Max设置为100。
vb 动态加载的控件,怎么激发其click事件
在通用声明区用 Dim WithEvents 声明变量。Dim WithEvents 姓名 As TextBoxPrivate Sub Form_Load() Set 姓名 = Me.Controls.Add("VB.TextBox", "姓名") 姓名.Visible = TrueEnd SubPrivate Sub 姓名_Click() MsgBox "点击了控件名为“姓名”的 TextBox "End Sub ...
VB.NET中的TextBox控件详解
分别是TextBox类的常用属性 方法和事件及其简单说明 属性 说明 AcceptsReturn 指示在多行TextBox组件中按ENTER键时 是在组件中创建一行新文本还是激活窗体的默认按钮 AcceptsTab 该值指示在多行文本框组件中按TAB键时 是否在组件中键入一个TAB字符 而不是按选项卡的顺序将焦点移动到下一个组件 AllowDrop 获取或设置...
vb 一个数据生成多个textbox
Set MyTextBox(i) = Controls.Add("VB.TextBox", "TextBox" & CStr(i + 1))MyTextBox(i).Move 100, 100 + i * 500, 1000, 200 MyTextBox(i).Text = "TextBox" & CStr(i + 1)MyTextBox(i).Visible = True Next End Sub 回楼下的，楼主没有要求响应事件。。。
