VB如何动态添加控件

wangchangming 2007-06-28 11:30:59
在查寻数据记录时,我想把查询的多条记录实时在反应在动态创建的Lable控件上,VB如何动态创建动态控件!最好有代码参考
...全文
1186 9 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
pipipig 2007-06-28
  • 打赏
  • 举报
回复
Private Sub Command1_Click()
Dim a As Label
Dim i As Integer
For i = 0 To 9
Set a = Form1.Controls.Add("VB.Label", "Label" & i)
a.Visible = True
a.Move i * 500, i * 400, 1000, 300
a.BackColor = RGB(100, 150, 200)
a.Caption = "Label" & i
Next
End Sub
fxy_2002 2007-06-28
  • 打赏
  • 举报
回复
Dim x As Object
Set x = Me.Controls.Add("vb.Label", "Label1")

x.Visible = True
x.Caption = "label1"
guojl 2007-06-28
  • 打赏
  • 举报
回复
VB6有一个新功能,可以动态添加控件,不用控件数组:

  object.Add (ProgID, name, container)

  参数说明

  Object 必需的。一个对象表达式,其值是“应用于”列表中的一个对象。

  ProgID 必需的。一个标识控件的字符串。大多数控件的 ProgID 都可通过查看对象浏览器来决定。控件的 ProgID 是由控件的库和类组成的。

  例如,CommandButton 控件的 ProgID 是 VB.CommandButton。在ProgID 与对象浏览器中所显示的不一样的情况下,Visual Basic

  将显示一个包括正确 ProgId 的错误信息。

  name 必要的。一个字符串,用来标识集合的成员。

  container 可选的。一个对象引用,它指定控件的容器。如果没有指定或为NULL,缺省值为 Controls 集合所属的容器。通过指定该参数,可以把一个控件放置在任何现存的容器控件(如 Frame 控件)中。用户控件或 ActiveX 文档也可以作为一个容器。

  举例: //在picture1上面添加一个commandbutton


Private Sub Form_Load()
Form1.Controls.Add "VB.CommandButton", "cmdOk", Picture1
With Form1!cmdOk
.Visible = True
.Width = 500
.Caption = "确认(&Y)"
End With
End Sub
云路 2007-06-28
  • 打赏
  • 举报
回复
现在VB高手咋这么多啊.
xch2125535 2007-06-28
  • 打赏
  • 举报
回复
要说的都让人说完了。汗。
leozwf 2007-06-28
  • 打赏
  • 举报
回复
给你个动态使用VSflexgrid控件的。
object.Add (ProgID, name, container)

  参数说明

  Object 必需的。一个对象表达式,其值是“应用于”列表中的一个对象。

  ProgID 必需的。一个标识控件的字符串。大多数控件的 ProgID 都可通过查看对象浏览器来决定。控件的 ProgID 是由控件的库和类组成的。

  例如,CommandButton 控件的 ProgID 是 VB.CommandButton。在ProgID 与对象浏览器中所显示的不一样的情况下,Visual Basic

  将显示一个包括正确 ProgId 的错误信息。

  name 必要的。一个字符串,用来标识集合的成员。

  container 可选的。一个对象引用,它指定控件的容器。如果没有指定或为NULL,缺省值为 Controls 集合所属的容器。通过指定该参数,可以把一个控件放置在任何现存的容器控件(如 Frame 控件)中。用户控件或 ActiveX 文档也可以作为一个容器。

例子:
Private WithEvents vsFlexGrid As VBControlExtender

Private Sub Form_Load()
On Error GoTo ErrorHandler
' Licenses.Add "VSFlexGrid8.VSFlexGridDAO.1", ""
Set vsFlexGrid = frmShowAreaInfo.Controls.Add("VSFlexGrid8.VSFlexGridDAO.1", "vsFlexGrid", vsTab)
vsFlexGrid.Visible = True
vsFlexGrid.AllowSelection = False
vsFlexGrid.SelectionMode = flexSelectionByRow
' vsFlexGrid.AutoSizeMode = flexAutoSizeColWidth
' vsFlexGrid.AutoResize = True
' 表題列を中央寄せ
vsFlexGrid.Cell(flexcpAlignment, 0, 0, 0, vsFlexGrid.Cols - 1) _
= flexAlignCenterCenter

