Problem avec Textbox.Résolu

Question

Bonjour ! 

J'ai un problem avec mon Textbox dans le chat que j'ai cree avec un ami jesper que vous pourez m'aidez.

Voila j'explique le probleme :

Je demare de Chat nikel , j'envoie mon messeage , (c'est l&#224; que sa se gate) mon textbox se mais a sauter une ligne .

Pourquoi mon textbox saute une ligne alors que j'ai rien demand&#233; ????

Merci d'avance

Gobillot · Accepted Answer

il s'agit de d&#233;tecter la touche Shift dans KeyPress,

ton code pourra se placer dans KeyPress,

et l&#224; KeyAscii = 0 sera effectif.





Dim Bool As Boolean



Private Sub Txtmessage_KeyDown(KeyCode As Integer, Shift As Integer)

    If KeyCode 16 Then Bool True

End Sub



Private Sub Txtmessage_KeyPress(KeyAscii As Integer)

    If Not Bool And KeyAscii = 13 Then

       KeyAscii = 0

       Cmdsend_Click

       Txtmessage = ""

       End If

End Sub



Private Sub Txtmessage_KeyUp(KeyCode As Integer, Shift As Integer)

    If KeyCode 16 Then Bool False

End Sub


Daniel

Beuzzette · Answer

D&#233;sole d'avoir &#233;cris gros ....

J'alais oublier aussi mon ami et moi nous avons mis une commande pour envoyer le texte en apuyant sur entree. 

Est-ce que &#231;a a un rapport ??

dxh_master · Answer

oui je croit c'est quoi le code ???

Beuzzette · Answer

Je te remercie d'avoir repondu aussi vite !!

Private Sub Txtmessage_KeyDown(KeyCode As Integer, Shift As Integer)
If Not Shift And KeyCode = 13 Then

     Cmdsend_Click
     KeyCode = 0
   txtmessage = ""
End If
 End Sub

Voila jesper que tu va pouvoir m'aider ...

Merci d'avance

ScSami · Answer

Essai d&#233;j&#224; comme &#231;a :

Private Sub Txtmessage_KeyDown(KeyCode As Integer, Shift As Integer)
  If Not Shift And KeyCode = vbNewLine Then
    Cmdsend_Click
    txtmessage = ""

    KeyCode = 0
  End If
End Sub

D'un parce que les constantes VB c'est bien pratique, plus propre et plus fiable &#224; lon terme que les valeurs elles-m&#234;mes (13). Mais bon, si &#231;a ne fonctionne plus, remet ton 13 mais &#231;a m'&#233;tonnerais fort!
Je crois qu'il est pr&#233;f&#233;rable de mettre txtmessage="" avant le fameux KeyCode=0

Mais ton probl&#232;me bient peut-&#234;tre de plus haut! Ton code me para&#238;t correcte m&#234;me si je ne l'ai pas test&#233;. Mais il y a souvent des probl&#232;mes de r&#233;cursivit&#233; qui peuvent parfaitement provoquer ce genre de trucs.

Tu peux les bloquer en cr&#233;ant une variable globale... :

Dim varAntiRecursif As Boolean
...
Sub machin(...)
 If varAntiRecursif = True Then Exit Sub
 varAntiRecursif = True
 ... If bidule truc Then varAntiRecursif False : Exit Sub
 ...
 varAntiRecursif = False
End Sub

Fait &#231;a dans toutes tes proc&#233;dures et en particulier dans Cmdsend_Click !!!

Le probl&#232;me vient sans doute lors du chargement o&#249;, justement, &#233;tant donn&#233; que les contr&#244;les s'initialisent et peuvent donc interagire entre eux lors de cette phase, il arrive fr&#233;quement des trucs qu'on n'attendait pas.

Sinon, j'ai du mal &#224; voir d'o&#249; peut venir ton prob si ce n'est dans Cmdsend_Click !

Enjoy 

<hr size="2" width="100%">
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )

Gobillot · Answer

>> d&#233;sol&#233; ScSami 





KeyCode = vbNewLine



    KeyCode ne sera jamais &#233;gal &#224; vbNewLine

    KeyCode est un int&#233;ger et vbNewLine une cha&#238;ne sur 2 caract&#232;res



KeyCode = 0



    est sans effet, il faut mettre le code dans KeyPress:



   Private Sub Text1_KeyPress(KeyAscii As Integer)

       KeyAscii = 0

   End Sub



   par contre txtmessage = "" devrait marcher

   &#231;a supprime le texte et les sauts de lignes aussi,

   il doit se passer quelque chose apr&#232;s, li&#233; au fait que la touche n'est pas effac&#233;e.



Daniel

ScSami · Answer

