OVERFLOW NO LOAD

SCORN 11/07/2005 14:30:52
#93390
oi gente

tenho uma seria de textboxes assim

txt1(0) txt2(0) txt3(0)
txt1(1) txt2(1) txt3(1)
... .. ....
txt1(114) txt2(114) txt3(114) t


noteir que, quando ele vai carregar com o load txt1(115) por exemplo, ele ta erro de overflow, estou suporndo que não é possiver carregar mas de 115 objetos, existe isso? ou é um problema no meu codigo?

posso posta-lo caso ouver duvidas
JEAN.JEDSON 11/07/2005 14:36:54
#93392
bem... pode até ser... o máximo que tive de txt em um form é 45...
só uma curiosidade... pq vc tem mais de 115 text?
LCSD 11/07/2005 14:49:09
#93396
Scorn

Boa Tarde

Note que txt1, txt2 e txt3 são 3 componentes TextBox distintos, logo se você carregar até o àNDICE 114 terá 3 x 114 componentes carregados pelo jeito.

Para saber o que está errado, coloque a rotina inteira em que aparece o erro.
[s50]
SCORN 11/07/2005 15:23:12
#93411 
 Public Sub Add(Item1 As String, Item2 As String, Item3 As String)
    If Count = 0 Then
        txt1(Count).Visible = True 'Caso for o 1º item da lista
        txt2(Count).Visible = True  'Caso for o 1º item da lista
        txt3(Count).Visible = True 'Caso for o 1º item da lista
        txt1(Count) = Item1
        txt2(Count) = Item2
        txt3(Count) = Item3
        txt1(Count).ForeColor = &H80000017 'Seta cores como fonte preta
        txt1(Count).BackColor = &H80000005 'Seta cores como fundo branco
        txt2(Count).ForeColor = &H80000017 'Seta cores como fonte preta
        txt2(Count).BackColor = &H80000005 'Seta cores como fundo branco
        txt3(Count).ForeColor = &H80000017 'Seta cores como fonte preta
        txt3(Count).BackColor = &H80000005 'Seta cores como fundo branco
    Else
        Load txt1(Count)
        Set txt1(Count).Container = pic2
        Load txt2(Count)
        Set txt2(Count).Container = pic2
        Load txt3(Count)
        Set txt3(Count).Container = pic2
        txt1(Count).Visible = True
        txt2(Count).Visible = True
        txt3(Count).Visible = True
        txt1(Count).ForeColor = &H80000017 'Seta cores como fonte preta
        txt1(Count).BackColor = &H80000005 'Seta cores como fundo branco
        txt2(Count).ForeColor = &H80000017 'Seta cores como fonte preta
        txt2(Count).BackColor = &H80000005 'Seta cores como fundo branco
        txt3(Count).ForeColor = &H80000017 'Seta cores como fonte preta
        txt3(Count).BackColor = &H80000005 'Seta cores como fundo branco
        
        txt1(Count) = Item1
        txt2(Count) = Item2
        txt3(Count) = Item3
    End If
    Count = Count + 1
    Ajeitar 'Ajeita os componentes dentro do pic2
    a = a + 285

   'Controle to ramanho do pic2 que esta on txts
    pic2.Height = a

   'Ajeita o scroll
    If pic2.Height - 285 > pic1.Height Then
        vs.Max = pic2.Height - pic1.Height - 255
    End If
End Sub
JEAN.JEDSON 11/07/2005 15:25:56
#93413
scorn...
em qual linha deu o erro? e ainda continuo com a curiosidade de saber o pq tantos text... eh eh eh
SCORN 11/07/2005 15:33:31
#93422
JEAN JEDSON

o erro ocore no load txt1(count) quando o count vale 115

não faço nem ideia pq acontece isso
JEAN.JEDSON 11/07/2005 15:35:54
#93425
bem... pode realmente ser um erro de memória, pois além dos outros objetos, vc teria 114x3 objetos text
SCORN 11/07/2005 15:37:29
#93427
acho meio improvavel, pq fiz testes, reiniciei meu pc e fui direto execurtar o erro, e deu os mesmos 114 txts, deveria ir mais entaum, por tinha muito mais memoria disponivel
JEAN.JEDSON 11/07/2005 15:46:53
#93433
pode ser que sim, mas pode ser que estoure a capacidade do vb - quem pode saber?
SCORN 11/07/2005 15:51:10
#93435
vixe, mas se isso for possivel naum existe vantagens em usar tal rotina pra nada

por exemplo um chat com multiplus usuarios, quam garantiria que naum pudesse entrar mas de 115 pessoas? se limitar estragaria tal efeito

deve existir contorno para esse problema com certeza

vamos esperar :D
LCSD 11/07/2005 15:56:53
#93436
Scorn

Para o que você necessita um FlexGrid daria conta do recado com um pé atrás.....
[s50]
Página 1 de 3 [23 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar