作者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