Oui, en effet, autant pour moi... d&#233;sol&#233;!

Enjoy 

<hr size="2" width="100%">
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )

PCPT · Answer

ummm... salut,



si Enter sans Shift, alors ... appel bouton_Click

ouai, mais enter a &#233;t&#233; tap&#233;.



     Cmdsend_Click
     KeyCode =  0
   txtmessage = ""






peut-&#234;tre enlever le Enter avant nan?

et comme tu as (ici) copier/coller ton code, pourquoi ton &#233;v&#232;nement
contient-il une majuscule et pas ton contr&#244;le.... une variable du m&#234;me
nom??



KeyCode = 0


Cmdsend_Click
Txtmessage.Text = ""






et logiquement, ta zone de texte devrait &#234;tre vid&#233;e  dans  la Sub Click....



et pour finir, et c'est aussi de l&#224; ou vient le probl&#232;me, t'as beau annuler le enter (KeyCode =0), ce n'est pas &#231;&#224; qui d&#233;-enfonce la touche...

autrement dit : ton code doit &#234;tre dans l'&#233;v&#232;nement Txtmessage_KeyUp     



@+

PCPT   [AFCK]

Beuzzette · Answer

Je vous remercie les gars d'avoir repondu aussi vite je vais tester tout de suite.

Beuzzette · Answer

Non , le code de Tcpt ton code ne marche pas maintenant ej vais tester les codes de Gobillot

Gobillot · Answer

n'oublie pas de mettre le test.

est-ce que tu as autre chose dans Txtmessage_
KeyPress

ou dans Txtmessage_
KeyUp,

un truc qui rajoute un vbCrLf dans Txtmessage ?





Private Sub Txtmessage
_KeyPress(KeyAscii As Integer)

    If KeyAscii = vbKeyReturn Then

       KeyAscii = 0

       End If

End Sub


Daniel

Beuzzette · Answer

Salut !!

Les code que vous m'avez proposer ne marche pas .

Un autre question est-ce possble b'activer les lien dans mon chat c'est a dir que des que j'ecris genre :http://.......com il se mais en bleu et je peut clique sur le lien.

Si on peut sa m'interesse svp

Beuzzette · Answer

le test pour ton code j'avais mi sa

Private Sub Txtmessage_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
       KeyAscii = 0
       End If
End Sub  sa marche mais je ne peut plus envoyer avec entre.

par contre j'ai tester sa:

Private Sub Txtmessage_KeyUp(KeyCode As Integer, Shift As Integer)
If Not Shift And KeyCode = 13 Then
     KeyCode = 0
     Cmdsend_Click
   txtmessage = ""
End If
 End Sub

Sa marche mais je ne peut plus sauter de lignes. Ya t-il une solution ??

Merci d'avance
++

Beuzzette · Answer

ENfin je peut sauter des lignes mais elel revien automatiquement en premier ligne... C'est c**** si sa revien toujour

Gobillot · Answer

pas la peine de mettre KeyPress et KeyUp &#224; la fois.

&#224; quel moment tu rajoutes des lignes ?

Txtmessage = Txtmessage & nouveau_message & vbCrLf





Private Sub Txtmessage_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
       KeyAscii = 0
       Cmdsend_Click
       txtmessage = ""   
End Sub



Daniel

Beuzzette · Answer

Nop sa ne marche pas  

Mais on peut pas mettre un code pour empecher au curseur qui clignote a revnir a la premier ligne du textbox ??

Car si je mais sa 

Private Sub Txtmessage_KeyUp(KeyCode As Integer, Shift As Integer)
If Not Shift And KeyCode = 13 Then
     KeyCode = 0
     Cmdsend_Click
   txtmessage = ""
End If
 End Sub

Sa marche nikel sauf que le curseur remonte a la premier ligne des que je fais Shift + Entr&#233;e ( pour sauter une ligne quoi )

Gobillot · Answer

je ne comprends pas, ton TextBox devrait &#234;tre vide ???

ton test est faux, Shift n'est pas un Booleen:

    If Shift 0 And KeyCode 13 Then ...

d'autre part je pense que KeyCode = 0 n'a aucun effet ici



Daniel

PCPT · Answer

on en revient donc &#224; mon code plus haut.... ;)

si si, KeyCode = 0 au Up, &#231;&#224; fonctionne.

Gobillot · Answer

en effet: 

Shift=0 et not Shift = -1 donc est vrai

Shift 1 et not Shift -2 est toujours aussi vrai





ce qui me g&#234;ne c'est que:

soit tu relache la touche Shift en premier, soit la touche Entr&#233;e, et ton code r&#233;agira diff&#233;remment


je maintien que Keycode = 0 n'a aucun effet


