vb动态添加控件的事例

最新推荐文章于 2021-10-15 16:09:58 发布

iamsyu

最新推荐文章于 2021-10-15 16:09:58 发布

阅读量555

点赞数

分类专栏： vb 文章标签： vb database sql 通讯

本文链接：https://blog.csdn.net/iamsyu/article/details/4033424

版权

vb 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

Private Sub Form_Load()
   Call DataBase
    SQL = "Select 姓名,年龄 From 通讯"
    adoRs.Open SQL, adoCon, 1, 3
    adoRs.MoveFirst
End Sub
Private Sub Form_Activate()
ReDim lb(adoRs.RecordCount)
    ReDim tx(adoRs.RecordCount)
      For i = 0 To adoRs.RecordCount - 1
               Set lb(i) = Me.Controls.Add("vb.label", "mylbhd" & i)
                 lb(i).Top = 200 + i * 500
                 lb(i).Left = 100
                 lb(i).BackColor = RGB(100, 150, 200)
                lb(i).Visible = True
                Set tx(i) = Me.Controls.Add("vb.textbox", "mytx" & i)
                 mLeft = 100
                 mTop = 200
                 tx(i).Top = 200 + i * 500
                 tx(i).Left = 1400
                  tx(i).BackColor = RGB(100, 150, 200)
                     tx(i).Visible = True
           Next
        adoRs.MoveFirst
i = 0
Do Until adoRs.EOF
     tx(i).text = adoRs.Fields("年龄")
    lb(i).Caption = adoRs.Fields("姓名")
    Next
    i = i + 1
adoRs.MoveNext
Loop
    adoRs.Close: Set adoRs = Nothing
    adoCon.Close: Set adoCon = Nothing
End Sub