LISTBOX LIMITE

EPISCOPAL 13/04/2010 13:43:57
#339202
eu achei varias palavras para ortografia, e esta em diversos arquivos, ai eu juntei tudo em um so arquivo, criei uma função para nao colocar palavras repetidas no listbox ...... so q quando chega em 32.000 + alguns quebrados, ela da um erro falando que deu estouro (muiiiiiito comprido mesmooo)


existe outro controle para eu colocar e ordenar as palavras???? como o listbox, por exemplo??? que tem opção de ordenar palavras !!!!!!
ASHKATCHUP 13/04/2010 13:57:50
#339203
Eu acho que o listbox da erro porque o índice deve ser um integer...
Já tentou Listview?
TECLA 13/04/2010 14:26:27
#339205
O controle LISTBOX suporta muito mais que 35000.

Como teste, crie um NOVO PROJETO no VB6, adicione um LISTBOX e COMMAND e cole a rotina abaixo:

Private Sub Command1_Click()
Dim cont As Long
On Error GoTo erro
For cont = 1 To 100000
    DoEvents
    List1.AddItem cont
    cont = cont + 1
Next
Exit Sub

erro:
    MsgBox Err.Description, vbExclamation, [Ô]Erro[Ô]
End Sub


Ou seja, você acabou de inserir 100.000 no LISTBOX sem problemas.
EPISCOPAL 13/04/2010 23:11:32
#339285
Puts eu coloquei o codigo errado tecla

i = 0
Do While Not EOF(1)
DoEvents
Line Input #1, auto
lstDic.List(i) = auto [txt-color=#e80000]<<<<<<<<<< ERRADO >>>>>>>>>> correto: lstDic.AddItem[/txt-color]
i = i + 1
Loop






Puts q vergonhaaaaaaaaaaaaa errar uma coisa da primeira serie do VB ....

Tecla ..... vou pontuar vc pela primeira vezzzzzz
EPISCOPAL 14/04/2010 00:13:07
#339289
bemmmmmm to de voltaaaaaa


minha função para verificar a duplicidade de item:

[txt-color=#0000f0]Private Function VerList(ByVal strDic As String) As Boolean

Dim ndx As Long, nStr1 As Integer
VerList = False

For ndx = lstDic.ListCount To 0 Step -1
nStr1 = StrComp(Trim(lstDic.List(ndx)), strDic, vbBinaryCompare)
If nStr1 = 0 Then
VerList = True
Exit Function
End If
Next

VerList = False

End Function[/txt-color]


VOLTO A ESTACA INICIAL

lstDoc.list(x) >>>>. X aqui so vai ate 32.000 e mais num sei qtos!!!!!

aqui para a verificação da lista. O QUE FAZER?????
OUTROS CONTROLES TEM ISSO?? TIPO LISTVIEW????
ASHKATCHUP 14/04/2010 08:16:27
#339299 Resposta escolhida 

nStr1 As Integer


Tenta mudar para long
EPISCOPAL 14/04/2010 20:27:43
#339401
o problema ta dando aqui

lstDic.List(ndx))

ndx é uma variavel long ...

coloquei long pra todos e anum deu certo

em list1.list nao pode ser maior que 32769 ..... mesmo sendo long variant, etc etc ...
EPISCOPAL 15/04/2010 14:43:25
#339517
Citação:

ASHKATCHUP




O listView vai mais longe mesmooooooooooo

apesar q eu nao tenho intimidade com ele .....


valeuuu genteeee
Tópico encerrado , respostas não são mais permitidas
Voltar