討論區快速選單
知識庫快速選單
軟體開發過程中有哪些資安漏洞? 網路投保旅行平安險 傑米的攝影旅遊筆記
[ 回上頁 ] [ 討論區發言規則 ]
請教Listbox的問題,謝謝
更改我的閱讀文章字型大小
作者 : willy_chen(維力)
[ 貼文 4 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 1 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2012/6/28 上午 09:09:23
各位大大好
請問一下,小弟在Form裡有一個Listbox,2個Command,
Command1用來增加List裡的項目
總共只能增加到5筆,12345
小弟是想要滑鼠點在List裡的5個項目時
例如點1時 讓a做處理 例(a=a+1)
     點2時 讓b做處理 例(b=b+1)
有點像switch的功能,只是隨時可以點12345處理
小弟己經找網路試了2個禮拜還是試不出來
麻煩大大們指導
謝謝
作者 : qazujm(joe) Visual Basic卓越專家C#優秀好手貼文超過1000則
[ 貼文 1521 | 人氣 2524 | 評價 9070 | 評價/貼文 5.96 | 送出評價 90 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人willy_chen註記此篇回應為最佳解答 2012/6/28 下午 02:29:45
Option Explicit

Dim intCount As Integer

Private Sub Command1_Click()

    If Me.List1.ListCount < 5 Then
     intCount = intCount + 1
     Me.List1.AddItem CStr(intCount)
    End If

End Sub

Private Sub List1_Click()


    Me.List1.List(Me.List1.ListIndex) = CInt(Me.List1.List(Me.List1.ListIndex)) + 1


End Sub
作者 : willy_chen(維力)
[ 貼文 4 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 1 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2012/6/29 下午 12:40:43
感謝joe大大的指導
我要的功能快要改好了
謝謝
 板主 : 小樓
 > Visual Basic 6.0/VBA - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - Visual Basic 6.0/VBA - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
Visual Basic 6.0/VBA
1 阿戊 10670 
2 小樓 8650 
3 Jones 5270 
4 水瓶天賞 2340 
5 joe 2230 
6 史努比 1950 
7 阿呆紅 1440 
8 tt's 1250 
9 青衫 1150 
10 羅啟章 1020 
Visual Basic 6.0/VBA
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2019 程式設計俱樂部 http://www.programmer-club.com.tw/
0.140625