List1循环怎么样内容到text文本内？

ymhy12345 发布于 2014-02-11 22:12， 622 次点击

程序代码：

Private Sub Form_Load()

For i = 1 To 10
List1.AddItem (i)
Next i
End Sub

Private Sub List1_Click()
Text1.Text = List1.List(List1.ListIndex) '怎么样把list一行一行内容循环到text，比如循环1，然后到2,然后到3,如此类推，怎么搞，谢谢各位大侠

End Sub

6 回复

lowxiong2014-02-11 22:27

Private Sub List1_Click()
  Dim i As Integer
  For i = 0 To List1.ListCount - 1
    Text1 = Text1 & List1.List(i)
  Next
End Sub

ymhy123452014-02-11 22:43

回复 2楼 lowxiong

版主，俺的意思是，一行一行显示到text内，不是全部显到text,俺是想做破解软件，挂字典，其他的都做好了，还差循环

lowxiong2014-02-11 23:00

你既然已经知道怎么把数据从list1中一行行取出来，就可以想把他们怎么显示到text1中就怎么显示的，用循环一次性解决可以，用按钮按一下取一个也可以
Private Sub List1_Click()
  Dim i As Integer
  For i = 0 To List1.ListCount - 1
    Text1 = List1.List(i)
    字典破解调用
    if 破解成功 then
      msgbox "密码是" & text1
      exit sub
    endif
  Next
End Sub

ymhy123452014-02-12 10:41

回复 4楼 lowxiong

Private Sub List1_Click()
Text1.Text = List1.List(List1.ListIndex)

End Sub

这一行代码是需要手动，一行一行配对密码的，俺是想自动配对密码到text内，比如配对第一行密码到text内，然后到第二行密码，第一行不能显到text内，如此类推

owenlu19812014-02-25 13:19

这应该是要加个Command按钮来执行吧
Private Sub Command1_Click()
    For i = 0 to List1.ListCount-1
        Text1.Text = List1.List(List1.ListIndex)
        If 密码正确
            ......
            Exit for
        endif
    Next i

End Sub

qweryu3212014-02-25 17:29

参考下 & vbcrlf 这个语句可以实现换行