MIR-MENSAGEIRO INSTANTANEO PARA REDES

WANDSON1985 29/08/2012 07:50:57
#408812

Bom da, pessoal, baixei o programa MIR-MENSAGEIRO INSTANTANEO PARA REDES, AQUI NO FORUM NO LINK
http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=7671
O PROGRAMA FEITO PELO MARCELO TREZE é OTIMO BOM MESMO, SÓ EM UM PROBLEMA QUE NÃO CONSIGO RESOLVER, QUANDO VOU ENVIA UM MENSAGEM PARA O O OUTRO USUARIO EM REDE, ELE ENVIA LEGAL, MAIS POR EXEMPLO QUANDO TENTO ESCREVER ATE 5 LINHAS E ENVIA DA UM ERRO. SÓ ENVIA LINHA POR LINHA E NÃO TUDO DE UMA VEZ, SEGUE O CODIGO DO BOTÃO ENVIAR.




Dim con As String
Set verifica = Conexao.Execute([Ô]select * from msg where enviando=[ô][Ô] & User & [Ô][ô] and recebendo=[ô][Ô] & Me.Caption & [Ô][ô][Ô])
If verifica.EOF Then
Conexao.Execute ([Ô]insert into msg (enviando,recebendo,mensagem,fonte,fontesize,negrito,italico,sublinhado,cor) values ([ô][Ô] & User & [Ô][ô],[ô][Ô] & Me.Caption & [Ô][ô],[ô][Ô] & Cript(rtbEnvio.Text) & [Ô][ô],[ô][Ô] & cmbFonte.Text & [Ô][ô],[ô][Ô] & cmbTamFonte.Text & [Ô][ô],[ô][Ô] & neg_val & [Ô][ô],[ô][Ô] & ita_val & [Ô][ô],[ô][Ô] & sub_val & [Ô][ô],[ô][Ô] & PicColor.BackColor & [Ô][ô])[Ô])
Else
Exit Sub
End If
Set conversa = Conexao.Execute([Ô]SELECT * FROM msg WHERE enviando=[ô][Ô] & User & [Ô][ô] and recebendo=[ô][Ô] & Me.Caption & [Ô][ô][Ô])
If Not conversa.EOF Then
If rtbconversa.Text = [Ô][Ô] Then
rtbconversa.SelStart = 0
rtbconversa.SelFontName = [Ô]Arial[Ô]
rtbconversa.SelFontSize = 10
rtbconversa.SelBold = False
rtbconversa.SelItalic = True
rtbconversa.SelUnderline = False
rtbconversa.SelColor = &H808080
rtbconversa.SelText = conversa([Ô]enviando[Ô]) & [Ô] diz:[Ô]
Else
Linha = Len(rtbconversa.Text)
rtbconversa.SelStart = Linha
rtbconversa.SelFontName = [Ô]Arial[Ô]
rtbconversa.SelFontSize = 10
rtbconversa.SelBold = False
rtbconversa.SelItalic = True
rtbconversa.SelUnderline = False
rtbconversa.SelColor = &H808080
rtbconversa.SelText = Chr(13) + Chr(10) & conversa([Ô]enviando[Ô]) & [Ô] diz:[Ô]
End If
Linha = Len(rtbconversa.Text)
rtbconversa.SelStart = Linha
rtbconversa.SelFontName = conversa([Ô]fonte[Ô])
rtbconversa.SelFontSize = conversa([Ô]fontesize[Ô])
rtbconversa.SelBold = conversa([Ô]negrito[Ô])
rtbconversa.SelItalic = conversa([Ô]italico[Ô])
rtbconversa.SelUnderline = conversa([Ô]sublinhado[Ô])
rtbconversa.SelColor = Val(conversa([Ô]cor[Ô]))
con = conversa([Ô]mensagem[Ô])
rtbconversa.SelText = Chr(13) + Chr(10) & DeCript(con)
rtbEnvio.Text = [Ô][Ô]
rtbEnvio.SetFocus
End If

End Sub