Daniel

PCPT · Answer

j'ai pas testé ton code Daniel ;) celui-ci fonctionne , à savoir shift+enter ne renvoie pas à la ligne....., ctrl+enter : oui, enter = CMD ' TextBox : TxtMessage ' TextBox : TxtDial ' CommandButton : Cmdsend Option Explicit ' ' Private Sub TxtMessage_KeyUp(KeyCode As Integer, Shift As Integer) If (Shift <> 1) And (Shift <> 2) And KeyCode = 13 Then KeyCode = 0 Call Cmdsend_Click Exit Sub End If End Sub ' ' Private Sub TxtMessage_KeyPress(KeyAscii As Integer) If KeyAscii 13 Then KeyAscii 0 End Sub ' ' Private Sub Cmdsend_Click() ' ton message Dim sMess As String sMess = Trim$(TxtMessage.Text) TxtMessage.Text = "" ' puis après surement If sMess <> "" Then TxtDial.Text = TxtDial.Text & vbCrLf & Time & "> PSEUDO : " & sMess TxtDial.SelText = Len(TxtDial.Text) ' et le socket avec sMess en paramètre, genre..... 'WinS.SendData sMess & vbcrlf: DoEvents End If TxtMessage.SetFocus End Sub Coloration syntaxique automatique [AFCK] (la demande ne portait pas sur "passer à la ligne avec Shift") ++ PCPT [AFCK]

PCPT · Answer

Exit Sub dans KeyUp inutile....

Beuzzette · Answer

Merci a vous tous les gars vs ete trop simpa 

sa marche nikel !!! Vr&#233;ment merci de m'avoir aid&#233; !!

PCPT · Answer

pense &#224; valider la ou les r&#233;ponses...

@+

[AFCK]

PCPT · Answer

oups ok, pardon ^^

Beuzzette · Answer

np

Beuzzette · Answer

Salut a tous !!
C'est toujour au sujet du chat que je cree avec mon pote. Je voudrai savoir si c'est possible d'activer les lien internet dans notre Chat ???

Merci d'avance
Beubeu

Gobillot · Answer

t'as raison d'avoir pos&#233; la question sur un nouveau post.

avec un TextBox tu feras pas grand chose

un RichTextBox c'est d&#233;j&#224; mieux, mais je vois rien de sp&#233;cial pour activer un lien automatiquement.

en plus c'est pas un container et on peut pas mettre les liens dans un Label s&#233;par&#233;.

il faudrait d&#233;tecter le click de la souris, allez chercher le lien peut &#234;tre en fonction d'une couleur

et lancer ShellExecute.


Daniel

ScSami · Answer

Non mais en revanche tu peux utiliser du HTML via le contr&#244;le de IE (je ne me souvient plus du mon pr&#233;cis [Gobillot, une id&#233;e!?]). C'est le seul moyen "propre" de mettre des liens hypertexuels. En plus, tu auras acc&#232;s &#224; tous les aventages du HTML (G I S ), ...

Le seul truc c'est qu'il faut que IE soit install&#233; sur tous les clients...

Enjoy 

<hr size="2" width="100%">
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )

Gobillot · Answer

tu veux parler du WebBrowser

L&#224; on passe &#224; un niveau sup&#233;rieur.

n&#233;anmoins voici un lien avec un RichTextBox, un &#233;diteur HTML, un WebBrowser, ...



http://www.vbfrance.com/code.aspx?id=8421
Daniel

Beuzzette · Answer

Ok merci je vais allez voir sa

Beubeu

Beuzzette · Answer

Quand je veux ouvri le projet pour voir comment c'est fais VB m'indique qu'il me manque un fichier MSOWC.Dll ou pourrai-je le dwonload ???

Merci d'avance

Beuzzette · Answer

Pour le chat j'aimerai juste des boutons Gras , Italique , Souligner et les lien internet.

C'est possible de Cree un FrmInternet avec dedans un code qui dirige le lien par son navigateur par defaut ???

Si c'est possible repondez moi svp 

Merci d'avance

Beuzzette · Answer

En relisant ton message ScSami je me dis que sa irai bien sur le cht mais le seul problem c'est que je suis debutant et que je comence a metreiser certain truc . Pourrai tu me passe un exemple de code ? Ca serai simpa de ta par. J'ai un problem aussie avec le Richtxtbox kan je veux teste il me signale une erreur. Il me surligne sa:

