listbox的问题

bluelang 2003-03-06 01:46:43
listbox的问题
Private Sub Form_Load()
list1.add intem "10"
list1.add intem "11"
list1.add intem "12"
list1.add intem "13"
end sub

Private Sub Command1_Click()
label1.caption=list1.text
end sub
为什么 list1改变后,click 按钮command1,label1.caption却不改变
...全文
49 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
northwolves 2003-03-06
  • 打赏
  • 举报
回复
Private Sub Form_Load()
List1.AddItem "10"
List1.AddItem "11"
List1.AddItem "12"
List1.AddItem "13"
End Sub

Private Sub Command1_Click()
List1_Click
End Sub

Private Sub List1_Click()
If List1.ListIndex <> -1 Then Label1.Caption = List1.List(List1.ListIndex)
End Sub
Cooly 2003-03-06
  • 打赏
  • 举报
回复
Private Sub Form_Load()
List1.AddItem "10"
List1.AddItem "11"
List1.AddItem "12"
List1.AddItem "13"
End Sub

Private Sub Command1_Click()
if list1.listindex<>-1 then
Label1.Caption = List1.list(list1.listindex)
end if
End Sub
bluelang 2003-03-06
  • 打赏
  • 举报
回复
我测试的结果是,除非反显list的数据后才正确,如果只是单纯的通过up 或者 down 改变list1,并不能得到正确的label1.caption
xayzmb 2003-03-06
  • 打赏
  • 举报
回复
list1.listindex =(填写数字)
label1.caption = list1.text
Girl1983 2003-03-06
  • 打赏
  • 举报
回复
没问题啊
Private Sub Form_Load()
List1.AddItem "10"
List1.AddItem "11"
List1.AddItem "12"
List1.AddItem "13"
End Sub

Private Sub Command1_Click()
Label1.Caption = List1.Text
End Sub

7,762

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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