mdsk.net
当前位置:首页 >> vB高手进, ListBox 怎样点击选中某一行啊??用那... >>

vB高手进, ListBox 怎样点击选中某一行啊??用那...

你好,List1.ListIndex才是当前用户点击的项目编号,melovefree的方法需要你开启checkbox属性才能生效.正确的方法如下: Private Sub List1_Click() Dim c As String c = List1.List(List1.ListIndex) Clipboard.SetText c MsgBox c End Sub

如果你要实现“单击选择一项,再次单击取消选择”这个效果推荐你用这个代码: 假设此ListBox控件的名称为List1 Private Sub List1_Click() If List1.ListIndex = Val(List1.Tag) Then List1.ListIndex = -1 Else List1.Tag = List1.ListIndex End ...

以下代码是选中哪项就读出哪项 Private Sub List1_Click() MsgBox List1.List(List1.ListIndex) End Sub 吃完年夜饭就来帮你回答问题了,望采纳啊!呵呵

比较简单我就不解释了,自己单步走一下看看他是怎么变化的就明白了。 Private Sub Command1_Click() List1.AddItem "要改的内容", List1.ListIndex List1.RemoveItem List1.ListIndex End Sub

Private Sub Command1_Click() List1.RemoveItem (List1.Columns-1) List1.AddItem "cccc", 2 End Sub 你试一下

Private Sub Command1_Click() '上移 Dim N As Long N = List1.ListIndex '记录当前序号 if n=-1 then exit sub '加这句,判断是否选择 If N - 1 > -1 Then '判断是否最前 List1.AddItem List1.Text, N - 1 '在当前项的上一条记录前插入一条记录...

checkedListBox1.ClearSelected(); foreach(int i in checkedListBox1.CheckedIndices) { checkedListBox1.SetItemChecked(i, false); } 如果对您有帮助,请记得采纳为满意答案,谢谢!祝您生活愉快! vaela

先设置list的MultiSelect属性= 1 在最下面加一个空行 也选中 list.additem "" 然后选择空行 List1.Selected(i) = True 那么虚线就没了 因为LIST的列表项总是比实际的多一个空行 所以那个效果就不见了

sub listbox1_click() listbox2.add 1 end sub

List1.SelCount

网站首页 | 网站地图
All rights reserved Powered by www.mdsk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com