simplification de code - Archives Visual Basic / J'AI BESOIN D'AIDE !!!! :), Visual Basic, VB6, VB.NET, VB 2005, VB

Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 22:06:28

MICROSOFT VOUS PERMET DE TESTER ECMASCRIPT 5 (ES3.1) par FREMYCOMPANY

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

RE : PROBLEME D'ECRITURE DE CODE par Mayzz

RE : FONCTION COMBOBOX par shenkool

RE : SAUVEGARDE DATASET IMPOSSIBLE par Alastor99

SAUVEGARDE DATASET IMPOSSIBLE par Alastor99

+ de logiciels à télécharger

1 465 545 membres
582 nouveaux aujourd'hui
15 048 membres club

Trouver une ressource

Trouvez une ressource parmi 40 098 codes, 1 303 365 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Poser une question

Sujet : simplification de code [ Archives Visual Basic / J'AI BESOIN D'AIDE !!!! :) ] (manureva10)

Informations & options pour cette discussion

Vous êtes ici : Thèmes / Archive Visual Basic & VB.NET / Archives Visual Basic / J'AI BESOIN D'AIDE !!!! :) / simplification de code
Ce sujet vous interesse ? Cliquez ici pour être averti quand il y a une nouvelle réponse

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

manureva10

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

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	pardon pour + aux lieu * mais vu trop tard merci
	Rép. MP 19 msg

lundi 7 février 2005 à 15:20:03 | Re : simplification de code

econs	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.
	Rép. MP 3031 msg 3344 msg CS

lundi 7 février 2005 à 23:20:32 | Re : simplification de code

cqui789	Je verai bien un controlArray, non?
	Rép. MP 210 msg

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	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.
	Rép. MP 3031 msg 3344 msg CS

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
	Rép. MP 4083 msg 4095 msg CS

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é 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