Facebook Sharer
选择您要替换的背景颜色:
【农历新年】背景图片:
个性化设定
 注册  找回密码
查看: 1401|回复: 5
打印 上一主题 下一主题

谁能帮我解决VB的问题?

[复制链接]

24

主题

6

好友

1033

积分

黄金长老

Rank: 8Rank: 8Rank: 8Rank: 8Rank: 8Rank: 8Rank: 8Rank: 8

跳转到指定楼层
1#
发表于 2009-4-1 10:49 AM |只看该作者 |倒序浏览

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 是什么东西 谁能帮我解答?




收藏收藏0

7

主题

1

好友

5108

积分

一流名嘴

Rank: 12Rank: 12Rank: 12

2#
发表于 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 的長度


回复

使用道具 举报

24

主题

6

好友

1033

积分

黄金长老

Rank: 8Rank: 8Rank: 8Rank: 8Rank: 8Rank: 8Rank: 8Rank: 8

3#
发表于 2009-4-6 12:11 PM |只看该作者

回复 #2 Super-Tomato 的帖子

谢谢您我懂了!!


回复

使用道具 举报

62

主题

5

好友

3715

积分

本站名嘴

Rank: 11Rank: 11

4#
发表于 2009-4-6 08:28 PM |只看该作者
可能会有疑问为什么会 -1吧?


回复

使用道具 举报

13

主题

0

好友

2113

积分

白金长老

Rank: 10

5#
发表于 2009-4-6 11:34 PM |只看该作者
indexing 是从 0 开始的



回复

使用道具 举报

62

主题

5

好友

3715

积分

本站名嘴

Rank: 11Rank: 11

6#
发表于 2009-4-8 10:02 AM |只看该作者

回复 #5 goodday 的帖子

为什么要-1
为什么从0
学会C#就懂了
to be continue


回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

JBTALKS.CC |联系我们 |隐私政策 |Share

GMT+8, 2024-10-25 08:18 PM , Processed in 0.131478 second(s), 26 queries .

Powered by Discuz! X2.5

© 2001-2012 Comsenz Inc.

Ultra High-performance Dedicated Server powered by iCore Technology Sdn. Bhd.
Domain Registration | Web Hosting | Email Hosting | Forum Hosting | ECShop Hosting | Dedicated Server | Colocation Services
本论坛言论纯属发表者个人意见,与本论坛立场无关
Copyright © 2003-2012 JBTALKS.CC All Rights Reserved
合作联盟网站:
JBTALKS 马来西亚中文论坛 | JBTALKS我的空间 | ICORE TECHNOLOGY SDN. BHD.
回顶部