烟台社保个人缴纳比例:vb高手帮下忙

来源：百度文库编辑：中科新闻网时间：2024/04/20 22:17:30

Private Sub lstletter_Click()

Dim letter As String * 1
Dim counter As Single
Dim name As String

counter = 0

Do While lstname.ListIndex >= 0
name = lstname.List(lstname.ListIndex(counter))
letter = Left(name, 1, 1)
If letter = lstletter.List(lstletter.ListIndex) Then
lstshow.AddItem lstname.List(lstname.ListIndex)
End If

counter = counter + 1
Loop

End Sub
这个是我昨天晚上编的不对不知道什么原因
我是要有3 list一个是名字一个是字母还有一个是选字母后跳出名字
可是我要的是选中的list的text 这样子应该怎么表示啊
我们的书上只讲了listindex,remove,clear,add..

aa=List1.text
这样aa的值就是list1当前所选中的值```

+QQ吧,我帮你(QQ:251733401)

vb高手们,帮下忙 vb高手帮下忙 VB高手！ VB高手！！！关于VB，VB高手进来~！有VB高手么？？？ vb高手请进！！！！！！！！！！！！！！1 请VB高手进来。请教VB高手请教各位VB高手