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