在我们编程过程中，有时候会遇到控件数量不固定的，这时就需要动态加载控件，因为数量不固定，就有可能一些控件超过了窗体的显示范围，这时我们可以加滚动条来实现上下滚动显示。

      下面我们以显示Oracle一个表字段为例来说明怎样实现这样的功能，实现在窗体上必须有一个PictureBox控件（代码里的picField）、一个Frame控件（代码里的fraField）、一个VScrollBar控件（代码里的VScroll1），并且Frame和VScrollBar是在PictureBox里面的，也就是说Frame和VScrollBar是的容器是PictureBox，另外再加两个Label（代码里的lblNo和lblField），要是控件数组形式，index都为0，index=1以后就使用动态加载的方式显示出来，注意：我这里是没显示index=0的控件的。

Private Sub LoadControl(strTable As String) Dim strSql As String Dim rsTmp As ADODB.Recordset Dim i As Integer Set rsTmp = New ADODB.Recordset strSql = " select column_name,data_type from user_tab_columns where table_name='" & strTable & "' order by column_id" rsTmp.Open strSql, G_adoConn, adOpenKeyset, adLockReadOnly '这里的G_adoConn是数据库连接的变量 i = 1 Do Until rsTmp.EOF Load lblNo(i) Set lblNo(i).Container = fraField With lblNo(i) .Left = 240 .Top = 240 + 400 * i .Width = 500 .Height = 270 .Caption = i .Visible = True End With Load lblField(i) Set lblField(i).Container = fraField With lblField(i) .Left = 1005 .Top = 240 + 400 * i .Width = 1800 .Height = 270 .Caption = rsTmp("column_name") .Visible = True End With Load cmbField(i) Set cmbField(i).Container = fraField With cmbField(i) .Left = 2805 .Top = 240 + 400 * i .Width = 1800 .Visible = True End With Load txtField(i) Set txtField(i).Container = fraField With txtField(i) .Left = 4605 .Top = 240 + 400 * i .Width = 1500 .Height = 270 .Visible = True End With i = i + 1 rsTmp.MoveNext Loop fraField.Height = lblNo(i - 1).Top + lblNo(i - 1).Height + 100 fraField.Top = 0 If fraField.Height > picField.ScaleHeight Then With VScroll1 .Top = 0 .Width = 300 .Left = picField.ScaleWidth - .Width .Height = picField.ScaleHeight .Visible = True .Min = 0 .Max = (fraField.Height - picField.ScaleHeight) / 10 .SmallChange = 50 .LargeChange = 100 .Value = 0 End With fraField.Width = picField.ScaleWidth - VScroll1.Width Else VScroll1.Visible = False fraField.Width = picField.ScaleWidth End If rsTmp.Close Exit Sub ErrMsg: MsgBox Err.Description End Sub Private Sub Form_Load() fraField.Left = 0 fraField.Top = 0 fraField.Width = picField.ScaleWidth fraField.Height = picField.ScaleHeight End Sub Private Sub VScroll1_Change() fraField.Top = -VScroll1.Value * 10 End Sub

发表于 @ 2009年06月18日　08:42:00 | 评论( loading... ) | 编辑| 举报| 收藏

旧一篇:利用PictureBox为ListView控件的行加背景色