LISTBOX PROBLEMAS - VBWEB

USUÁRIO: SENHA:

SALVAR LOGIN ?


	Fórum
	Visual Basic

Voltar

Autor

Assunto: LISTBOX PROBLEMAS

ColdFire

SAO PAULO
SP - BRASIL

Postada em 06/09/2005 17:11 hs

Eis meu codigo:

--------------------------------------------------------------------------------
HIDECHAT.ListIndex = HIDECHAT.ListCount - 2
txt_chatv.Text = txt_chatv.Text & vbCrLf & HIDECHAT.Text
HIDECHAT.ListIndex = HIDECHAT.ListCount - 1
txt_chatv.Text = txt_chatv.Text & vbCrLf & HIDECHAT.Text
HIDECHAT. = HIDECHAT.ListCount
txt_chatv.Text = HIDECHAT.Text
--------------------------------------------------------------------------------

Oque esse código deveria fazer era: Ler a ante-penultima linha da listbox e jogar na textbox depois a penultima linha e jogar na textbox e por fim a ultima e jogar na textbox... porem não consigo ou melhor não sei como falar pra ele ler o conteudo das linhas no listbox... o comando:

HIDECHAT.LISTINDEX = HIDECHAT.LISTCOUNT - 2 é invalido

Ressalto que esse codigo esta em um timer por isso tenho a necessidade de que fique lendo sempre...

Aguardo respostas..
Ats,
Cold

Alê

SÃO PAULO
SP - BRASIL

Postada em 07/09/2005 11:59 hs

Olá, bom dia.

A propriedade ListCount contém a quantidade de itens do seu ListBox.

A propriedade ListIndex indica qual dos itens está posicionado o ponteiro do ListBox e sua contagem começa a partir do 0 (zero) e não do 1 (um).

Exemplo:

Se o seu ListBox possui 10 itens, então a propriedade ListCount será igual a 10.

Se você quer posicionar no último registro, voce deverá igualar a propriedade ListIndex a 9 (ListCount -1).

Com isso, é possível identificar uma pequena falha no seu código. Experimente utilizar o código abaixo e veja se funciona.

    HIDECHAT.ListIndex = HIDECHAT.ListCount - 3
    txt_chatv.Text = txt_chatv.Text & vbCrLf & HIDECHAT.List(HIDECHAT.ListIndex)
    HIDECHAT.ListIndex = HIDECHAT.ListCount - 2
    txt_chatv.Text = txt_chatv.Text & vbCrLf & HIDECHAT.List(HIDECHAT.ListIndex)
    HIDECHAT.ListIndex = HIDECHAT.ListCount - 1
    txt_chatv.Text = txt_chatv.Text & vbCrLf & HIDECHAT.List(HIDECHAT.ListIndex)

Espero ter colaborado,

Abraços.

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR


		CyberWEB Network Ltda. © Copyright 2000-2025 - Todos os direitos reservados. Powered by HostingZone - A melhor hospedagem para seu site