如可动态生成TextBox控件

杀时间 2006-06-08 09:30:35
如dim a1 as textbox,a1 = new textbox???
可以么?
...全文
391 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
yigepure 2006-06-14
  • 打赏
  • 举报
回复
如果是在EXCEL中。要使用
userform1.controls.add("MsForm.TextBox.1","mytxt",true)
junki 2006-06-09
  • 打赏
  • 举报
回复
使用控件数组。
先放置一个TextBox(0),
然后Load TextBox(i).
wang5431320 2006-06-09
  • 打赏
  • 举报
回复
我也有一个类似的问题
http://community.csdn.net/Expert/topic/4801/4801853.xml?temp=.9010736
怎样为userform中的image动态定义鼠标点击事件

多谢高手指点!
VirtualDesktop 2006-06-09
  • 打赏
  • 举报
回复
Dim text As TextBox
Set text = Controls.Add("VB.TextBox", "name")
text .Left = 0
text .Top = 0
text .Visible = True
yechat 2006-06-08
  • 打赏
  • 举报
回复
Option Explicit

Private WithEvents myText As TextBox


'动态加载控件
Private Sub Command1_Click()
Set myText = Controls.Add("VB.TextBox", "myTextBox")
With myText
.Visible = True
.Text = "这是加载的动态控件"
.Width = 3200
End With
End Sub

'编程动态控件的事件
Private Sub myText_Change()
MsgBox "你改变了" & myText.Name & "的内容。", vbInformation
End Sub
daisy8675 2006-06-08
  • 打赏
  • 举报
回复
Dim b As TextBox
Set b = Controls.Add("VB.TextBox", "TxtName")
b.Left = 0
b.Top = 0
b.Visible = True

2,461

社区成员

发帖
与我相关
我的任务
社区描述
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