作者believe255 (幽纪川)
看板Visual_Basic
标题[VB6 ] 关於 listbox 问题
时间Wed Jun 17 12:11:27 2009
请输入专案类型(网站专案或者应用程式专案)：Visual Basic 6
目前有以下物件
TextBox1、ListBox1、Button1(replace)、Button2(next)
原本listbox 的清单 是a、b、c
可以直接在ListBox1上点选项目，也可以用Button2(Next)选下一个项目。
若直接用滑鼠点选ListBox1上的项目，执行Button(Next)时，可能不会跳到下一个项目。
请问程式如何修改？
目的功能：在TextBox1上输入一段文字，按下 "replace" Button，ListBox1被选到的文字改为
TextBox1上的文字。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
ListBox1.SelectedIndex = Sel
Sel += 1
If sel = ListBox1.Items.Count Then sel = 0
End Sub
附上原程式网址
http://0rz.tw/9hofh (已修正空间，造成不便，深感抱歉)
-
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.127.115.61
1F：推 ClubT:网址有问题 06/18 08:38
※ 编辑: believe255 来自: 140.127.115.61 (06/18 09:36)
2F：→ blestadsl:逻辑问题！ 06/18 11:53
3F：→ blestadsl:sel = ListBox1.SelectedIndex 06/18 11:54
4F：→ blestadsl:sel += 1 06/18 11:54
5F：→ blestadsl:If sel >= ListBox1.Items.Count Then sel = 0 06/18 11:54
6F：→ blestadsl:ListBox1.SelectedIndex = sel 06/18 11:55