[VB]Abrir e fechar chat por Button

por MadaraOwner Dom 19 Ago 2012, 15:03

Eai galera do mmorpgbr :]
É o seguinte, eu finalmente consegui instalar o VB e tava dando umas fuçadas no elysium quando derrepente tive a idéia de criar um botão pra fechar o chat (porque nem todos gostam de ver o que falam no chat.)

Vamos lá, abra o frmMirage no client~side

crie 2 commandButton com os Names
cmbFechaChat
cmbAbreChat

abra o cmbFechaChat e coloque esse código:

Código:: txtMyTextBox.Visible = False txtChat.Visible = False

no cmbAbreChat coloque

Código:: txtMyTextBox.Visible = True txtChat.Visible = True

explicando:

txtMyTextBox: é a caixa de texto do chat onde vc digita a mensagem que vai ser enviada
txtChat: é a caixa de mensagem onde você vê as mensagens do chat

quando usa o

Código:: .visible

ta fazendo referência à propriedade, se receber true ele fica visível, false fica oculto. (detalhe: não é deletado, apenas não é visto).

Fiz tudo bem detalhado pra não perder nenhuma informação xD
Espero ter ajudado, flw :]

por Kooringa Dom 19 Ago 2012, 15:18

mt bom, +1, muito simples pois ja sabia

por RenanR Dom 19 Ago 2012, 15:24

Bom cara, é isso ai, começa de baixo e vai melhorando. Mas você podia ter feito algo mais simples, ou melhor, mais leve.

Código:: Private Sub cmbAbreFechaChat_Click() If cmbAbreFechaChat.Caption = "Abrir" Then txtMyTextBox.Visible = True txtChat.Visible = True cmbAbreFechaChat.Caption = "Fechar" Elseif cmbAbreFechaChat.Caption = "Fechar" Then txtMyTextBox.Visible = False txtChat.Visible = False cmbAbreFechaChat.Caption = "Abrir" End if End Sub

Isso em só um button.
E deixar o Caption de Fechar, já que de inicio deve estar aberto. Nem testei isso mas, é algo que acho que seria mais simples.