VB6.0 类listItem和控件listView 的使用问题

lhf552004 2012-01-16 04:10:53
Set listItem = ListView1.ListItems.Add(, , "0X" + Hex(i)) '添加地址偏移
listItem.SubItems(i) = Hex(buff(i)) '添加数据

第二句出现问题,提示“Run-Time error '380' Invalid property value”

这两句是我从第三方提供的例子中复制过来的,其中buff是从下位机读出来的数据数组,listItem是个listItem对象
我不明白这两句什么意思,我猜想是如同VB.NET中的ListView一样的用法,就是创建n个元素,每个元素下又有子元素,于是我重新写了一个form程序,如下所示
以下是我的程序

Dim listItem As listItem
Dim buff(0 To 4) As Integer
Dim DATASIZE As Integer
Dim temp() As String
Dim temp16() As String
Dim bytelen As Integer


Private Sub Command1_Click()
Dim i As Integer
buff(0) = 12
buff(1) = 13
buff(2) = 14
buff(3) = 15
buff(4) = 16

For i = 0 To 4


Set listItem = ListView1.ListItems.Add(, , "0X" + Hex(i))
listItem.SubItems(i) = Hex(buff(i))
Next i
End Sub

每次运行都会弹出对话框,请大侠指教
...全文
515 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
lhf552004 2012-01-19
  • 打赏
  • 举报
回复
[Quote=引用 1 楼 lilbchn 的回复:]
哥哥, Hex()有定义吗?
[/Quote]
VB6.0有的,将16进制数字转换成字符
cqq_chen 2012-01-19
  • 打赏
  • 举报
回复
为什么不看看msdn呢?应该很容易找到问题的
lilbchn 2012-01-18
  • 打赏
  • 举报
回复
哥哥, Hex()有定义吗?

1,453

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