begin process at 2012 02 16 09:12:58
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > Forum > 

Archive Visual Basic & VB.NET

 > 

Archives Visual Basic

 > 

J'AI BESOIN D'AIDE !!!! :)

 > 

simplification de code

Derniers messages déposésPoser une question dans le forum ou lancer une discussion

simplification de code

lundi 7 février 2005 à 14:10:49 | simplification de code

manureva10

Membre Club

For i = 1 To 10 Step 1

TextBox1.Text = TextBox1.Text & vbCrLf & a & " * " & i & " = " & 1 + i

TextBox2.Text = TextBox2.Text & vbCrLf & a & " * " & i & " = " & 1 + i

TextBox3.Text = TextBox3.Text & vbCrLf & a & " * " & i & " = " & 1 + i

TextBox4.Text = TextBox4.Text & vbCrLf & a & " * " & i & " = " & 1 + i

TextBox5.Text = TextBox5.Text & vbCrLf & a & " * " & i & " = " & 1 + i

TextBox6.Text = TextBox6.Text & vbCrLf & a & " * " & i & " = " & 1 + i

TextBox7.Text = TextBox7.Text & vbCrLf & a & " * " & i & " = " & 1 + i

TextBox8.Text = TextBox8.Text & vbCrLf & a & " * " & i & " = " & 1 + i

TextBox9.Text = TextBox9.Text & vbCrLf & a & " * " & i & " = " & 1 + i

TextBox10.Text = TextBox10.Text & vbCrLf & a & " * " & i & " = " & 1 + i

TextBox11.Text = TextBox11.Text & vbCrLf & a & " * " & i & " = " & 1 + i

TextBox12.Text = TextBox12.Text & vbCrLf & a & " * " & i & " = " & 1 + i

Next i
peut t'on simplifier ce code
merci
sachant que a a une valeur differente a chaque ligne
lundi 7 février 2005 à 15:06:23 | Re : simplification de code

econs

Administrateur CodeS-SourceS
Réponse acceptée !
Il y a de très grandes chances que ce code soit simplifiable.
Mais il faut que tu dises quelles sont ces valeurs si particulières que 'a' prend à chaque ligne. Ensuite, ce sera facile!
Mais aussi : VB6 ? VBA ?  la solution ne sera pas la même dans les deux cas.



Autre chose :

TextBox12.Text = TextBox12.Text & vbCrLf & a & " * " & i & " = " & 1 + i
ne devrait-elle pas se transformer en :
TextBox12.Text = TextBox12.Text & vbCrLf & a & " * " & i & " = " & a *  i
?

Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
lundi 7 février 2005 à 15:13:38 | Re : simplification de code

manureva10

Membre Club
pardon pour +  aux lieu * mais vu trop tard
merci
lundi 7 février 2005 à 15:20:03 | Re : simplification de code

econs

Administrateur CodeS-SourceS

Bah de rien ... mais on n'a pas encore réglé ton problème il me semble ...


Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
lundi 7 février 2005 à 23:20:32 | Re : simplification de code

cqui789
Je verai bien un controlArray, non?
mardi 8 février 2005 à 08:58:26 | Re : simplification de code

crenaud76
Je pense qu'il faudrait mettre un groupe de controle avec une boucle superposé à ta boucle sur i de1 à 10. Si tu n'es pas en VBA mais en VB6 ca le fera:
1- Place untextbox nommé textbox1 sur une form
2- fixe sa propriété index à 0
3- Dans ton code création des n textbox vooulu :
For i = 1 to n
Load textbox1(i)
With textbox1(i)
  .move ... ...  'Mettre la textbox la ou il faut
  .visible =  true  'Obligatoire sinon elle n'apparaitra pas
End with
4- Rempalce ton code par ceci :

For t = 1 to n
  For i = 1 To 10 ' Step 1 est inutile !

    with TextBox1(t)
     .Text = .Text & vbCrLf & a & " * " & i & " = " & 1 + i
    end with
  next
