如何使ListBox中最新加入的Item反亮显示

vizeo 2003-11-03 03:03:11

如何使ListBox中最新加入的Item反亮显示
并将该Item 显示在ListBox区域的最下端

比如 listbox 中有下面的Item
1111
222
33333
444455
6666666
但我的Listbox只显示3条
我想得到的是反亮显示 666666 在 listbox的最下端
由于只能显示 3 条
33333
444455
6666666

那么
1111
222

就不显示了

...全文

68 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

射天狼 2003-11-03

打赏
举报

"猪猪",添不添那一句都一样的~~

海牛 2003-11-03

打赏
举报

^_^ 借cuizm(射天狼) 的代码一用，在添一句代码：
Private Sub Command1_Click()
List1.AddItem "ee"
List1.Selected(List1.ListCount - 1) = True
List1.SetFocus'添加的一句代码
End Sub

Private Sub Form_Load()
List1.AddItem "aa"
List1.AddItem "bb"
List1.AddItem "cc"
List1.AddItem "dd"
End Sub

kimurakenshin 2003-11-03

打赏
举报

Private Sub Command1_Click()
If Len(Text1.Text) > 10 Then
ListView1.ListItems.Add , , Text1.Text
Else
MsgBox "请输入10个字符以上的字符串!", vbInformation, "提示"
End If
ListView1.SelectedItem = ListView1.ListItems.Item(ListView1.ListItems.Count)
ListView1.DropHighlight = ListView1.SelectedItem
Text1.Text = ""
Text1.SetFocus
End Sub

Private Sub Command2_Click()
ListView1.ListItems.Remove (ListView1.SelectedItem.Index)
End Sub

Private Sub Form_Load()
ListView1.ListItems.Add , , "1111"
ListView1.ListItems.Add , , "222"
ListView1.ListItems.Add , , "33333"
ListView1.ListItems.Add , , "444455"
ListView1.ListItems.Add , , "6666666"
End Sub

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
ListView1.SelectedItem = Item
ListView1.DropHighlight = Item
End Sub
command1是添加,command2是删除,还有就是让选中的记录高亮显示试试吧,我已经运行过了.

射天狼 2003-11-03

打赏
举报

Private Sub Command1_Click()
List1.AddItem "ee"
List1.Selected(List1.ListCount - 1) = True
End Sub

Private Sub Form_Load()
List1.AddItem "aa"
List1.AddItem "bb"
List1.AddItem "cc"
List1.AddItem "dd"
End Sub

vizeo 2003-11-03

打赏
举报

Sorry~
我没说明白

我的目的是这样
一个TextBox ---输入一串数字
一个commandbutton --- 当TextBox 中的数字满足要求后，点击它开始将该数字写入
指定路径下的 number.txt中,
然后 ListBox就将刚刚写入的数字反亮显示在它的最下面
TextBox清空等待下一串数字

kimurakenshin 2003-11-03

打赏
举报

Private Sub Form_Load()
'把listview1的view属性设成lvwlist,然后向listview1中添加记录
ListView1.ListItems.Add , , "1111"
ListView1.ListItems.Add , , "222"
ListView1.ListItems.Add , , "33333"
ListView1.ListItems.Add , , "444455"
ListView1.ListItems.Add , , "6666666"
'让listview1中最后一条记录为选中状态
ListView1.SelectedItem = ListView1.ListItems.Item(ListView1.ListItems.Count)
'把先中的记录高亮显示
ListView1.DropHighlight = ListView1.SelectedItem
End Sub
把这段代码放入一个有listview1的窗体中试一下

northwolves 2003-11-03

打赏
举报

Private Sub Command1_Click()
List1.SetFocus
List1.AddItem "666666"
List1.Text = List1.List(List1.ListCount - 1)
End Sub

Private Sub Form_Load()
List1.ForeColor = vbRed
For i = 1 To 5
List1.AddItem String(i, CStr(i))
Next
End Sub