Private Sub Timer1_Timer() Form.Caption = Right(Form.Caption, Len(Form.Caption) - 1) & Left(Form.Caption, 1) End Sub
Original !!!
c'est copieur ou un voleur de code puisque bestfraggeur en a fait un aussi.mais lui y c'est donné la peine de mettre une source pas comme toi !
c'est copieur ou un voleur de code puisque bestfraggeur en a fait un aussi.mais lui y c'est donné la peine de mettre une source pas comme toi ! je te met 1/10 parceque ont peut pas mettre moin !!!!
ps: ca marche aussi dans un label
en même temps c'est pas super super ce code alors pour le voler faut vraiment etre pire que tout ou moins que rien comme on veut mais en tout cas pas grand chose. Histoire de te conserver une moyenne stable je met 1/10 aussi
darkteam, merci de faire gaffe a ce que tu saisis, et de ne pas envoyer 4 fois les mêmes messages...
oui ça va, ça tient la route, mais tu n'as que ça à faire?
Salut moi qui suis débutant je trouve ca plutot pas sympatique. Par contre les PSYCOPATES qui critiquent comme ca je trouve ca moins sympatique lol. On peut critiquer qq qui ne fait rien mais le propre de ce forum me semble t'il est de partager pour une meilleure connaissance. Donc merci loulalay .
La critique est aisée... Chacun est libre de penser ce qu'il veux mais en l'occurence tu nous pollue darkteam et saches que si toi tu as le droit de penser que ca n'a aucun interet...(pour toi) ... merci de v*bien vouloir accorder ce meme droit aux autres qui estimeront utile la presence de cette source... Bonne prog à tous (et de tout niveau)
On pourrais améliorer quelques peu le code , en faisat simplement : Private Sub Timer1_Timer() Me.Caption = Mid$(Me.Caption, 2) & Left&(Me.Caption, 1) End Sub
Dis donc, darkteam, ça t'arrive de te calmer des fois ? Quand on met des commentaires, on parle généralement plus de la source que de celui qui l'a faite... Alors bon, une fois que tu aura compris ça, peut-être aura-tu une chance d'avoir l'air d'être un -euh...- bon membre de ce site ? Pour le code en lui-même, j'ai l'impression qu'il se contente de faire passer la dernière lettre du titre au début... Il faudrait créer un variable et l'incrémenter en bouclant sur la longueur du titre, et en reprenant le code de Renfield, remplacer Mid$(Me.Caption, Var + 1) & Left$(Me.Caption, Var)... Saros
Oups, non rien j'ai rien dit.
Merci...
Mais de toute façon, avec tous les gens qui sont sur terre, c'est sûrement possible et même normal que plusieurs pensent à la même chose et qu'ils la fassent de la même façon. Je crois que tu l'accuse un peu vite et que tu t'es un peu trop laissé emporté. Moi, je trouve l'idée très bonne. :)
l'idee est sympa elle s'applique avec une seule ligne de code que du tres simple c'est excellent !!!!!
cela dit, on peu tt compliker just 4 Fun ! ac des timer ... ^^ looool
m'enfin, j'me comprend, mé po sur pr lé zotre ... lol
J'ai un gros probleme est ce que quelqu'un pourrait eclerait ma lenterne svp comment ecrit on la commande left et right en vb2005 le code :Form.Caption = Right(Form.Caption, Len(Form.Caption) - 1) & Left(Form.Caption, 1) voila en vb2005 :Me.Text = Right(Me.Text, Len(Me.Text) - 1) & Left(Me.Text, 1) le problem est que right et left ne sont pas des commandes reconnues comme dans vb6
méthode SubString de ton Objet String
ok substring mais je voit pas comment utiliser ce substring voila le code : Me.Text = Right(Me.Text, Len(Me.Text) - 1) & Left(Me.Text, 1) pourait tu ecire le code avec le substring stp
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 873 764 membres 53 nouveaux aujourd'hui 16 151 membres club