ListView1.View = lvwReport
ListView1.ListItems(i).SubItems (j)
ListView1.ListItems(i).SubItems (j)
解决方案 »
- 求个VB6.0注册界面小程序代码
- vb中使用sleep导致进程 无法结束
- 为何我运行VB程序会出现 Method or data member not found...
- 有没有全屏截图后立刻存为jpg的代码
- 谁有CODE128条码字体?
- 一个简单的小问题:如何使用seek定位文件的读写位置
- 那位高手帮我解答一下?
- 如何将一包含十六进制数据的文件打开并把数据取出给数组,请指教
- 如何在程序运行是将组件拖动?50分相送!
- VB中使用ActiveSheet.Paste语句 在OFFICE 2003使用正常,而在OFFICE XP环境下就出错,那位高手指点指点
- Vb小问题,急!!!!急急急急急急急急急!!!
- 怎么在类里面定义一个公开的自定义类型(这个类型是在模块定义的公开类型)见内
例如:
数据获得:Select A,B,C from Table1
ListBox添加:
With List1
if not(rs.eof or rs.bof) then
do while not rs.eof
.AddItem=Rs("A")&"_"&Rs("B")
'如果C为整型,且不重复的话
.ItemData(.NewIndex)=Rs("C")
Rs.MoveNext
Loop
End If
End With
取出:
'保证已选择
if List1.ListIndex<>-1 then
'取得列表的项目
msgbox List1.List
'取得内部属性
MsgBox List1.ItemData(List1.ListIndex)
end if 默认选择:List1.ListIndex=2
当设定Listbox的Columns属性为n(n>1)时,
是在控件高度一定的情况不显示垂直滚动条而将条目横向展开从而以多列显示。