Je d=E9bute en VB et j'aimerais savoir s'il y a une fonction qui permet
de savoir le nouveaux texte qui vien d'etre tap=E9.
Je m'explique :
je consoi un logiciel de communication avec le port com.
J'aimerais tap=E9 les commande dans la m=EAme textBox que celle ou je
re=E7ois.
Donc j'ai dejas des chose d'=E9crite dans ma boite texte mais je
voudrais r=E9cup=E9r=E9 que ce que je rajoute ( mes commade) je veut pas
Text1.Text mais un autre truck si sa existe.
ou sinon ( Text1.text - Tampon ) mais je ne c'est pas la sintaxe.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Picalausa François
Hello,
Ce genre de choses peuvent être réalisées au niveau de l'événement Change du textbox, ou alors des Keypress, Keydown, keyUp, qui permettent effectivement de récupérer la combinaison de touches entrée.
Néanmoins, une solution plus souvent appliquée est d'avoir une textbox vide avec un command button "envoyer" et une fenêtre de log qui concatène la suite de messages pour review (comme dans n'importe quel IM en fait...) Ce type de solution ne peut-il pas convenir, avant de sortir les armes lourdes et de travailler sur les différenciations de chaines?
Voici un exemple de ce type de solutions simplifiée: Option Explicit
Private Sub Form_Load() 'deux textboxes, text1 et text2 et un commandbutton : command1 'Text1.MultiLine = True design mode
'Initialise les contrôles Text1.Text = "--- " & Format(Date, "yyyy-nn-dd") & " ---" Text1.Locked = True 'Empêche l'édition du log Text2.Text = "" Command1.Default = True End Sub
Private Sub Command1_Click() 'Traite l'envoi de données
'vérifie s'il faut envoyer quelquechose If LenB(Text2.Text) Then 'Traite les nouvelles données Call Process(Text2.Text)
'Efface les données entrées et remet le focus Text2.Text = "" Call Text2.SetFocus End If End Sub
Private Sub AppendLog(Text As String) 'Ajoute les données au journal 'TODO : écritures sur le disque et gestion plus appropriée si nécessaire 'TODO : ajouter les date/time si nécessaire
'Se place à la fin avant d'écrire Text1.SelStart = Len(Text1.Text)
'Retour à la ligne pour y voir quelquechose If Text1.SelStart <> 0 Then Text1.SelText = vbCrLf End If
'Nouvelle entrée Text1.SelText = Text End Sub
Private Sub Process(Data As String) 'blah blah blah 'note : c'est une très mauvaise pratique que de ne pas 'décrire ce que fait la procédure End Sub
-- Picalausa François
"cedimix" a écrit dans le message de news:
Je débute en VB et j'aimerais savoir s'il y a une fonction qui permet de savoir le nouveaux texte qui vien d'etre tapé.
Je m'explique :
je consoi un logiciel de communication avec le port com.
J'aimerais tapé les commande dans la même textBox que celle ou je reçois. Donc j'ai dejas des chose d'écrite dans ma boite texte mais je voudrais récupéré que ce que je rajoute ( mes commade) je veut pas Text1.Text mais un autre truck si sa existe.
ou sinon ( Text1.text - Tampon ) mais je ne c'est pas la sintaxe.
Hello,
Ce genre de choses peuvent être réalisées au niveau de l'événement Change du
textbox, ou alors des Keypress, Keydown, keyUp, qui permettent effectivement
de récupérer la combinaison de touches entrée.
Néanmoins, une solution plus souvent appliquée est d'avoir une textbox vide
avec un command button "envoyer" et une fenêtre de log qui concatène la
suite de messages pour review (comme dans n'importe quel IM en fait...)
Ce type de solution ne peut-il pas convenir, avant de sortir les armes
lourdes et de travailler sur les différenciations de chaines?
Voici un exemple de ce type de solutions simplifiée:
Option Explicit
Private Sub Form_Load()
'deux textboxes, text1 et text2 et un commandbutton : command1
'Text1.MultiLine = True design mode
'Initialise les contrôles
Text1.Text = "--- " & Format(Date, "yyyy-nn-dd") & " ---"
Text1.Locked = True 'Empêche l'édition du log
Text2.Text = ""
Command1.Default = True
End Sub
Private Sub Command1_Click()
'Traite l'envoi de données
'vérifie s'il faut envoyer quelquechose
If LenB(Text2.Text) Then
'Traite les nouvelles données
Call Process(Text2.Text)
'Efface les données entrées et remet le focus
Text2.Text = ""
Call Text2.SetFocus
End If
End Sub
Private Sub AppendLog(Text As String)
'Ajoute les données au journal
'TODO : écritures sur le disque et gestion plus appropriée si nécessaire
'TODO : ajouter les date/time si nécessaire
'Se place à la fin avant d'écrire
Text1.SelStart = Len(Text1.Text)
'Retour à la ligne pour y voir quelquechose
If Text1.SelStart <> 0 Then
Text1.SelText = vbCrLf
End If
'Nouvelle entrée
Text1.SelText = Text
End Sub
Private Sub Process(Data As String)
'blah blah blah
'note : c'est une très mauvaise pratique que de ne pas
'décrire ce que fait la procédure
End Sub
--
Picalausa François
"cedimix" <cedimix@gmail.com> a écrit dans le message de news:
1138491285.857292.105940@o13g2000cwo.googlegroups.com...
Je débute en VB et j'aimerais savoir s'il y a une fonction qui permet
de savoir le nouveaux texte qui vien d'etre tapé.
Je m'explique :
je consoi un logiciel de communication avec le port com.
J'aimerais tapé les commande dans la même textBox que celle ou je
reçois.
Donc j'ai dejas des chose d'écrite dans ma boite texte mais je
voudrais récupéré que ce que je rajoute ( mes commade) je veut pas
Text1.Text mais un autre truck si sa existe.
ou sinon ( Text1.text - Tampon ) mais je ne c'est pas la sintaxe.
Ce genre de choses peuvent être réalisées au niveau de l'événement Change du textbox, ou alors des Keypress, Keydown, keyUp, qui permettent effectivement de récupérer la combinaison de touches entrée.
Néanmoins, une solution plus souvent appliquée est d'avoir une textbox vide avec un command button "envoyer" et une fenêtre de log qui concatène la suite de messages pour review (comme dans n'importe quel IM en fait...) Ce type de solution ne peut-il pas convenir, avant de sortir les armes lourdes et de travailler sur les différenciations de chaines?
Voici un exemple de ce type de solutions simplifiée: Option Explicit
Private Sub Form_Load() 'deux textboxes, text1 et text2 et un commandbutton : command1 'Text1.MultiLine = True design mode
'Initialise les contrôles Text1.Text = "--- " & Format(Date, "yyyy-nn-dd") & " ---" Text1.Locked = True 'Empêche l'édition du log Text2.Text = "" Command1.Default = True End Sub
Private Sub Command1_Click() 'Traite l'envoi de données
'vérifie s'il faut envoyer quelquechose If LenB(Text2.Text) Then 'Traite les nouvelles données Call Process(Text2.Text)
'Efface les données entrées et remet le focus Text2.Text = "" Call Text2.SetFocus End If End Sub
Private Sub AppendLog(Text As String) 'Ajoute les données au journal 'TODO : écritures sur le disque et gestion plus appropriée si nécessaire 'TODO : ajouter les date/time si nécessaire
'Se place à la fin avant d'écrire Text1.SelStart = Len(Text1.Text)
'Retour à la ligne pour y voir quelquechose If Text1.SelStart <> 0 Then Text1.SelText = vbCrLf End If
'Nouvelle entrée Text1.SelText = Text End Sub
Private Sub Process(Data As String) 'blah blah blah 'note : c'est une très mauvaise pratique que de ne pas 'décrire ce que fait la procédure End Sub
-- Picalausa François
"cedimix" a écrit dans le message de news:
Je débute en VB et j'aimerais savoir s'il y a une fonction qui permet de savoir le nouveaux texte qui vien d'etre tapé.
Je m'explique :
je consoi un logiciel de communication avec le port com.
J'aimerais tapé les commande dans la même textBox que celle ou je reçois. Donc j'ai dejas des chose d'écrite dans ma boite texte mais je voudrais récupéré que ce que je rajoute ( mes commade) je veut pas Text1.Text mais un autre truck si sa existe.
ou sinon ( Text1.text - Tampon ) mais je ne c'est pas la sintaxe.
