Caractère spécial sur Port Comm en VB

Marsh Posté le 07-01-2010 à 16:16:29

Bonjour,

Je développe actuellement une application en VB6, qui sert à configurer des Switchs à travers le port Comm.
Souvent, il apparait des caractères spéciaux comme ci - dessous (un carré noir)
Ceci est très génant puisqu'en gros cela remplace la touche entrée, quand je veux appuyer sur entrée,il affiche ceci, et c'est uniquement après en réappuyant sur entrée que ça disparait et que j'envoi réellement la commande.
Voici aussi le code que j'utilise sur le texte.
Si vous avez une solution ou bidouille poiur modifier ceci ca m'aiderai énormément merci.

Code :

Private Static Sub MSComm1_OnComm()
' Sélectionne en fonction de la propriété CommEvent.
Select Case MSComm1.CommEvent
' Messages d'événement.
Case comEvReceive
Buffer = MSComm1.Input
'Debug.Print "Réception - " & StrConv(Buffer, vbUnicode)
ShowData txtTerm, Buffer
Case comEvSend
Case comEvCTS
End Select
End Sub
' Cette procédure ajoute des données dans la propriété Text du
' contrôle Term. Elle filtre également les caractères de contrôle,
' comme le retour arrière, le retour chariot, et les sauts de
' ligne, et inscrit les données dans un fichier journal ouvert.
' Les caractères de retour arrière suppriment le caractère de
' gauche dans la propriété Text ou dans la chaîne passée. Les
' caractères de saut de ligne sont ajoutés à tous les retours
' chariot. La taille de la propriété Text du contrôle Term est
' également contrôlée de façon à ne pas excéder les caractères de
' la constante MAXTERMSIZE.
Private Static Sub ShowData(Term As Control, Data As String)
On Error GoTo Handler
Const MAXTERMSIZE = 16000
Dim TermSize As Long, i
' Vérifie que le texte existant ne devient pas trop grand.
TermSize = Len(Term.Text)
If TermSize > MAXTERMSIZE Then
Term.Text = Mid$(Term.Text, 4097)
TermSize = Len(Term.Text)
End If
' Pointe à la fin des données du contrôle Term.
Term.SelStart = TermSize
' Filtre/manipule les caractères de retour arrière.
Do
i = InStr(Data, Chr$(8))
If i Then
If i = 1 Then
Term.SelStart = TermSize - 1
Term.SelLength = 1
Data = Mid$(Data, i + 1)
Else
Data = Left$(Data, i - 2) & Mid$(Data, i + 1)
End If
End If
Loop While i
' Élimine les sauts de ligne.
Do
i = InStr(Data, Chr$(2))
If i Then
Data = Left$(Data, i - 1) & Mid$(Data, i + 1)
End If
Loop While i
' Vérifie que tous les retours chariot ont un saut de ligne.
i = 1
Do
i = InStr(i, Data, Chr$(3))
If i Then
Data = Left$(Data, i - 1) & Chr$(13) & Chr$(10) & Mid$(Data, i + 1)
i = i + 1
End If
Loop While i
' Ajoute les données filtrées à la propriété SelText.
Term.SelText = Data
' Inscrit les données dans le fichier sur demande.
Term.SelStart = Len(Term.Text)
Exit Sub
Handler:
MsgBox Error$, vbCritical
Resume Next
End Sub
Private Sub txtTerm_KeyPress(KeyAscii As Integer)
' Si le port de communication est ouvert...
If MSComm1.PortOpen Then
' Envoie les touches frappées vers le port de communication.
MSComm1.Output = Chr$(KeyAscii)
' À moins que le mode Écho ne soit activé,
' le contrôle texte n'a pas besoin d'afficher les touches.
' En général, un modem renvoie un caractère en retour.
If Not Echo Then
' Place la position à la fin du terminal.
txtTerm.SelStart = Len(txtTerm)
KeyAscii = 0
End If
End If
End Sub
Private Sub txtTerm_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyC And Shift = vbCtrlMask Then
Clipboard.Clear
Clipboard.SetText txtTerm.SelText
End If
If KeyCode = vbKeyV And Shift = vbCtrlMask Then
Call CopierColler(Clipboard.GetText)
End If
If KeyCode = vbKeyUp Or KeyCode = vbKeyDown Then KeyCode = 0
'End If
End Sub

Marsh Posté le 07-01-2010 à 16:16:29

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *