怎么通过编程添加控件？

汪昌良　发表于：2009-08-14 09:47:47 　

复制

我在工作中遇到一个问题，请大家帮我解决一下？

根据现有表中的记录个数（记录数不确定），通过编程自动在一窗体上添加表中记录个数的文本框或者标签，控件的名称自动变为各记录的编号，我的目的是，打开窗体后，点哪一个控件就打开哪一条记录。以便修改这一条记录的某些字段值。

如果在窗体上先添加好控件，再编程我能做到，关键是我不知道表中的记录个数，就不知道要添加多少控件。

请大家帮我一个。谢谢！！！！

教我怎么在窗体上添加控件也行。比如在设计窗体中没有文本框，打开窗体后窗体自动添加一文本框，怎么做？

Top

竹笛发表于：2009-08-14 11:36:21

添加足够多的控件，然后用代码来控制它们的显示和摆放位置。

Top

汪昌良发表于：2009-08-14 15:05:31

谢谢，添加足够多的控件，然后用代码来控制它们的显示和摆放位置。
再编程我能做到。我想自动完成添加，一个都不多，一个也不少。

我的意思是用代码添加控件怎么做？

Top

汪昌良发表于：2009-08-14 15:10:54

如果我添加了18个控件然后用代码来控制它们的显示和摆放位置。
再编程我能做到。我是这么做的，。

Dim Rs As New ADODB.Recordset
    Dim strSQL As String
    Dim i As Integer
    Dim intRight As Integer

    For i = 1 To conNumButtons
        Me("cmd" & i).Visible = False
    Next

        strSQL = "SELECT * FROM 机台情况 ORDER BY 品种,车号"
    Rs.Open strSQL, CurrentProject.Connection, adOpenKeyset
    If Not Rs.EOF Then
        Rs.MoveFirst
               For i = 1 To 18
            With Me("cmd" & i)
                .Visible = True
                .Caption = Nz(Rs![车号]) + "        " + Nz(Rs![品种]) + Nz(Rs![管子颜色])
                .ControlTipText = Nz(Rs![车号]) + "        " + Nz(Rs![品种]) + Nz(Rs![管子颜色])

                            End With
            Rs.MoveNext
        Next
    End If

Rs.Close
Set Rs = Nothing

如果我不知道机台情况表中有多少条记录，我想自动完成添加，一个都不多，一个也不少。

我的意思是用代码添加控件怎么做？

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

怎么通过编程添加控件？