求助：如何实现VBA中textbox控件的自动生成？

2005-09-19 02:44:33 501 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Rita0120 墨衍会员 · AI 创作全网分发关注 + 加入社区

【 VBA 编程】UserForm进阶：用鼠标触发事件动态调整控件尺寸大小本期分享编程技能：通过MouseDown、MouseMove和MouseUp事件联动，在窗体UserForm运行期间用鼠标动态调整控件大小阅读详情

我要实现textbox和checkbox的自动生成。也就是当在textbox中添加内容
完毕后，回车就能再生成一个textbox。

...全文

VBA userForm中控件的访问方法，值传递方法 VBA userForm的用法以pickFcxForm为例（userForm）以pickFcxForm为例（userForm）窗体内的代码： Public bCancel As Boolean ''窗体内的全局变量 Private Sub CommandButton1_Click() ''确定 Dim xBLC As Integer On Error GoTo ERR1 xBLC = Val(pickFcxForm.TextBox1.Text) On Error 阅读详情

Rita0120

控件 1,453 成员 41,351 内容

+ 关注 + 加入社区

切换为时间正序

myhgyp 2005-09-19

打赏
举报

Dim btnObj As Control
Public Sub NewTextBox(ByVal CtrlName As String)
Set btnObj = Me.Controls.Add("Forms.TextBox.1", "TextBoxName")
With btnObj
.Text = Text1.Text
.Top = 100
.Left = 100
.Visible = True
End With
End Sub

Private Sub Text1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then NewTextBox TxtCtrl
End Sub

myhgyp 2005-09-19

打赏
举报

VBA中没试过，先Mark一下

Rita0120 2005-09-19

打赏
举报

这些都是在VB中使用的亚，哪在VBA中的具体操作又是怎么样的亚？

道素 2005-09-19

打赏
举报

如果控件很多建议使用控件数组，然后通过load方法加载
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then
Load Text1(Index + 1)
With Text1(Index + 1)
.Visible = True
.Top = Text1(Index).Top + Text1(Index).Height + 10
.Left = Text1(Index).Left
End With
End If
End Sub

weiweiplay 2005-09-19

打赏
举报

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then NewTextBox "text1234"
End Sub

Public Sub NewTextBox(ByVal CtrlName As String)
Dim btnObj As Control
Set btnObj = Me.Controls.Add("VB.TextBox", CtrlName)
With btnObj
.Text = Text1.Text
.Top = Text1.Top + Text1.Height + 200
.Left = Text1.Left
.Height = Text1.Height
.Width = Text1.Width
.Visible = True
End With
End Sub

这样可以，呵呵

weiweiplay 2005-09-19

打赏
举报

Public Sub NewTextBox(ByVal CtrlName As String)
Dim btnObj As Control
Set btnObj = Me.Controls.Add("VB.TextBox", "TextBoxName")
With btnObj
.Text = Text1.Text
.Top = Text1.Top + 200
.Left = Text1.Left
.Visible = True ‘改成TRUE
End With
End Sub

weiweiplay 2005-09-19

打赏
举报

在TextBox得Keypresss事件种加入

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then NewTextBox CtrlName
End Sub

Public Sub NewTextBox(ByVal CtrlName As String)
Dim btnObj As Control
Set btnObj = Me.Controls.Add("VB.TextBox", "TextBoxName")
With btnObj
.Text = Text1.Text
.Top = 100
.Left = 100
.Visible = False
End With
End Sub

求助：如何实现VBA中textbox控件的自动生成？

相关推荐