Option Explicit
Dim con As New ADODB.Connection
Dim res As New ADODB.Recordset
Dim moveX As Long '动态添加控件时控件移到X点
Dim moveY As Long '动态添加控件时控件移到Y点
Const mWidth = 1500
Const ConCount = 4 '表中查询条件的数量
Const WM_DELETE = &H400 '自定义消息
Const GWL_WNDPROC = -4
Dim LVW_COUNT As Integer 'listview控件中行数
Dim WithEvents cboxName As VB.ComboBox
Dim WithEvents cboxAge As VB.ComboBox
Dim WithEvents cboxTime As VB.ComboBox
Dim isLoadAge(2) As Boolean
Dim tBoxName As VB.TextBox
Dim tBoxAge(1) As Control
Dim tBoxTime() As VB.TextBox
Dim lbl(1) As VB.Label
Private Sub Age_Click() '选中年龄
Dim itemA As ListItem
Dim i, x As Integer
res.MoveFirst
Do While Not res.EOF
If (res.Fields("Condition")) = "年龄" Then
For x = 1 To ListViewSearch.ListItems.Count
If ListViewSearch.ListItems(x).Text = "年龄" Then
MsgBox "该配置项中已经存在!"
Exit Sub
End If
Next x
Set itemA = ListViewSearch.ListItems.Add(, , res.Fields("Condition"))
Set cboxAge = Controls.Add("VB.ComboBox", "cboxAge")
LVW_COUNT = ListViewSearch.ListItems.Count
moveX = ListViewSearch.Width + 60
vb动态加载控件
最新推荐文章于 2013-07-10 22:50:24 发布
这篇博客展示了如何在VB环境中动态加载ComboBox和TextBox控件,并根据用户选择在ListView中添加条件。通过响应ComboBox的点击事件,实现根据用户选择添加相应的查询条件输入框。同时,还涉及到了控件的定位、可见性和动态删除。
摘要由CSDN通过智能技术生成