Call vsTab_Click

Exit Sub
ErrorHandler:
Call ShowErrorMessage("frmShowAreaInfo.Form_Load")
End Sub

Private Sub vsTab_Click()
On Error GoTo ErrorHandler
。。。。。。。。。。
Exit Sub
ErrorHandler:
Call ShowErrorMessage("frmShowAreaInfo.vsTab_Click")
End Sub
clear_zero 2007-06-28
  • 打赏
  • 举报
回复

先在窗体上添加一个Lable(0),记住是控件数组
然后用
load Lable(i)
label(i).visible=true
来动态添加控件
guyehanxinlei 2007-06-28
  • 打赏
  • 举报
回复
up
aspceo 2007-06-28
  • 打赏
  • 举报
回复
先在窗体上添加一个Lable(0),记住是控件数组
然后用
load Lable(i)
label(i).visible=true
来动态添加控件
vb.net操作DataGridView控件的用法的集合,包括: 1. DataGridView当前的单元格属性取得、变更 2. DataGridView编辑属性 3. DataGridView最下面一列新追加行非表示 4. DataGridView判断当前选中行是否为新追加的行 5. DataGridView删除行可否设定 6. DataGridView行列不表示和删除 DataGridView控件用法合集(二) 7. DataGridView行列宽度高度设置为不能编辑 8. DataGridView行高列幅自动调整 9. DataGridView指定行列冻结 10. DataGridView列顺序变更可否设定 11. DataGridView行复数选择 12. DataGridView选择的行、列、单元格取得 DataGridView控件用法合集(三) 13. DataGridView指定单元格是否表示 14. DataGridView表头部单元格取得 15. DataGridView表头部单元格文字列设定 16. DataGridView选择的部分拷贝至剪贴板 17.DataGridView粘贴 18. DataGridView单元格上ToolTip表示设定(鼠标移动到相应单元格上时,弹出说明信息) DataGridView控件用法合集(四) 19. DataGridView中的ContextMenuStrip属性 20. DataGridView指定滚动框位置 21. DataGridView手动追加列 22. DataGridView全体分界线样式设置 23. DataGridView根据单元格属性更改显示内容 24. DataGridView新追加行的行高样式设置る 25. DataGridView新追加行单元格默认值设置 DataGridView中输入错误数据的处理(五) 26. DataGridView单元格数据错误标签表示 27. DataGridView单元格内输入值正确性判断 28. DataGridView单元格输入错误值事件的捕获 DataGridView控件用法合集(六) 29. DataGridView行排序(点击列表头自动排序的设置) 30. DataGridView自动行排序(新追加值也会自动排序) 31. DataGridView自动行排序禁止情况下的排序 32. DataGridView指定列指定排序 DataGridView控件用法合集(七) 33. DataGridView单元格样式设置 34. DataGridView文字表示位置的设定 35. DataGridView单元格内文字列换行 36. DataGridView单元格DBNull值表示的设定 37. DataGridView单元格样式格式化 38. DataGridView指定单元格颜色设定 39. DataGridView单元格文字字体设置 40. DataGridView根据单元格值设定单元格样式 DataGridView控件用法合集(八) 41. DataGridView设置单元格背景颜色 42. DataGridView行样式描画 43. DataGridView显示行号 44. DataGridView焦点所在单元格焦点框不显示的设定 DataGridView控件用法合集(九) 45. DataGridView中显示选择框CheckBox 46. DataGridView中显示下拉框ComboBox 47. DataGridView单击打开下拉框 48. DataGridView中显示按钮 49. DataGridView中显示链接 50. DataGridView中显示图像 DataGridView控件用法合集(十) 51. DataGridView编辑中单元格控件取得 52. DataGridView输入自动完成 53. DataGridView单元格编辑时键盘KEY事件取得 54. DataGridView下拉框(ComboBox)单元格编辑时事件取得 55. DataGridView下拉框(ComboBox)单元格允许文字输入设定 DataGridView控件用法合集(十一) 56. DataGridView根据值不同在另一列中显示相应图片 57. DataGridView中显示进度条(ProgressBar) 58. DataGridView中添加MaskedTextBox DataGridView控件用法合集(十二) 59. DataGridView中Enter键按下焦点移至旁边的单元格 60. DataGridView行集合化(Group)

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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