文本框与列表框应用？

lishouyong 2005-10-01 02:41:23

窗体上有一个文本框、一个列表框，列表框与数据库绑定（Access)，窗体启动是自动加载列表框数据，当在文本框输入每一个字符时，列表框自动在数据库中搜索与文本框字符最相同的内容并放在列表框首位。

...全文

174 1 打赏收藏转发到动态举报

写回复

用AI写文章

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

northwolves 2005-10-01

打赏
举报

窗体上有一个文本框、一个列表框----------->可以用一个组合框代替:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Sub Combo1_Change()
Dim iStart As Integer
Dim sString As String
Static iLeftOff As Integer

iStart = 1
iStart = Combo1.SelStart

If iLeftOff <> 0 Then Combo1.SelStart = iLeftOff: iStart = iLeftOff

sString = CStr(Left(Combo1.Text, iStart))
Combo1.ListIndex = SendMessage(Combo1.hwnd, &H14C, -1, ByVal CStr(Left(Combo1.Text, iStart)))

If Combo1.ListIndex = -1 Then iLeftOff = Len(sString): Combo1.Text = sString
If Combo1.Text <> "" Then SendMessage Combo1.hwnd, &H14F, True, 0

Combo1.SelStart = iStart
Combo1.SelLength = 0
iLeftOff = 0

End Sub
Private Sub Form_Load()
Dim i As Long
For i = 1 To 500
Randomize
Combo1.AddItem Chr(Int(Rnd * 26) + 97) & Chr(Int(Rnd * 26) + 97) & Chr(Int(Rnd * 26) + 97) & Chr(Int(Rnd * 26) + 97) & Chr(Int(Rnd * 26) + 97)
Next
Combo1.Text = ""
End Sub

编写一个列表框应用程序，能够对列表项进行添加、修改和删除。

文本框、列表框的综合应用

在上一节课程中讲到了可视化布局，如何去自动生成一个静态页面，只有静态页面没有动态交互，远远不能满足实际开发中的项目需求。这节课将重点讲解vue动态交互制作，以及如何去一键生成vue文件。本节课内容有：如何创建data数据以及方法如何去双向绑定并添加点击方法以及遍历循环等如何去调用组件，这里以iview框架为例，其中包含常用组件有：按钮，文本框，对话框，表单与校验，单选框与复选框，表格与分页等等如何在编译好的页面下还能进行可视化操作，在不看代码的情况下快速定位功能位置并直接去修改如何去一键生成vue文件，让开发变的如此简单，快速，高效