[All] Expansão do Chat

por Gustavo santos Diniz Ter 15 Fev 2011, 07:46

Bom, esse código é simples, ele faz com que o chat se
expanda, para que você possa ver os
assuntos comentados, com mais facilidade, então vamos lá..

Começando, crie 2 Label ou Comand Butão , o primeiro deixe
com nome ChatBig e o segundo com nome ChatSmall.

Agora clique em ChatBig e adicione:

Código:: If txtChat.Visible = True Then txtChat.Height = 450 txtChat.Top = 96 Else txtChat.Height = 99 txtChat.Top = 448 End If

E depois clique em ChatSmall e Adicione:

Código:: If txtChat.Visible = True Then txtChat.Height = 99 txtChat.Top = 448 Else txtChat.Height = 315 txtChat.Top = 232 End If

Agora clique em txtChat, e muda as propriedades de Height
para 96 e Top para 448.

Pronto! O sue sistema de expansão de chat está feito! Caso
queira mudar as configurações utilizem o Height e Top para as modificações, e também
é possível utilizar esse tutorial para forms, texto, picture e etc...

Ah sim, se expliquei errado é por que faz muito tempo que
num faço tutorial, qualquer coisa é só avisar que eu arrumo.