VB里的listview复选框疑问

2008-12-23 09:34:21 803 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

LISTVIEW使用指南 (VB6) LISTVIEW控件并不是默认的工具箱的配置项目,你必须要手工添加---单击"工程"菜单项目,选择"部件",在部件对话框的"控件"栏目中选择"MICROSOFT WINDOWS COMMON CONTROLS 6.0",确认在它前面的复选框中有一个黑色的对号,单击"确认" 按钮,这时你的工具箱中便添加了几个控件,其中,有五个空心圆圈的便是LISTVIEW控件了, 当然怎么把它... 阅读详情

vb里listview我选择了带复选框,但是默认是可以同时选中多条记录的复选框.
请问如何才能只可以选择一个复选框么?
简单点说,就是我选择了某条记录的复选框,之前选中的复选框勾勾自动去掉?
新手请教,请大家帮忙

...全文

VB.net遍历搜索Treeview，找到符合字符串条件的节点 ListView,Treeview 阅读详情

janselin

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

SYSSZ 2008-12-25

打赏
举报

改成这样试一试

Private Sub LsV_ItemCheck(ByVal Item As MSComctlLib.ListItem) 



Dim j As Integer 

For j = 1 To LsV.ListItems.Count 

    LsV.ListItems(j).Checked = False 



Item.Checked = True 

Next 

TxtInvCode.Text = Item '母件名称 

TxtcInvName.Text = Item.SubItems(1) '母件名称 

TxtcInvStd.Text = Item.SubItems(6) '规格型号 

TxtUnitName.Text = Item.SubItems(7) '计量单位 

TxtBomId.Text = Item.SubItems(2) '版本号 

TxtBomDec.Text = Item.SubItems(4) '版本说明 

TxtBomDate.Text = Item.SubItems(5) '版本日期 

Txtkhcode.Text = Item.SubItems(3) '客户编码 

End Sub

janselin 2008-12-25

打赏
举报

当别的复选框被选中,前面选择复选框前面的勾勾去掉以后,自动清除显示在边上的MSHFlexGrid里面的数据.更新为新数据.
这个谁能帮帮我,加分求助啊

janselin 2008-12-25

打赏
举报

我根据自己的情况更改了代码:
Private Sub LsV_ItemCheck(ByVal Item As MSComctlLib.ListItem)

Dim j As Integer
For j = 1 To LsV.ListItems.Count
LsV.ListItems(j).Checked = False

Item.Checked = True

TxtInvCode.Text = LsV.ListItems(j) '母件名称
TxtcInvName.Text = Item.SubItems(1) '母件名称
TxtcInvStd.Text = Item.SubItems(6) '规格型号
TxtUnitName.Text = Item.SubItems(7) '计量单位
TxtBomId.Text = Item.SubItems(2) '版本号
TxtBomDec.Text = Item.SubItems(4) '版本说明
TxtBomDate.Text = Item.SubItems(5) '版本日期
Txtkhcode.Text = Item.SubItems(3) '客户编码

Next

End Sub

目前运行的问题是:listview的第一列"母件名称"总是不能正确显示在TxtInvCode.Text里面.但是别的text都正常
TxtInvCode.Text里面固定显示为最后一行的第一列的"母件名称"
请大家再帮我看看代码哪里需要更改下?

SYSSZ 2008-12-24

打赏
举报

[Quote=引用 6 楼 janselin 的回复:]
就是不管listview里面有没有重复的记录,始终只能单选一个checkbox?
[/Quote]
用索引或用Key识别: 如

Option Explicit



Private Sub Form_Load()

Dim I As Integer

ListView1.ColumnHeaders.Add , , "MUN"

ListView1.View = lvwReport

For I = 1 To 9

 ListView1.ListItems.Add , "A" & I, I

 Next

  ListView1.ListItems.Add , "A" & 10, 5

End Sub



Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)

Dim I As Integer

Dim S As String

S = Item.Key

For I = 1 To ListView1.ListItems.Count

If ListView1.ListItems(I).Key <> S Then

ListView1.ListItems(I).Checked = False

End If

Next

End Sub

vansoft 2008-12-24

打赏
举报

你点一个叫"Name"的,你把所有叫"Name"的全勾上不就行了.

janselin 2008-12-24

打赏
举报

就是不管listview里面有没有重复的记录,始终只能单选一个checkbox?

janselin 2008-12-24

打赏
举报

不错,谢谢兄弟,
但是还有个小问题,就是如果我listview里面有多个相同名字比如(F3110211)的话,则可以连续选中多个...直到你选了不同名字的记录.这个怎么避免?

SYSSZ 2008-12-24

打赏
举报

我们回贴为了抢时间,没用Option Explicit强制变量声明,你的估计用了Option Explicit关键字,每一个变量都要声明,这不是错误

SYSSZ 2008-12-24

打赏
举报

加dim s As string

janselin 2008-12-24

打赏
举报

怎么到我这儿就成了"变量未定义"呢?
s = item这行

far021 2008-12-24

打赏
举报

老董杂货铺 2008-12-24

打赏
举报



Private Sub Form_Load()

Me.ListView1.ListItems.Add "1", "'1'", "1"

Me.ListView1.ListItems.Add "2", "'2'", "2"

Me.ListView1.ListItems.Add "3", "'3'", "3"

Me.ListView1.ListItems.Add "4", "'4'", "4"

Me.ListView1.ListItems.Add "5", "'5'", "5"

End Sub

Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)

Dim i As Integer

For i = 1 To ListView1.ListItems.Count

    ListView1.ListItems(i).Checked = False

Next

Item.Checked = True

End Sub

SYSSZ 2008-12-23

打赏
举报





Private Sub Form_Load()

ListView1.ColumnHeaders.Add , , "MUN"

ListView1.View = lvwReport

For I = 1 To 10

 ListView1.ListItems.Add , , I

 Next

End Sub



Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)

S = Item

For I = 1 To ListView1.ListItems.Count

If ListView1.ListItems(I) <> S Then

ListView1.ListItems(I).Checked = False

End If

Next

End Sub

VB里的listview复选框疑问

相关推荐