请问listbox 的东东!高手看过来! 我看过一些东西不知道是不是listbox control..一个list 里面有栏 ,是怎么实现的,还是别的控件? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 谢谢cooly 不过好象我不能象listbox 一样的additem... 设置ListView1.View = 3Dim itmX As ListItemListView1.ListItems.ClearListView1.ColumnHeaders.ClearListView1.ColumnHeaders.Add , , "1"ListView1.ColumnHeaders.Add , , "2"ListView1.ColumnHeaders.Add , , "3"ListView1.ColumnHeaders.Add , , "4"Set itmX = ListView1.ListItems.Add()itmX.Text = "项目1"itmX.SubItems(1) = "说明2"itmX.SubItems(2) = "说明3"itmX.SubItems(3) = "说明4"Set itmX = ListView1.ListItems.Add()itmX.Text = "项目2"itmX.SubItems(1) = "说明2"itmX.SubItems(2) = "说明3"itmX.SubItems(3) = "说明4"Set itmX = ListView1.ListItems.Add()itmX.Text = "项目3"itmX.SubItems(1) = "说明2"itmX.SubItems(2) = "说明3"itmX.SubItems(3) = "说明4" ListView不同于List,没有AddItem方法。Private Sub Form_Load() ListView1.ColumnHeaders. _ Add , , "Author", ListView1.Width / 3 ListView1.ColumnHeaders. _ Add , , "Author ID", ListView1.Width / 3, _ lvwColumnCenter ListView1.ColumnHeaders. _ Add , , "Birthdate", ListView1.Width / 3 ' Set View property to Report. ListView1.View = lvwReport Dim itmX As ListItemFor i = 0 To 20 Set itmX = ListView1.ListItems. _ Add(, , "Author" & i) ' Author.NextEnd Sub To Cooly(☆回答问题不要分儿☆) :你的等级为什么是星星啊?我们的为什么是三角形???From [email protected] 大虾过来看看这个怎么算啊~~~ 各位大仙,关于Transfer控件传文件问题,来帮帮忙吧!先谢谢啦... 招聘VB软件工程师 跪求 InstallShield 6.3 下载地址 拖动窗体会激发什么事件啊? 导出Excel问题:同一字段内既有文本又有数字。 VB 串口InputMode属性问题 关于VB与SQL结合使用的问题! 100分紧急问题:请问如何在 VB 中实现“检查软件最新版本的功能”? 请问在VB中Form以上有没有容器了? 如何让程序只打开一个实例? vb+word的问题,各位高手请进~
ListView1.ListItems.Clear
ListView1.ColumnHeaders.ClearListView1.ColumnHeaders.Add , , "1"
ListView1.ColumnHeaders.Add , , "2"
ListView1.ColumnHeaders.Add , , "3"
ListView1.ColumnHeaders.Add , , "4"Set itmX = ListView1.ListItems.Add()
itmX.Text = "项目1"
itmX.SubItems(1) = "说明2"
itmX.SubItems(2) = "说明3"
itmX.SubItems(3) = "说明4"Set itmX = ListView1.ListItems.Add()
itmX.Text = "项目2"
itmX.SubItems(1) = "说明2"
itmX.SubItems(2) = "说明3"
itmX.SubItems(3) = "说明4"Set itmX = ListView1.ListItems.Add()
itmX.Text = "项目3"
itmX.SubItems(1) = "说明2"
itmX.SubItems(2) = "说明3"
itmX.SubItems(3) = "说明4"
ListView1.ColumnHeaders. _
Add , , "Author", ListView1.Width / 3
ListView1.ColumnHeaders. _
Add , , "Author ID", ListView1.Width / 3, _
lvwColumnCenter
ListView1.ColumnHeaders. _
Add , , "Birthdate", ListView1.Width / 3
' Set View property to Report.
ListView1.View = lvwReport
Dim itmX As ListItemFor i = 0 To 20
Set itmX = ListView1.ListItems. _
Add(, , "Author" & i) ' Author.Next
End Sub