listview点击listitem触发itemclick事件后，这个item为什么一直跟着光标了？

fuxi922721 2009-09-28 11:04:11
问题如下：窗体有一个listview控件，一个imagelist控件，form引导后已经添加了item到listview中，触发itemclick事件，正常，问题就是单击完一个item完成itemclick事件后，为什么那个item会跟随光标移动，而不是恢复到原来的没有选择item的状态？
我有没有表达清楚啊？需要的话，我给代码。
...全文
390 19 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
19 条回复
切换为时间正序
请发表友善的回复…
发表回复
帝企鹅已被占用 2009-09-28
  • 打赏
  • 举报
 回复
listview1.view = 2
帝企鹅已被占用 2009-09-28
  • 打赏
  • 举报
 回复
我没上过vb的专业的，有些东西我知道怎么做，但理论上讲不清楚，vb就是要多实践
fuxi922721 2009-09-28
  • 打赏
  • 举报
 回复
分不多 谢谢 view=2跟Set itmX = ListView1.ListItems.Add（，，key,m)为什么看不到图标
但（，，key,,m）能看到图标？？
fuxi922721 2009-09-28
  • 打赏
  • 举报
 回复
16楼的成功啦 谢谢 请问怎么把分给你 非常谢谢
帝企鹅已被占用 2009-09-28
  • 打赏
  • 举报
 回复
俩个一起，
view=2 --》item跟随光标
smallicon = imagelist
Set itmX = ListView1.ListItems.Add 用最后面的。
fuxi922721 2009-09-28
  • 打赏
  • 举报
 回复
把form.show 1 改成form.show 0,me也能解决问题 可点击后form需要再点击一下才能用 不点击是灰色的
fuxi922721 2009-09-28
  • 打赏
  • 举报
 回复
13楼的我试了 item跟随光标 我的itemclick里的代码是form.show 1
帝企鹅已被占用 2009-09-28
  • 打赏
  • 举报
 回复
Set itmX = ListView1.ListItems.Add(, , Key, ， m)
fuxi922721 2009-09-28
  • 打赏
  • 举报
 回复
listView1.view=2这个是能消除光标跟随的问题 可看不到图片啊
帝企鹅已被占用 2009-09-28
  • 打赏
  • 举报
 回复
Set itmX = ListView1.ListItems.Add(, , Key, m)
这个m是在icon，里，在前面加个逗号，
帝企鹅已被占用 2009-09-28
  • 打赏
  • 举报
 回复
ListView1。view = 2，你没改。
fuxi922721 2009-09-28
  • 打赏
  • 举报
 回复
Private Sub lblMenu_Click(Index As Integer)
strMenu = lblMenu(Index).Caption
Dim m As Integer
For i = 1 To Index
PicMenu(i).Top = PicMenu(i - 1).Top + PicMenu.item(i - 1).Height
Next i
ListView1.Top = PicMenu(i - 1).Top + PicMenu.item(i - 1).Height
If Index < 7 Then PicMenu(Index + 1).Top = ListView1.Top + ListView1.Height
For i = Index + 2 To PicMenu.Count - 1
PicMenu(i).Top = PicMenu.item(i - 1).Top + PicMenu.item(i - 1).Height
Next i
Select Case Index
Case 0
ListView1.ListItems.Clear
ListView1.Enabled = True
For i = 0 To m1.Count - 1
Key = "【" & m1.item(i).Caption & "】"
m = i + 1
Set itmX = ListView1.ListItems.Add(, , Key, m)
Next i
Case 1
ListView1.ListItems.Clear
ListView1.Enabled = True
For i = 0 To m2.Count - 1
Key = "【" & m2.item(i).Caption & "】"
m = i + m1.Count + 1
Set itmX = ListView1.ListItems.Add(, , Key, m)
Next i
Case 2
ListView1.ListItems.Clear
ListView1.Enabled = True
For i = 0 To m3.Count - 1
Key = "【" & m3.item(i).Caption & "】"
m = m1.Count + m2.Count + i + 1
Set itmX = ListView1.ListItems.Add(, , Key, m)
Next i
Case 3
ListView1.ListItems.Clear
ListView1.Enabled = True
For i = 0 To m4.Count - 1
Key = "【" & m4.item(i).Caption & "】"
m = m1.Count + m2.Count + m3.Count + i + 1
Set itmX = ListView1.ListItems.Add(, , Key, m)
Next i
Case 4
ListView1.ListItems.Clear
ListView1.Enabled = True
For i = 0 To m5.Count - 1
Key = "【" & m5.item(i).Caption & "】"
m = m1.Count + m2.Count + m3.Count + m4.Count + i + 1
Set itmX = ListView1.ListItems.Add(, , Key, m)
Next i
Case 5
ListView1.ListItems.Clear
ListView1.Enabled = True
For i = 0 To m6.Count - 1
Key = "【" & m6.item(i).Caption & "】"
m = m1.Count + m2.Count + m3.Count + m4.Count + m5.Count + i + 1
Set itmX = ListView1.ListItems.Add(, , Key, m)
Next i
Case 6
ListView1.ListItems.Clear
ListView1.Enabled = True
For i = 0 To m7.Count - 1
Key = "【" & m7.item(i).Caption & "】"
m = m1.Count + m2.Count + m3.Count + m4.Count + m5.Count + m6.Count + i + 1
Set itmX = ListView1.ListItems.Add(, , Key, m)
Next i
Case 7
ListView1.ListItems.Clear
ListView1.Enabled = True
For i = 0 To m8.Count - 1
Key = "【" & m8.item(i).Caption & "】"
m = m1.Count + m2.Count + m3.Count + m4.Count + m5.Count + m6.Count + m7.Count + i + 1
Set itmX = ListView1.ListItems.Add(, , Key, m)
Itemgross = m
Next i
End Select
End Sub
帝企鹅已被占用 2009-09-28
  • 打赏
  • 举报
 回复
