VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 5708|回复: 1

我是一个初学者,请帮忙给讲一下!谢啦!

[复制链接]
 楼主| 发表于 2010-8-24 18:38:13 | 显示全部楼层 |阅读模式
Private Sub form_load()
List1.AddItem "Itern1"
List1.AddItem "Itern2"
List1.AddItem "Itern3"
End Sub
Private Sub command1_click()
   List1.List(List1.ListCount) = "AAAA"
End Sub
发表于 2010-10-5 16:44:13 | 显示全部楼层
Private Sub form_load()
List1.AddItem "Itern1"
    '在ListBox控件(list1)中添加一行,字符为"Item1"
List1.AddItem "Itern2"
    '在ListBox控件(list1)中添加一行,字符为"Item2"
List1.AddItem "Itern3"
    '在ListBox控件(list1)中添加一行,字符为"Item3"
End Sub
Private Sub command1_click()
   List1.List(List1.ListCount) = "AAAA"
    '本人推测有点错误,应该是List1.List(List1.ListIndex) = "AAAA"
    '如果是ListCount,则为把最后一行(第3行)的文字改为"AAAA"
    '如果是ListIndex,则为把选中的一行的文字改为"AAAA"
End Sub
回复 支持 反对

使用道具 举报

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-9-27 06:10

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表