next



Christophe R
mardi 8 février 2005 à 09:59:14 | Re : simplification de code

econs

Administrateur CodeS-SourceS
crenaud> La variable 'a' doit également varier ... mais comment ??
Je voyais bien aussi des groupes de contrôles,mais là, il faudrait qu'il se manifeste.

Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
mercredi 9 février 2005 à 08:26:04 | Re : simplification de code

crenaud76
Au pire, si a varie,il varie dans une boucle for ... next ou while ...wend, ce n'est qu'une couche à rajouter rien de terrible Christophe R
mercredi 9 février 2005 à 09:19:22 | Re : simplification de code

cqui789
si c'est un feuille avec les tables de multiplication que tu veux afficher, tu peux adapter le code suivant.
le label Table(0) est pose sur la feuille avec visible = False
j'ai utilise des labels parceque je n'ai pas trouve le WordWrap des Textbox.


Private Sub Form_Load()
Dim i As Integer, j As Integer
For i = 1 To 10
    Load table(i)
    With table(i)
        .Visible = True
        .Left = ((i - 1) Mod 5) * .Width + 200
        .Top = Int((i - 1) / 5) * .Height + 200
        .Caption = "table des " & i & vbCrLf
        For j = 1 To 10
             .Caption = .Caption & vbCrLf & i & "x" & j & "=" & i * j
        Next
    End With
Next
End Sub


Cette discussion est classée dans : text, code, vbcrlf, textbox1, simplification

Répondre à ce message

Sujets en rapport avec ce message

Probleme d'insertion d'enregistrement [ par nad ] J'ai un probleme : comment inserer un enregistrement dans une table à la suite des autres enregistrements. j'ai le code ci dessous, ca m'insere le nou Utilisation de la methode find? [ par nad ] Comment trouver un enregistrement dans une table?J'ai le code suivant :Private Sub valider_Click() Dim num As Integer Dim trouve As Boolean PB de mise en forme dans un Rich text box [ par julian ] Cé pas trés facil donc je vé tenter de vous expliquer correctement:J'ai un controle Rich text box et un boutton. Lorsque je clique sur le boutton, un Aidez moi !! SVP [ par bassman64 ] J'aimerais que lorsque un chiffre est plus petit que 10 dans textbox1, que sa affiche dans textbox2 le chiffre de textbox1 et une "-". Mais je n'arriv Comment faire pour savoir le width d'un textbox1.text ??? [ par PILOTEX ] Voilà je voudrais savoir comment on fait pour savoir le width d'un textbox1.text. Pour mieux expliquer, il faut que je sache la longueur du text situe se connecter a multimania avec winsock [ par Stephane ] salut a tousje voudrai me connecter a mon site perso avec winsock pour récupérer le code source d'une page. j'utilise un code de nix : Winsock1.Remo Code VBA.URGENT!!!! [ par fakir51 ] bonjour,j'aurai besoin du code complet qui permet de vérifier si la valeur entrée dans un controle d'un formulaire a déjà été entrée car j'ai tenté d' probleme de text [ par z980x ] J'ai fais un prog qui permet de faire des msgbox mais je n'arrive pas a trouver comment faire pour permettre a l'utilisateur de voir le code qu'il a c Textbox [ par Benzoid ] Je veux lorsque je tape . sur le clavier que le prog me mette 0, dans la textbox et la variable varMon problème est que le curseur avec mon code se re remplacer les vbcrlf par un | comment faire [ par Zmasteur ] je voudrais savoir comment ramplacer tout les vbcrlf d'un textbox en "|".jai essayer cet méthod et sans suces:Public Function Cryptemsg(text As String


Nos sponsors


Sondage...

Comparez les prix


Archos Tablette PC ARNOVA ARNOVA 10 4GB
Entre 200€ et 210€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,640 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)