现有一ListL,需要在Textbox1中输入关键字,点击COMMAND1后需要如下效果:
若有该关键字,则将该关键字的第一项选中
若无该关键字,则弹出MSGBOX "查无此项"
希望各位大虾们帮帮忙
补充了问题 希望帮帮忙
追答若有该关键字,则将该关键字的第一项选中
你这个是让该关键字处于选中状态吧,如果是的话很好写。假设控件名为 list1
双击COMMAND1 在CLICK事件中输入
for i=0 to list1.listcount -1
if text1.text=list1.list(i) then
list1.Selected(i)=true
exit for
end if
next i
if i= list1.listcount then msgbox "查无此项"
===========
楼下 剑小风 的答案比较全面,特殊和一般情况都考虑到了,我写的是针对你的作业题的,剑小风应该是程序员或者程序爱好者,如果追求完美你可以采纳他的答案,如果就是做作业或者考VB二级,我的足够对付你老师了。