ListView1.ListItems.Add 这一句呢？
fuxi922721 2009-09-28
  • 打赏
  • 举报
 回复
Begin MSComctlLib.ListView ListView1
Height = 3945
Left = 120
TabIndex = 6
Top = 3120
Width = 2160
_ExtentX = 3810
_ExtentY = 6959
LabelWrap = -1 'True
HideSelection = -1 'True
HoverSelection = -1 'True
_Version = 393217
Icons = "ImageList1"
SmallIcons = "ImageList1"
ColHdrIcons = "ImageList1"
ForeColor = -2147483640
BackColor = 16774110
Appearance = 1
NumItems = 1
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Object.Width = 2540
EndProperty
End
End

Begin MSComctlLib.ImageList ImageList1
Left = 2880
Top = 2520
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 23
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":C44E
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":C768
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":D7BA
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":E80C
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":F85E
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":108B0
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":11902
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":12954
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":139A6
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":149F8
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":15A4A
Key = ""
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":16A9C
Key = ""
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":17AEE
Key = ""
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":18B40
Key = ""
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":19B92
Key = ""
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":1ABE4
Key = ""
EndProperty
BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":1BC36
Key = ""
EndProperty
BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":1CC88
Key = ""
EndProperty
BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":1DCDA
Key = ""
EndProperty
BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":1ED2C
Key = ""
EndProperty
BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":1FD7E
Key = ""
EndProperty
BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":20DD0
Key = ""
EndProperty
BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":21E22
Key = ""
EndProperty
EndProperty
End
帝企鹅已被占用 2009-09-28
  • 打赏
  • 举报
 回复
请把 Begin MSComctlLib.ListView ListView1 和
Begin MSComctlLib.ImageList ImageList1 下面的code贴下，
还有
ListView1.ListItems.Add
fuxi922721 2009-09-28
  • 打赏
  • 举报
 回复
smallicon还是看不到图像 ，并且存在跟光标移动的问题

帝企鹅已被占用 2009-09-28
  • 打赏
  • 举报
 回复
listview.imagelist 里的 small 设成 imagelist1
ListView1.ListItems.Add 时，用 smallicon
fuxi922721 2009-09-28
  • 打赏
  • 举报
 回复
CSDN我没什么分 请大家帮帮我
fuxi922721 2009-09-28
  • 打赏
  • 举报
 回复
但这样就看不到imagelist里的图片了
listview综合使用示例_结合数据库操作和listitem单击长按等事件
android listview综合使用示例_结合数据库操作和listitem单击长按等事件处理 欢迎访问我的博客对代码进行交流: http://blog.csdn.net/lk_blog
ListView中添加CheckBox
遇到以下问题的都可以看看： 1、ListView item中加入checkbox后onListItemClick 事件无法触发。 原因：checkbox的优先级高于ListItem于是屏蔽了ListItem的单击事件。 解决方案：设置checkbox的android:focusable="false" 2、选择其中的checkbox，当滚动ListView的时候，会出现一些Checkbox选择错位的现象， 原因：为记住Checkbox的选择状态 解决方案：当选择Checkbox的时候，记下其状态，然后在getView方法中进行设置
ListView的item水平滑动(类QQ的左滑显示删除按钮)
QQ的一个聊天界面的listview每一行向左滑动的时候，会出现删除的按钮，特别炫酷，这个效果可以有，今天跟大家分享下。
ListView滑动删除 ，仿腾讯QQ 源码程序
ListView滑动删除 ，仿腾讯QQ的源码
RecyclerView 瀑布流、ListView、GridView实例源码
代码为博客实例代码，http://blog.csdn.net/lmj623565791/article/details/45059587 有问题请博客留言
控件

1,453

社区成员

41,355

社区内容

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

加载中

查看更多榜单
社区公告
暂无公告

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

+ 用AI写文章