Private Sub UserList_DblClick(Index As Integer)
Dim svrName As String, userID As String
user = List(1).SelectedItem.Text ''''第一個Listview index
Name = IIf(Index = 0, "", "wc11.msg.dcn.yahoo.com")
callprocess svrName, userID
user = List(2).SelectedItem.Text ''''第二個Listview index
Name = IIf(Index = 0, "", "wc.yahoo.co.jp")
callprocess svrName, userID
End If
End Sub
如果我想DblClick list(1)時,做一樣野, 而DblClick list(2)做一樣野,我應該點打?
但係如果照以上做法,佢地係同時執行,我想DblClick list (1) 同DblClick list(2)係
獨立分開既話,應該點做呢? THX!
Dim svrName As String, userID As String
user = List(1).SelectedItem.Text ''''第一個Listview index
Name = IIf(Index = 0, "", "wc11.msg.dcn.yahoo.com")
callprocess svrName, userID
user = List(2).SelectedItem.Text ''''第二個Listview index
Name = IIf(Index = 0, "", "wc.yahoo.co.jp")
callprocess svrName, userID
End If
End Sub
如果我想DblClick list(1)時,做一樣野, 而DblClick list(2)做一樣野,我應該點打?
但係如果照以上做法,佢地係同時執行,我想DblClick list (1) 同DblClick list(2)係
獨立分開既話,應該點做呢? THX!
文章標籤
全站熱搜

select case index case 1 List(1).add "List(1) case 2
用Select case 不知是否就是你要的 select case index case 1 List(1).add "List(1)" case 2 List(1).add "List(2)" end select
是呀~成功了~ 果然是用Select Case Index 本人在此深深多謝你~因這問題已困擾了我一整晚~.~ 再次說聲多謝~