我现在在用vb做一个控件,主要实现下面的功能:
从数据库中动态读取表中的内容,这个表有如下三个字段:id(自增),wordname,worddes
然后动态遍历该数据集,根据数据集的值生成一组控件如下所示:button1 button2 button3 button4 button5button6 button7 button8 button9 button10这组控件的位置按每行五个显示在一个容器,比如frame中.
每个控件的标题就是数据集中每一条记录的wordname.我现在的主要问题怎么根据数据集动态的生成这一组控件,第二生成这一组控件之后怎么排列这一组控件.如果有好的vb控件编程的书顺便也介绍一下谢谢各位,最好有源代码,感激不尽解决问题的再送一百分,以表感激!!!

解决方案 »

  1.   

    先付上我的数据库读取的代码:
    Dim dbwordbuild As Database
        Dim recowordbuild As Recordset
        Dim strsql As String
        
        strsql = "SELECT wordname,worddesc,wordsound from word"
        
        Set dbwordbuild = DBEngine.Workspaces(0).OpenDatabase(dbname_path)
        
        Set recowordbuild = dbwordbuild.OpenRecordset(strsql, dbOpenSnapshot)
        
        If recowordbuild.RecordCount > 0 Then
            recowordbuild.MoveFirst
            Do Until recowordbuild.EOF
                '在窗口的frame容器中,根据wordname建一些标签控件名字为wordname的内容,或者id为wordname对应的id(数组控件)             
                recowordbuild.MoveNext
                Loop
        End If
        recowordbuild.Close
        dbwordbuild.Close
      

  2.   

    没看懂你的问题到底是什么,是动态添加控件吗?如果是的话可以考虑用controls.add添加(如果你对controls.add不熟悉的话,可以用google搜索一下,回有你满意的答案的)
      

  3.   

    http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=68250
      

  4.   

    用的什么数据库SqlServer?Access?
      

  5.   

    谢谢老大,我的确实要增加控件的事件,click事件