关于程序中创建控件

William1980 2004-01-05 11:34:43

各位高手，我在数据库中一个表里记录了某个控件（如:TextBox）的基本属性（如：Top、Left、Height等等）。我想在窗体中进行某项操作后（如点击某按钮后），从数据库中读取控件属性，加载控件，但点击不同的按钮或进行不同的操作时界面显示的是不同类型的控件，包括文本框、复选框、单选框等等，所以我不能事先将这些控件画到窗体上已经存在的Frame中，想在操作后动态加载这些控件，请问我应该怎么做，有办法做吗？谢谢指教！

...全文

58 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

海牛 2004-01-06

打赏
举报

晕，在另外一个帖子里面，你不是问过了吗？？？

northwolves 2004-01-06

打赏
举报

Private WithEvents check1 As CheckBox
Private WithEvents txtbox As TextBox
Private WithEvents options As OptionButton
Private WithEvents labels As Label

Private Sub Command1_Click()
On Error Resume Next
Dim a(1 To 4) As String, ctl As Control
For i = 1 To 4
a(i) = Choose(i, "vb.checkbox", "vb.textbox", "vb.optionbutton", "vb.label")
Next
i = InputBox("please enter the number you want to creat" & vbCrLf & 1 & a(1) & vbCrLf & 2 & a(2) & vbCrLf & 3 & a(3) & vbCrLf & 4 & a(4), "information", 1)
Set ctl = Me.Controls.Add(a(i), Split(a(i), ".")(1), Frame1)
ctl.Move 1000, 1000, 2000, 500 ' move to your left,top,width,height
ctl.Caption = ctl.Name 'your caption
cctl.Text = ctl.Name ' your text
ctl.Visible = True
MsgBox a(i) & " 创建完毕！"
End Sub