Birkin VB
Messages postés26Date d'inscriptionvendredi 25 mai 2007StatutMembreDernière intervention25 octobre 2009
-
31 mars 2008 à 01:59
lillith212
Messages postés1229Date d'inscriptionvendredi 16 novembre 2007StatutMembreDernière intervention16 juin 2009
-
31 mars 2008 à 14:32
bonjour une personne pouré m'aider pour cette source en vb http://ma-zone.fr/vbsource.rar je voudré métre se qui safiche en message box dans le textbox sen les {i}
Birkin VB
Messages postés26Date d'inscriptionvendredi 25 mai 2007StatutMembreDernière intervention25 octobre 2009 31 mars 2008 à 02:35
je vous mes les source
module
Public Function sCaption(sData As String) As String
Dim tData As String
Dim tCaption As String
tData = Mid(sData, 4, Len(sData) - 6) 'ben oui on ne veut pas avoir {I} dans le resultat final'on va recherche les espace(on aurait pu mettre un autre terme mais jai choisi celui ci pour faire une coupure et le blindage(vous pouvez en changer en modifiant command1_click de projet 1, ligne If i < Len(Text1.Text) + Val("1") Then sC sC & Mid(Text1.Text, i, 1) Else sC sC & " ")
Dim i
For i = 1 To Len(tData)
If Mid(tData, i, 1) <> " " Then tCaption = tCaption & Mid(tData, i, 1) Else Exit For 'on enleve les espace, on neglig le fete k l'usager ecrive aves des espaces
DoEvents
Next i
sCaption = tCaption 'on envoi le resulatat
End Function
form
Private Sub Command1_Click()
'un ti apercu sans et avec la fonction
MsgBox Label1.Caption
MsgBox sCaption(Label1.Caption)
End Sub
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 31 mars 2008 à 02:55
Salut
Rien pigé à ton histoire de {i}
Si tu veux mettre ce que renvoie la fonction sCaption vers une TextBox, il te suffit de faire
maTextBox.Text = sCaption(Label1.Caption)
Et le langage SMS dans les commentaires, c'est pas top pour comprendre quelque chose ...
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 31 mars 2008 à 09:11
Salut,
De plus si c'est Label1.Caption qui contient des {i} il aurait été bon de nous dire ce que contient exactement ce label, ce que tu souhaites exactement comme résultat.
lillith212
Messages postés1229Date d'inscriptionvendredi 16 novembre 2007StatutMembreDernière intervention16 juin 2009 31 mars 2008 à 14:32
Bonjour,
En effet, le texte en sms c'est tres difficile à comprendre.
Alors 2 petites choses :
- Si tu parles des "i" dans le code que tu présentes, ca va etre difficile dans le sens ou "i" est une variable
- Sinon je rejoins Jack dans son écriture :
Text1.Text = sCaption(Label1.Caption)
Ton problème est trop flou pour que tu puisses obtenir une autre réponse. Reformule le clairement et la je pense que tu auras ta solution...