couleurmsg =  Module2.Lecture_Valeur_Cle_Fichier_INI(chemin, "couleur", "couleurmsg", cmsg)
couleurh = Module2.Lecture_Valeur_Cle_Fichier_INI(chemin, "couleur", "couleurh", ch)
couleurpseu = Module2.Lecture_Valeur_Cle_Fichier_INI(chemin, "couleur", "couleurpseu", cpseu)
couleurfond = Module2.Lecture_Valeur_Cle_Fichier_INI(chemin, "couleur", "couleurfond", cfond)
couleurinfo = Module2.Lecture_Valeur_Cle_Fichier_INI(chemin, "couleur", "couleurinfo", cinfo)
couleurform = Module2.Lecture_Valeur_Cle_Fichier_INI(chemin, "couleur", "couleurform", cform)
txtmessages.BackColor = couleurfond
txtmessage.BackColor = couleurfond
 txtmessage.ForeColor = couleurmsg 
Listpseudos.BackColor  = couleurfond
Listpseudos.ForeColor = couleurmsg
frmchat.BackColor = couleurform
Label1.BackColor = couleurform

Est que j'ai fais une erreur ??? 

Aidez moi plz

PCPT · Answer

M&#233;thode ou Membre de donn&#233;e introuvable signifie que la propri&#233;t&#233; ForeColor n'existe pas sur les RichTextBox

PCPT    [AFCK]

Beuzzette · Answer

Que puis-je faire a la place ? Car si je mais un txtbox multiligne + scrollbar sa marche impec et si je mais aussi une Reytxtbox sa marche aussi pourquoi pas avec les RichTextBox ??

Merci d'avance des aides que vous pourrai me donn&#233;es

PCPT · Answer

parce que ReyTxtBox est un composant personnel de RenField et que la
simple RichTextBox (qui elle par ailleurs, n'est pas libre de droits
pour sa redistribution) ne g&#232;re pas le ForeColor.

pour un d&#233;butant, il n'y a pas grand chose &#224; faire. utilise un autre composant....

faut pas griller les &#233;tapes ;)

Beuzzette · Answer

Ok merci du conseil je vais mettre alors un Reytxtbox come sa pas de problemes. A aussi j'aurai encors besoin de vote aide. Je voudrai mettre des status (en ligne ....etc) je l'ai ai  mis dans un combobox.Maintenet il me reste plus qu cree un lien avec frmconction.pseudo.Text et CmbStatus comment pourai-je cre e le lien ??

Dsl si je vous soule un peux avec mes questions peut etre bete a vos yeux 

Merci

PCPT · Answer

tu en dis peu.....

si par exemple, le changement (&#233;v&#232;nement Click) du combo suffit (tr&#232;s
illogique), alors c'est dans cet &#233;v&#232;nement que tu changes le label du
StatutBar.

sinon (le plus logique), le m&#234;me &#233;v&#232;nement Click envoie une commande
connue du Serveur (en transparence) indiquant la demande du nouvel &#233;tat
(away, etc.....) qui lui, renvoie &#224; tout le monde (les utilisateurs
connect&#233;s) ce nouvel &#233;tat accept&#233;, et te renvoie une commande par le
winsock, qui te permet alors de changer le statuBar...

Beuzzette · Answer

SAlut ! 

Je m'explique lol. 
J'ai  mis un ComboBox nomm&#233; CmbSatus , dans une Frm nomme frmChat et je voudrai que les status que j'ai insere sois entre parenthese a coter des pseudos connectes. Et les pseudo on rentre dans une frm qui se nomme frmconnexion.

je voudrai que sa fasse un truc dans le Style :

Trucbidule ( En Ligne)

Est-ce possible ?? Si oui comment Aidez moi Plz 

Merci d'avance

PCPT · Answer

bon, je te fais un exemple : j'espère que çà répondra.... ' ----- ' Form1 ' ----- ' Option Explicit ' ' Private Sub Form_Load() Cbo_State.AddItem "On Line" Cbo_State.AddItem "Hidden" Cbo_State.AddItem "Away" Cbo_State.AddItem "Visitor" ' Cbo_State.ListIndex = 0 ' Txt_Pseudo.Text = "Beuzzette" End Sub ' ' Private Sub Cmd_Connection_Click() Form2.Show End Sub ' ----- ' Form2 ' ----- ' Option Explicit ' ' Private Sub Form_Load() StatusBar.Panels(1).Width = 2000 StatusBar.Panels(1).Text = Form1.Txt_Pseudo.Text & _ " (" & Form1.Cbo_State.Text & ")" Unload Form1 End Sub Coloration syntaxique automatique [AFCK] PCPT [AFCK]

Beuzzette · Answer

Je te remercie beaucoup de ton aide

Beuzzette · Answer

Le statuBar c'est quoi un combobox ???

Beuzzette · Answer

Laisse tomber j'ai trouver tout seul

Problem avec Textbox.

43 réponses

Discussions similaires