请高手看看这段代码的问题在何处 谢谢

wjp_auhtm 2007-02-05 06:14:43
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged

Dim a
a = ListView1.SelectedIndices.Count
TextBox1.Text = a
TextBox2.Text = ListView1.SelectedItems(0).Index()
Picedit.Image = Image.FromFile(ListBox1.Items.Item(ListView1.SelectedItems(0).Index()))

End Sub

希望通过代码实现点击listview中预览出的图片得到被选中图片的索引号
但是 写了这段代码后只能选择一次 当再次选择时 则会出错 肯定是还缺些什么 但是我实在是不知道还差什么 希望高手能给点提示 谢谢
...全文
160 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
wjp_auhtm 2007-02-05
  • 打赏
  • 举报
回复
谢谢pslh(pslh) 非常感谢
也要谢谢cangwu_lee(橙子) 和Red_angelX(当你手淫你会想起谁) 谢谢大家
这就结贴了
pslh 2007-02-05
  • 打赏
  • 举报
回复
把:
Picedit.Image = Image.FromFile(ListBox1.Items.Item(ListView1.SelectedItems(0).Index
这句放在
if ...

end if
语句里。
pslh 2007-02-05
  • 打赏
  • 举报
回复

Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
Dim a As Integer = ListView1.SelectedIndices.Count
If a > 0 Then
TextBox1.Text = a
TextBox2.Text = ListView1.SelectedItems(0).Index()
End If
Picedit.Image = Image.FromFile(ListBox1.Items.Item(ListView1.SelectedItems(0).Index()))
End Sub
pslh 2007-02-05
  • 打赏
  • 举报
回复
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
If ListView1.SelectedItems.Count > 0 Then
Dim a As Integer = ListView1.SelectedIndices.Count
TextBox1.Text = a
TextBox2.Text = ListView1.SelectedItems(0).Index()
End If
Picedit.Image = Image.FromFile(ListBox1.Items.Item(ListView1.SelectedItems(0).Index()))
End Sub
wjp_auhtm 2007-02-05
  • 打赏
  • 举报
回复
Red_angelX(当你手淫你会想起谁) 谢谢你的解答
我试过了 还是不行啊
wjp_auhtm 2007-02-05
  • 打赏
  • 举报
回复
我在listview1控件中的选中属性设置的是“单击触发” 但是 这段代码在运行后 第一次单击 运行正常 再单击触发另一个元件 就出问题了 是不是我用的事件和方法有问题呢
Red_angelX 2007-02-05
  • 打赏
  • 举报
回复
if a <= 0 then
return
end if
cangwu_lee 2007-02-05
  • 打赏
  • 举报
回复
SelectedIndexChanged
不一定是有 Item 被选中了,被“不选中”也会触发


16,550

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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