JBTALKS.CC

标题: 谁能帮我解决VB的问题? [打印本页]

作者: song_0814 时间: 2009-4-1 10:49 AM
标题: 谁能帮我解决VB的问题?

1）、窗体的载入事件（Form_Load）跟上一节一样：

Private Sub Form_Load()
　LstLeft.AddItem "刘德华"
　LstLeft.AddItem "张学友"
　LstLeft.AddItem "郭富城"
　LstLeft.AddItem "黎　明"
　LstLeft.AddItem "谭咏麟"
　LstLeft.AddItem "梅艳芳"
　LstLeft.AddItem "张曼玉"
End Sub

（2）、向右按钮的点击事件（CmdRight）：

Private Sub CmdRight_Click()
　Dim X As Integer
　While LstLeft.SelCount > 0
　　For X = 0 to LstLeft.LstCount - 1
　　　If LstLeft.Selected(X) = True Then
　　　　LstRight.AddItem LstLeft.List(X)
　　　　LstLeft.RemoveItem X
　　　　Exit For
　　　End If
　　Next X
　Wend
End Sub

（3）、全部向右按钮的点击事件（CmdAllRight）

Private Sub CmdAllRight_Click()
　Dim X As Integer
　For X = 0 to LstLeft.ListCount - 1
　　LstRight.AddItem LstLeft.List(X)
　Next X
　LstLeft.Clear
End Sub

（4）、以此类推，输入向左按钮（CmdLeft）与全部向左按钮（CmdAllLeft）的点击事件，最后按 F5 键运行程序。

For X = 0 to LstLeft.LstCount - 1 是什么东西谁能帮我解答?

作者: Super-Tomato 时间: 2009-4-1 03:50 PM

原帖由 song_0814 于 2009-4-1 10:49 AM 发表

For X = 0 to LstLeft.LstCount - 1 是什么东西谁能帮我解答?

就是 X 從 0 循環到 LstLeft.LstCount 的長度

作者: song_0814 时间: 2009-4-6 12:11 PM
标题: 回复 #2 Super-Tomato 的帖子
谢谢您我懂了!!

作者: goodhermit95 时间: 2009-4-6 08:28 PM
可能会有疑问为什么会 -1吧？

作者: goodday 时间: 2009-4-6 11:34 PM
indexing 是从 0 开始的

作者: goodhermit95 时间: 2009-4-8 10:02 AM
标题: 回复 #5 goodday 的帖子
为什么要-1
为什么从0

学会C#就懂了
to be continue

欢迎光临 JBTALKS.CC (https://www.jbtalks.cc/)