EXISTE LIMITACOES P/ UM TEXTBOX???

USUARIO.EXCLUIDOS 23/03/2005 16:17:16
#74531
seguinte galera, salvei esse texto num .ini

  O que vemos? Nosso dia-a-dia é verdadeiro? O que é real? O mundo é uma farsa, construído por uma das mais poderosas máquinas com inteligência artificial para nos controlar. Proezas de tirar o fà'lego. Efeitos alucinantes. Cenas de arrebentar. Keanu Reeves e Laurence Fishburne lutam pela libertação da humanidade em Matrix, um suspense cibernético para se ver e rever muitas vezes. Uma surpreendente história, com efeitos visuais alucinantes, marcando uma nova era do cinema. Um filme arrasador.


blz, qnd eu mandei o programa carregar esse texto do .ini p/ uma textbox (com a opcao multiline e scrollbar vertical), soh aparece essa parte do texto

 O que vemos? Nosso dia-a-dia é verdadeiro? O que é real? O mundo é uma farsa, construído por uma das mais poderosas máquinas com inteligência artificial para nos controlar. Proezas de tirar o fà'lego. Efeitos alucinantes. Cenas de arrebentar. Keanu Reeves e


alguem pode me dizer o pq disso, ou se a textbox tem limitacoes, ou como q eu faco p/ exibir o texto completo???

valew galera ;)
USUARIO.EXCLUIDOS 23/03/2005 16:21:57
#74535 Resposta escolhida
Deve ser a forma com que vc está buscando os dados.. pois o textbox não tem limite não.. a menos que vc indique no MAXLENGHT.....
Poste o código.... vai ser melhor...
USUARIO.EXCLUIDOS 23/03/2005 16:30:53
#74539
okz, segue entao.... essa lista esta num form e ele carrega os dados do .ini p/ o textbox de outro form....

 
 Private Sub List1_Click()
Form2.Text3.Text = LeEntradaPrivIni("NomeDoFilme", "Nota", "", App.Path & "\Filmes\" & List1.Text + ".ini")
Form2.Text4.Text = LeEntradaPrivIni("NomeDoFilme", "Extras", "", App.Path & "\Filmes\" & List1.Text + ".ini")
Form2.listSinopse.Text = LeEntradaPrivIni("NomeDoFilme", "Sinopse", "", App.Path & "\Filmes\" & List1.Text + ".ini")

 End Sub
USUARIO.EXCLUIDOS 23/03/2005 16:40:29
#74542
Pode ser limitada a FUNÇÃO LeEntradaPrivIni!!!
Poste aqui a FUNÇÃO LeEntradaPrivINI......
Outra coisa... isso não é um banco de dados correto..????
Banco de Filmes...
USUARIO.EXCLUIDOS 23/03/2005 16:50:21
#74543
exato, nao eh um banco de dados, eh um arquivo .ini com algumas informaçoes soh.... =)
segue a funçao

  
Function LeEntradaPrivIni(Secao As String, Entrada As String, _
    ByVal ValorDefault As String, NomeDoINI As String) As String
    Dim temp As String * 255
    Dim ret As Long
    ret = apiLeEntradaPrivIni(Secao, Entrada, ValorDefault, _
         temp, Len(temp), NomeDoINI)
    If ret Then
       LeEntradaPrivIni = Left$(temp, ret)
    End If
End Function


essa funcao eu peguei aqui msm no VBMania.... manipulando arquivos ini
USUARIO.EXCLUIDOS 23/03/2005 17:36:33
#74557
e aew??? alguem sabe pq nao consego exibir a sinopse inteira??
USUARIO.EXCLUIDOS 23/03/2005 17:37:44
#74558
Olha aqui o problema
[c]
Function LeEntradaPrivIni(Secao As String, Entrada As String, _
ByVal ValorDefault As String, NomeDoINI As String) As String
Dim temp As String [txt-color=#ff0000]* 255 [/txt-color]
Dim ret As Long
ret = apiLeEntradaPrivIni(Secao, Entrada, ValorDefault, _
temp, Len(temp), NomeDoINI)
If ret Then
LeEntradaPrivIni = Left$(temp, ret)
End If
End Function
[c]
Define somente como 255 caracteres....
Retire este 255 ou aumente!!
E Pronto!!!
USUARIO.EXCLUIDOS 23/03/2005 17:43:05
#74562
nossa..... como um pequeno detalhe desse pode fazer a diferenca... poutz....

valeu GERMANIR.... valews msm
USUARIO.EXCLUIDOS 23/03/2005 19:32:53
#74584
Não se esqueça de encerrar o TÓ“PICO
Tópico encerrado , respostas não são mais permitidas
Voltar