5/5 (6 avis)
Vue 15 819 fois - Téléchargée 313 fois
Dim FlagB As Boolean 'Fonctions utilisés : '-------------------- 'InStr : Combien d'espaces sont dans ma string 'InStreRev : Retour la place du 1er espace en partant de la droite 'Left : retourne une string coupée a partir de la gauche 'Right : retourne une string coupée a partir de la droite Function SupprimeEspace(ByVal Phrase As String) Dim ChercheCaratere As String = " " Dim strDroite As String Dim strGauche As String Do While Microsoft.VisualBasic.InStr(Phrase, " ") <> 0 Dim PlaceEspace As Integer = InStrRev(Phrase, " ") strGauche = Microsoft.VisualBasic.Left(Phrase, PlaceEspace - 1) strDroite = Microsoft.VisualBasic.Right(Phrase, Len(Phrase) - PlaceEspace) Phrase = strGauche & strDroite Loop Return Phrase End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.TextBox2.Text = SupprimeEspace(Me.TextBox1.Text) FlagB = True Timer1.Start() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub 'Gyrophare Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick If FlagB = True Then FlagB = False Me.TextBox2.ForeColor = System.Drawing.Color.Black Else FlagB = True Me.TextBox2.ForeColor = System.Drawing.Color.Red End If End Sub
4 oct. 2004 à 11:38
... ici il est en bas du code
c'est le timer qui retir les espace de droit puis de gauche et puis de droite.... etc..
4 oct. 2004 à 09:33
29 sept. 2004 à 19:10
28 sept. 2004 à 19:46
c'est le "supprimer les espaces", ca me semblait etrange!
28 sept. 2004 à 19:31
Mais pour ceux qui ne connaissent pas left et right ...
sinon c "supprimer les espaces" ou le "gyrophare" qui t'as fait venir voir ma source ???
lol
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.