code à rallonge solution pour le raccourcir

bonjour,
voilà j'ai créer une form permettant d'afficher des identifiants et mot de passes, celle-ci est composer de :
1 label et 1 textbox "recherche"
1 boutton "valide"
1 label "id" et 10 textbox "Id"
1 label "mdp" et 10 textbox "mdp"

le principe est :
si texbox "recherche" = vide
alors label "id & "mdp" visible = false
et
boutton "valide" enabled = false

voilà pourquoi dans le code vous pourrez voir que j'utilise plusieurs fois :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

BtValide.Enabled = False 'chache les label LabelId.Visible = False LabelMdp.Visible = False 'cache les textbox ID TextBox1Id.Visible = False TextBox2Id.Visible = False TextBox3Id.Visible = False TextBox4Id.Visible = False TextBox5Id.Visible = False TextBox6Id.Visible = False TextBox7Id.Visible = False TextBox8Id.Visible = False TextBox9Id.Visible = False TextBox10Id.Visible = False 'cache les textbox MDP TextBox1Mdp.Visible = False TextBox2Mdp.Visible = False TextBox3Mdp.Visible = False TextBox4Mdp.Visible = False TextBox5Mdp.Visible = False TextBox6Mdp.Visible = False TextBox7Mdp.Visible = False TextBox8Mdp.Visible = False TextBox9Mdp.Visible = False TextBox10Mdp.Visible = False

---

voici le code complet

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458

Public Class FrmIdMdp   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load BtValide.Enabled = False 'chache les label LabelId.Visible = False LabelMdp.Visible = False 'cache les textbox ID TextBox1Id.Visible = False TextBox2Id.Visible = False TextBox3Id.Visible = False TextBox4Id.Visible = False TextBox5Id.Visible = False TextBox6Id.Visible = False TextBox7Id.Visible = False TextBox8Id.Visible = False TextBox9Id.Visible = False TextBox10Id.Visible = False 'cache les textbox MDP TextBox1Mdp.Visible = False TextBox2Mdp.Visible = False TextBox3Mdp.Visible = False TextBox4Mdp.Visible = False TextBox5Mdp.Visible = False TextBox6Mdp.Visible = False TextBox7Mdp.Visible = False TextBox8Mdp.Visible = False TextBox9Mdp.Visible = False TextBox10Mdp.Visible = False '' End Sub   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtValide.Click   'DECLARATION Dim Site(9) As String Dim IdMsn(6) As String Dim MdpMsn(6) As String Dim IdGmail As String Dim MdpGmail As String Dim IdYoutube As String Dim MdpYoutube As String Dim IdDailymotion As String Dim MdpDailymotion As String Dim IdNoip(2) As String Dim MdpNoip(2) As String Dim IdLogmein As String Dim MdpLogmein As String Dim IdForum(3) As String Dim MdpForum(3) As String Dim IdFilezilla(9) As String Dim MdpFilezilla(9) As String Dim Autorisation As Boolean '************************************************   'chache les label LabelId.Visible = False LabelMdp.Visible = False 'cache les textbox ID TextBox1Id.Visible = False TextBox2Id.Visible = False TextBox3Id.Visible = False TextBox4Id.Visible = False TextBox5Id.Visible = False TextBox6Id.Visible = False TextBox7Id.Visible = False TextBox8Id.Visible = False TextBox9Id.Visible = False TextBox10Id.Visible = False 'cache les textbox MDP TextBox1Mdp.Visible = False TextBox2Mdp.Visible = False TextBox3Mdp.Visible = False TextBox4Mdp.Visible = False TextBox5Mdp.Visible = False TextBox6Mdp.Visible = False TextBox7Mdp.Visible = False TextBox8Mdp.Visible = False TextBox9Mdp.Visible = False TextBox10Mdp.Visible = False 'vide les texboxID TextBox1Id.Text = "" TextBox2Id.Text = "" TextBox3Id.Text = "" TextBox4Id.Text = "" TextBox5Id.Text = "" TextBox6Id.Text = "" TextBox7Id.Text = "" TextBox8Id.Text = "" TextBox9Id.Text = "" TextBox10Id.Text = "" 'vide les texboxMDP TextBox1Mdp.Text = "" TextBox2Mdp.Text = "" TextBox3Mdp.Text = "" TextBox4Mdp.Text = "" TextBox5Mdp.Text = "" TextBox6Mdp.Text = "" TextBox7Mdp.Text = "" TextBox8Mdp.Text = "" TextBox9Mdp.Text = "" TextBox10Mdp.Text = "" '*************************************** '*************LISTES DES SITES********** '*************************************** Site(0) = "*" Site(1) = "*" Site(2) = "*" Site(3) = "*" Site(4) = "*" Site(5) = "*" Site(6) = "*" Site(7) = "*" Site(8) = "*" Site(9) = "*" '*************************************** ' ' '*************************************** '*********LISTES DES ID & MDP*********** '*************************************** IdMsn(0) = "*" IdMsn(1) = "*" IdMsn(2) = "*" IdMsn(3) = "*" IdMsn(4) = "*" IdMsn(5) = "*" IdMsn(6) = "*" ' MdpMsn(0) = "*" MdpMsn(1) = "*" MdpMsn(2) = "*" MdpMsn(3) = "*" MdpMsn(4) = "*" MdpMsn(5) = "*" MdpMsn(6) = "*" '*************************************** IdGmail = "*" MdpGmail = "*" '*************************************** IdYoutube = "*" MdpYoutube = "*" '*************************************** IdDailymotion = "*" MdpDailymotion = "*" '*************************************** IdNoip(0) = "*" IdNoip(1) = "*" IdNoip(2) = "*" ' MdpNoip(0) = "*" MdpNoip(1) = "*" MdpNoip(2) = "*" '*************************************** IdLogmein = "*" MdpLogmein = "*" '*************************************** IdForum(0) = "*" IdForum(1) = "*" IdForum(2) = "*" IdForum(3) = "*" ' MdpForum(0) = "*" MdpForum(1) = "*" MdpForum(2) = "*" MdpForum(3) = "*" '*************************************** IdFilezilla(0) = "*" IdFilezilla(1) = "*" IdFilezilla(2) = "*" IdFilezilla(3) = "*" IdFilezilla(4) = "*" IdFilezilla(5) = "*" IdFilezilla(6) = "*" IdFilezilla(7) = "*" IdFilezilla(8) = "*" IdFilezilla(9) = "*" ' MdpFilezilla(0) = "*" MdpFilezilla(1) = "*" MdpFilezilla(2) = "*" MdpFilezilla(3) = "*" MdpFilezilla(4) = "*" MdpFilezilla(5) = "*" MdpFilezilla(6) = "*" MdpFilezilla(7) = "*" MdpFilezilla(8) = "*" MdpFilezilla(9) = "*" '*************************************** ' ' '*************************************** '********AFFICHAGE DES ID & MDP ******** '*************************************** ' "MSN" '*************************************** If TextBoxRecherche.Text = Site(0) Then Autorisation = True ' LabelId.Visible = True LabelMdp.Visible = True ' TextBox1Id.Visible = True TextBox2Id.Visible = True TextBox3Id.Visible = True TextBox4Id.Visible = True TextBox5Id.Visible = True TextBox6Id.Visible = True TextBox7Id.Visible = True ' TextBox1Mdp.Visible = True TextBox2Mdp.Visible = True TextBox3Mdp.Visible = True TextBox4Mdp.Visible = True TextBox5Mdp.Visible = True TextBox6Mdp.Visible = True TextBox7Mdp.Visible = True ' TextBox1Id.Text = IdMsn(0) TextBox2Id.Text = IdMsn(1) TextBox3Id.Text = IdMsn(2) TextBox4Id.Text = IdMsn(3) TextBox5Id.Text = IdMsn(4) TextBox6Id.Text = IdMsn(5) TextBox7Id.Text = IdMsn(6) ' TextBox1Mdp.Text = MdpMsn(0) TextBox2Mdp.Text = MdpMsn(1) TextBox3Mdp.Text = MdpMsn(2) TextBox4Mdp.Text = MdpMsn(3) TextBox5Mdp.Text = MdpMsn(4) TextBox6Mdp.Text = MdpMsn(5) TextBox7Mdp.Text = MdpMsn(6) End If ' "GMAIL" '*************************************** If TextBoxRecherche.Text = Site(1) Then Autorisation = True ' LabelId.Visible = True LabelMdp.Visible = True ' TextBox1Id.Visible = True TextBox1Mdp.Visible = True TextBox1Id.Text = IdGmail TextBox1Mdp.Text = MdpGmail End If ' "YOUTUBE" '*************************************** If TextBoxRecherche.Text = Site(2) Then Autorisation = True ' LabelId.Visible = True LabelMdp.Visible = True ' TextBox1Id.Visible = True TextBox1Mdp.Visible = True TextBox1Id.Text = IdYoutube TextBox1Mdp.Text = MdpYoutube End If ' "DAILYMOTION" '*************************************** If TextBoxRecherche.Text = Site(3) Then Autorisation = True ' LabelId.Visible = True LabelMdp.Visible = True ' TextBox1Id.Visible = True TextBox1Mdp.Visible = True TextBox1Id.Text = IdDailymotion TextBox1Mdp.Text = MdpDailymotion End If ' "NO-IP" '*************************************** If TextBoxRecherche.Text = Site(4) Then Autorisation = True ' LabelId.Visible = True LabelMdp.Visible = True ' TextBox1Id.Visible = True TextBox2Id.Visible = True TextBox3Id.Visible = True ' TextBox1Mdp.Visible = True TextBox2Mdp.Visible = True TextBox3Mdp.Visible = True ' TextBox1Id.Text = IdNoip(0) TextBox2Id.Text = IdNoip(1) TextBox3Id.Text = IdNoip(2) ' TextBox1Mdp.Text = MdpNoip(0) TextBox2Mdp.Text = MdpNoip(1) TextBox3Mdp.Text = MdpNoip(2) End If ' "LOGMEIN" '*************************************** If TextBoxRecherche.Text = Site(5) Then Autorisation = True ' LabelId.Visible = True LabelMdp.Visible = True ' TextBox1Id.Visible = True TextBox1Mdp.Visible = True TextBox1Id.Text = IdLogmein TextBox1Mdp.Text = MdpLogmein End If ' "FORUM" '*************************************** If TextBoxRecherche.Text = Site(6) Then Autorisation = True ' LabelId.Visible = True LabelMdp.Visible = True ' TextBox1Id.Visible = True TextBox2Id.Visible = True TextBox3Id.Visible = True TextBox4Id.Visible = True ' TextBox1Mdp.Visible = True TextBox2Mdp.Visible = True TextBox3Mdp.Visible = True TextBox4Mdp.Visible = True ' TextBox1Id.Text = IdForum(0) TextBox2Id.Text = IdForum(1) TextBox3Id.Text = IdForum(2) TextBox4Id.Text = IdForum(3) ' TextBox1Mdp.Text = MdpForum(0) TextBox2Mdp.Text = MdpForum(1) TextBox3Mdp.Text = MdpForum(2) TextBox4Mdp.Text = MdpForum(3) End If ' "FTP" '*************************************** If TextBoxRecherche.Text = Site(7) Then Autorisation = True ' LabelId.Visible = True LabelMdp.Visible = True ' TextBox1Id.Visible = True TextBox2Id.Visible = True TextBox3Id.Visible = True TextBox4Id.Visible = True TextBox5Id.Visible = True TextBox6Id.Visible = True TextBox7Id.Visible = True TextBox8Id.Visible = True TextBox9Id.Visible = True TextBox10Id.Visible = True ' TextBox1Mdp.Visible = True TextBox2Mdp.Visible = True TextBox3Mdp.Visible = True TextBox4Mdp.Visible = True TextBox5Mdp.Visible = True TextBox6Mdp.Visible = True TextBox7Mdp.Visible = True TextBox8Mdp.Visible = True TextBox9Mdp.Visible = True TextBox10Mdp.Visible = True ' TextBox1Id.Text = IdFilezilla(0) TextBox2Id.Text = IdFilezilla(1) TextBox3Id.Text = IdFilezilla(2) TextBox4Id.Text = IdFilezilla(3) TextBox5Id.Text = IdFilezilla(4) TextBox6Id.Text = IdFilezilla(5) TextBox7Id.Text = IdFilezilla(6) TextBox8Id.Text = IdFilezilla(7) TextBox9Id.Text = IdFilezilla(8) TextBox10Id.Text = IdFilezilla(9) ' TextBox1Mdp.Text = MdpFilezilla(0) TextBox2Mdp.Text = MdpFilezilla(1) TextBox3Mdp.Text = MdpFilezilla(2) TextBox4Mdp.Text = MdpFilezilla(3) TextBox5Mdp.Text = MdpFilezilla(4) TextBox6Mdp.Text = MdpFilezilla(5) TextBox7Mdp.Text = MdpFilezilla(6) TextBox8Mdp.Text = MdpFilezilla(7) TextBox9Mdp.Text = MdpFilezilla(8) TextBox10Mdp.Text = MdpFilezilla(9) End If ' "NOM NON VALIDE" '*************************************** If Not Autorisation Then MsgBox("Merci d'entrer un Nom Valide") Me.Show() 'chache les label LabelId.Visible = False LabelMdp.Visible = False 'cache les textbox ID TextBox1Id.Visible = False TextBox2Id.Visible = False TextBox3Id.Visible = False TextBox4Id.Visible = False TextBox5Id.Visible = False TextBox6Id.Visible = False TextBox7Id.Visible = False TextBox8Id.Visible = False TextBox9Id.Visible = False TextBox10Id.Visible = False 'cache les textbox MDP TextBox1Mdp.Visible = False TextBox2Mdp.Visible = False TextBox3Mdp.Visible = False TextBox4Mdp.Visible = False TextBox5Mdp.Visible = False TextBox6Mdp.Visible = False TextBox7Mdp.Visible = False TextBox8Mdp.Visible = False TextBox9Mdp.Visible = False TextBox10Mdp.Visible = False End If End Sub 'rend le boutton non clikage si textebox non rempli Private Sub TextBoxRecherche_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxRecherche.TextChanged 'cache boutton textbox et label si rien es spécifier dans texbox recherche If TextBoxRecherche.Text = "" Then BtValide.Enabled = False ' LabelId.Visible = False LabelMdp.Visible = False ' TextBox1Id.Visible = False TextBox2Id.Visible = False TextBox3Id.Visible = False TextBox4Id.Visible = False TextBox5Id.Visible = False TextBox6Id.Visible = False TextBox7Id.Visible = False TextBox8Id.Visible = False TextBox9Id.Visible = False TextBox10Id.Visible = False ' TextBox1Mdp.Visible = False TextBox2Mdp.Visible = False TextBox3Mdp.Visible = False TextBox4Mdp.Visible = False TextBox5Mdp.Visible = False TextBox6Mdp.Visible = False TextBox7Mdp.Visible = False TextBox8Mdp.Visible = False TextBox9Mdp.Visible = False TextBox10Mdp.Visible = False Else BtValide.Enabled = True End If End Sub End Class

---

1 / y'aurait-il un moyen plus simple et plus court surtout pour raccourcir le code ?
2 / sachant que tout les "id " et "mdp" sont écris dans le code si je désire ne pas les entrées dans le code (éventuellement pour que l''application puisse être utiliser pour plusieurs personne) quel solution y'aurai t-il ?

Encore une fois merci de l'aide et du temps apporté ;)

Utiliser des méthodes pour factoriser le code...

Bonjour,

1) pour rendre invisible un groupe de control (Textbox etc...) sans le faire pour chacun (ce que tu fais actuellement), il y a plusieurs solutions, deux d'entres elles sont:

- Faire une boucle sur les controles:

Code:

---

1 2 3 4 5 6 7

For each c as Control in Me   if c.Type = 'Textbox' Then c.visible=False End If   Next c

---

- Sinon tu peux mettre tout tes textbox dans un groupbox, ou encore un panel ou un tablelayoutpanel, et faire:

Code:

---

MOnConteneur.Visible=False

---

2)

Citation:

---

"id " et "mdp" sont écris dans le code

---

Tu veux dire que tu saisies les infos, tu les mets dans des variables et puis c'est tout ? Donc si tu ferme l'application, et que tu la réouvre, tu n'as plus rien ?

Un solution local c'est d’écrire dans un fichier, solution réseau, ecrire dans un fichier sur un emplacement réseau partagé (mais attention aux erreurs si plusieurs accès), sinon et bien base de données, gratuite ou pas.

Citation:

---

Envoyé par mactwist69

Bonjour,

1) pour rendre invisible un groupe de control (Textbox etc...) sans le faire pour chacun (ce que tu fais actuellement), il y a plusieurs solutions, deux d'entres elles sont:

- Faire une boucle sur les controles:

Code:

---

1 2 3 4 5 6 7

For each c as Control in Me   if c.Type = 'Textbox' Then c.visible=False End If   Next c

---

---

Bonjour mactwist69, merci de ton exemple je vais essayer cette façon qui va simplifier la vie :ccool: car l'autre solution je n'es pas saisi (je suis grand novice) mais je me pencherai bien évidement sur la question

Citation:

---

Envoyé par mactwist69

- Sinon tu peux mettre tout tes textbox dans un groupbox, ou encore un panel ou un tablelayoutpanel, et faire:

Code:

---

MOnConteneur.Visible=False

---

2)

Tu veux dire que tu saisies les infos, tu les mets dans des variables et puis c'est tout ? Donc si tu ferme l'application, et que tu la réouvre, tu n'as plus rien ?

Un solution local c'est d’écrire dans un fichier, solution réseau, ecrire dans un fichier sur un emplacement réseau partagé (mais attention aux erreurs si plusieurs accès), sinon et bien base de données, gratuite ou pas.

---

en faite j'ai écris tout les id et mdp dans ma form ce qui évite de les stocker justement dans un fichier qui pourrai être vulnérable
donc je peu fermer autant de fois que je veux l application les id et mdp seron toujours dedans quand je la ré-ouvrirai.
mais je me demander dans l'hypothèse que je souhaite soit donné la possibilité de changer 1 ID ou MDP ou que l'application soit utilisable pour un autre utilisateur, donc de donné en faite la possibilité d'enregistré les id et mdp ...
mais je pense pas du tout que sa se face avec le genre de form que j'ai poster ?!

Citation:

---

Envoyé par mactwist69

Bonjour,

1) pour rendre invisible un groupe de control (Textbox etc...) sans le faire pour chacun (ce que tu fais actuellement), il y a plusieurs solutions, deux d'entres elles sont:

- Faire une boucle sur les controles:

Code:

---

1 2 3 4 5 6 7

For each c as Control in Me   if c.Type = 'Textbox' Then c.visible=False End If   Next c

---

- Sinon tu peux mettre tout tes textbox dans un groupbox, ou encore un panel ou un tablelayoutpanel, et faire:

Code:

---

MOnConteneur.Visible=False

---

---

HEU ! je reviens pour un éclaircissement :
si je comprend bien ta solution reviendrai à rendre false tout mes textbox
MAIS sachant qu'on fonction des id et mdp que je vais choisir d'afficher
je devrai donc rendre tout mes textbox à true
ce qui fait que certain textbox ne seront pas rempli étant donné que tous ne contienne pas le même nombre de id et mdp
ex pour mes id et mdp no-ip

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

' "NO-IP" '*************************************** If TextBoxRecherche.Text = Site(4) Then Autorisation = True ' LabelId.Visible = True LabelMdp.Visible = True ' TextBox1Id.Visible = True TextBox2Id.Visible = True TextBox3Id.Visible = True ' TextBox1Mdp.Visible = True TextBox2Mdp.Visible = True TextBox3Mdp.Visible = True ' TextBox1Id.Text = IdNoip(0) TextBox2Id.Text = IdNoip(1) TextBox3Id.Text = IdNoip(2) ' TextBox1Mdp.Text = MdpNoip(0) TextBox2Mdp.Text = MdpNoip(1) TextBox3Mdp.Text = MdpNoip(2) End If

---

et maintenant pour logmein :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

' "LOGMEIN" '*************************************** If TextBoxRecherche.Text = Site(5) Then Autorisation = True ' LabelId.Visible = True LabelMdp.Visible = True ' TextBox1Id.Visible = True TextBox1Mdp.Visible = True TextBox1Id.Text = IdLogmein TextBox1Mdp.Text = MdpLogmein End If

---

résultat on voit que no-ip contiens 3 textbox id & 3 textbox mdp
alors que logmein en contiens que 1 chacun
le résultat de ton code serrai que pour no-ip mes 10 textbox id et 10 textbox mdp serai afficher mais seulement 6 rempli
et pour logmein 2 tetxbox rempli sur les 20 afficher
ne peut-on pas afficher seulement ce qui sont rempli ?

Si,

Dans ta boucle:

Code:

---

1 2 3 4 5 6 7 8 9

For each c as Control in Me   if c.Type = 'Textbox' Then If c.Text = String.Empty Then c.visible=False End If End If   Next c

---

Ainsi les textbox qui contiennent des données ne seront pas invisible.

Par contre je reviens sur la question 2.

Si tu ouvres ton applications, que tu remplis simplement des textboxs, que tu fermes l'application et que tu la réouvre, alors les textboxs seront vides ! C'est sur et certain.

Donc l'utilisation de fichier ou base de données pour conserver des données est obligatoire.
Qui plus est si tu veux que l'application sois multi-poste, tu n'y echappera pas non plus.

Si tu crains pour la sécurité des données, rien ne t’empêche de crypté les données!

Citation:

---

Envoyé par mactwist69

Si,

Dans ta boucle:

Code:

---

1 2 3 4 5 6 7 8 9

For each c as Control in Me   if c.Type = 'Textbox' Then If c.Text = String.Empty Then c.visible=False End If End If   Next c

---

Ainsi les textbox qui contiennent des données ne seront pas invisible.

---

bonjour, ok désoler de mon incompétence :?;),
j'ai tester le code en remplaçant 'textbox' par textbox (ou fallais mettre textbox.text ?):

Code:

---

1 2 3 4 5 6 7 8 9 10

For Each c As Control In Me   If c.Type = TextBox Then If c.Text = String.Empty Then c.Visible = False End If End If   Next c

---

mais voici le code erreur retourner concernant Me:

Citation:

---

Erreur 1 L'expression est du type 'gestionIdMdp.FrmIdMdp', qui n'est pas un type collection. K:\FTP\programmation\visual basic\en cours\gestion Id Mdp\Gestion ID Mdp\Gestion ID Mdp\FrmIdMdp.vb 57 34 Gestion ID Mdp

---

mais a vrai dire je ne sais pas vraiment comment utilisé ton code et où le mettre :oops::( (je vais tester encore ce soir cette nuit :lol:)

Citation:

---

Envoyé par mactwist69

Par contre je reviens sur la question 2.

Si tu ouvres ton applications, que tu remplis simplement des textboxs, que tu fermes l'application et que tu la réouvre, alors les textboxs seront vides ! C'est sur et certain.

---

Oui ça je suis tout à fait d'accords avec toi mais en faite dans mon cas je n'es rien à écrire dans les textbox elles sont déjà rempli dans le code, je ne fait juste que de les afficher.

Citation:

---

Envoyé par mactwist69

Donc l'utilisation de fichier ou base de données pour conserver des données est obligatoire.
Qui plus est si tu veux que l'application sois multi-poste, tu n'y echappera pas non plus.

Si tu crains pour la sécurité des données, rien ne t’empêche de crypté les données!

---

Donc en faite si je veux que l'application sois multi-poste (en créant cette fois des textbox que l'utilisateur devra compléter pour y inscrire les id et mdp)
je dois utiliser absolument une base de donnée ?
ayant aucune connaissance sur la création et l'utilisation de celle-ci (comme ta pu le comprendre je suis grand novice mais avec grand motivation;), puis-je stocker les données dans des fichiers sur server ftp et uploader ou downloader quand nécessaire ?
Merci encore de ton aide et du temps que tu me consacre :ccool:

Salut !!

mais non, on ne parle pas d'incompétence mais d'expérience en voie de développement. ;)

bon alors, reprenons.

A la base la question était: Commment rendre tout mes textboxs invisible au lieu de les faire un par un.
Le code que je t'ai montré:

Code:

---

1 2 3 4 5 6 7

For each c as Control in Me   if c.Type = "Textbox" Then   End If   Next c

---

Permet de faire une boucle sur tout tes controls. Car "Me" correspond au formulaire en cours d'utilisation. Donc la boucle va regarder tous les controls de ton formulaire: label textbox, combobox etc...

Comme ce qui t'intéresse ce sont les textbox, il faut donc faire un test sur "c" pour savoir son type.

Donc dans la boucle c.Type te retourne quelque chose: 'Label' ou 'Textbox'... je ne suis pas exactement sur de ce que ça te retourne car je n'ai pas de projet vb.net sous les yeux.
-> pour voir ce que te retourne "c.Type", tu peux faire ca:

Code:

---

1 2 3 4 5 6

For each c as Control in Me   Msgbox (c.Type.toString)     Next c

---

Donc la, quand tu lances le programmes, tu vas avoir autant de message box que ton formulaire contient de controls et va t'afficher le type pour chaque control.
Donc si ca te retourne 'Textbox' ou 'Type.textbox' ou autre chose, il faudra noté cela et l'utiliser:

Code:

---

1 2 3 4 5 6 7

For each c as Control in Me   if c.Type = "La valeur que t'affichait le msgbox pour les textbox" Then 'Point A End If   Next c

---

Donc a ce niveau, quand le code sera exécuter, le code ira au "Point A" lorsqu'il arrivera sur chaque Textbox de ton formulaire.

Maintenant détail un peu plus sur quand tu a besoin de rendre tes textbox invisible, pourquoi et selon quelle condition qu'on continue.

bonsoir mactwist69,

tout d'abords grand merci de ton aide et du temps que tu m'accorde c'est cool !!!
donc j'ai eu un petit peu de temps cette après-midi pour tester les code :

Code:

---

1 2 3 4 5 6 7

For each c as Control in Me   if c.Type = "Textbox" Then   End If   Next c

---

ainsi que

Code:

---

1 2 3 4 5 6

For each c as Control in Me   Msgbox (c.Type.toString)     Next c

---

en les plaçant :

Code:

---

1 2 3 4 5 6 7

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load For Each c As Control In Me   MsgBox(c.Type.toString)     Next c

---

ou

Code:

---

1 2 3 4 5 6 7

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtValide.Click For Each c As Control In Me   MsgBox(c.Type.toString)     Next c

---

mais j'obtiens toujours cette erreur concernant Me qui reste souligner.

Citation:

---

Erreur 1 L'expression est du type 'gestionIdMdp.FrmIdMdp', qui n'est pas un type collection.

---

mon petit étant au lit je vais pouvoir plus mis pencher (encore une nuit sur pc quoi:D)
je mange et je vais faire une petite vidéo dont je posterai le lien pour comprendre le principe
en tout cas encore merci à toi.
si tu as une idée pour résoudre l'erreur spécifier plus haut concernant Me??
erreur :

Citation:

---

Erreur 1 L'expression est du type 'gestionIdMdp.FrmIdMdp', qui n'est pas un type collection

---

car sans ça je peux pas tester tes codes

Code:

---

in me.controls

---

mais il ne faut pas faire

Code:

---

if c.type = "textbox"

---

mais plutot

Code:

---

if typeof c is textbox

---

Citation:

---

Envoyé par Pol63

Code:

---

in me.controls

---

mais il ne faut pas faire

Code:

---

if c.type = "textbox"

---

mais plutot

Code:

---

if typeof c is textbox

---

---

Bonsoir Merci de la contribution,
je viens de tester

Code:

---

1 2 3 4 5 6 7 8

For Each c As Control In Me.Controls   If TypeOf c Is TextBox Then   End If   Next c

---

ne relève aucune erreur :ccool:;)
ma question est si je veux utilisé

Code:

---

1 2 3 4 5 6

For each c as Control in Me   Msgbox (c.Type.toString)     Next c

---

quel est la démarche a suivre ?
Merci

ca dépend pour quoi faire
si tu veux afficher dans un messagebox le type du control c'est parfait :D
(en rajoutant in me.controls aussi)

Citation:

---

Envoyé par Pol63

ca dépend pour quoi faire
si tu veux afficher dans un messagebox le type du control c'est parfait :D
(en rajoutant in me.controls aussi)

---

me revoilà ,
en faite si je fait

Code:

---

1 2 3 4 5 6 7

For Each c As Control In Me.Controls   MsgBox(c.Type.toString)     Next c

---

c.Type est souligner en erreur :

Citation:

---

Erreur 1 'Type' n'est pas un membre de 'System.Windows.Forms.Control'.

---

et l'aide sur l'erreur m'aide encore une fois pas du tout :

Citation:

---

Le membre fourni n'est pas un membre de la classe.

ID d'erreur : BC30456

Pour corriger cette erreur:
Vérifiez que le nom du membre est correct.
Utilisez un membre réel de la classe.

---

Citation:

---

Envoyé par mactwist69

Maintenant détail un peu plus sur quand tu a besoin de rendre tes textbox invisible, pourquoi et selon quelle condition qu'on continue.

---

lien concernant le principe rechercher :
http://www.youtube.com/watch?v=OCAiE...?v=OCAiE72J_Yk

bon bah j'ai tester toute la soirée à essayer de trouver comment faire fonctionner

Code:

---

1 2 3 4 5 6

For Each c As Control In Me.Controls   MsgBox(c.Type.ToString)   Next c

---

mais rien n'y fait !!
si je remplace Type par Name ou même Text cela me renvoi une donnée donc je ne comprend pas pourquoi Type ne fonctionne pas!:cry:
Allez à demain pour de nouveau épisode :aie:

t'as pas l'intellisense chez toi ?? (autocomplétion)

parce que si ca te propose pas type dans le menu déroulant c'est que type n'existe pas et que donc celui qui t'as donné le code s'est trompé

de plus ca devrait te le souligner immédiatement à l'écriture que c'est une erreur


c.gettype.name

J'avoue, comme en ce moment je suis "obligé" de faire du VB6, j'ai uin peu la flemme de créer un projet .NET pour trouver la bonne propriétés.

Quand je dis "c.Type", je mets ce qui me semble etre, de memoire, la bonne propriétés.

Mais comme dis Pol, si tu tape "c.", un menu déroulant te propose les propriétés, il faut donc les lire et choisir celle qui semble bonne.

Mais en réalité tout ca ne sert a rien, car si j'avais conseillé de faire ça:

Code:

---

1 2 3 4

For Each c As Control In Me.Controls   MsgBox(c.Type.toString) Next c

---

C'était juste pour trouver la bonne condition qui permet de tester si le control est un textbox, or Pol nous a repondu:

Code:

---

If TypeOf c Is TextBox Then

---

Donc maintenant, zitoune31 tu as le code qui te permet de changer tes textbox en série. Maintenant il s'agit pour toi de savoir ou , quand et comment tu vas l'utiliser...

Bonsoir,

bon voilà j'ai analyser lu relu tout vos poste X fois incluant X teste mais pas pour autant résolu :(.
Bon certain pourront dire que de toute façon mon code fonction même si il es "à rallonge" oui effectivement mais étant donner que à ce jour il fait déjà plus de 800 lignes, je souhaite réellement pouvoir le raccourcir et de plus par la même occasion j'apprend une nouvelle commande ce qui es pour moi plus que enrichissant ( enfin quand je le l'aurai finaliser avec VOTRE AIDE):D.
bon je résume suite à ma question initial et les réponse que vous m'avez apportez j'ai créer une form juste pour comprendre le fonctionnement de

Code:

---

1 2 3 4 5 6 7 8

For Each c As Control In Me.Controls If TypeOf c Is TextBox Then If c.Text = String.Empty Then c.Visible = False End If End If Next

---

EXEMPLE
J'ai compris en créant une form avec 4 textbox et 1 bouton que si je cliquais sur le bouton celui-ci affichais les texbox dont le text aurai été écris depuis "la propriétés text" dans le design.FIN EXEMPLE
Ors,
le BUT étant pour moi d'afficher des

Code:

---

textbox.Visible = False

---

lors d'un click sur un boutton mais les textbox"Id et Mdp" aurons comme text quelque chose de différent selon ce qui aura été inscrit par l'utilisateur dans le textboxRecherche étant donné que ma form se compose de :
9 textbox nomé :
textbox1Id ; textbox2Id ; textbox3Id ; textbox4Id
textbox1Mdp ; textbox2Mdp ; textbox3Mdp ; textbox4Mdp
textboxRecherche
ainsi que 1 boutton nomé :
BtValide.

et le text des textbox "Id et Mdp" est défini comme ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

Dim Recherche(1) As String Dim IdMsn(3) As String Dim MdpMsn(3) As String Dim IdGmail As String Dim MdpGmail As String Dim autorisation As Boolean 'mot accepter dans mon textbox recherche Recherche(0) = "msn" Recherche(1) = "gmail" 'mes valeur textbox Id et Mdp IdMsn(0) = "mon identifiant msn" IdMsn(1) = "mon 2è identifiant msn "   MdpMsn(0) = "mon mot de passe msn" MdpMsn(1) = "MDP msn 2"   IdGmail = "identifiant Gmail" MdpGmail = "mot de passe Gmail"   'si dans textbox recherche MSN a été inscrit If TextBoxRecherche.Text = Recherche(0) Then Autorisation = True   TextBox1Id.Text = IdMsn(0) TextBox2Id.Text = IdMsn(1) TextBox1Mdp.Text = MdpMsn(0) TextBox2Mdp.Text = MdpMsn(1) End if 'si dans textbox recherche GMAIL a été inscrit If TextBoxRecherche.Text = Recherche(1) Then Autorisation = True TextBox1Id.Text = IdGmail TextBox1Mdp.Text = MdpGmail End If 'si le mot taper dans texboxRecherche ne correspond pas If Not Autorisation Then MsgBox("Merci d'entrer un Nom Valide") End If Me.Show()

---

le résultat de ce code reviendrai à :
si après avoir lancer mon application j'écris "msn" dans textboxRecherche alors mon

Code:

---

textbox1Id.text = "mon identifiant msn"

---

mais si j'écris "gmail" toujours dans mon textboxRecherhe alors ce même textbox1Id deviendrai

Code:

---

textbox1Id.text = "identifiant Gmail"

---

j'ai donc essayer d'adapter l'exemple à ma situation en disposant le code de X façon sans arriver à mes fin:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68

Public Class Form1   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtValide.Click   Dim Recherche(1) As String Dim IdMsn(3) As String Dim MdpMsn(3) As String Dim IdGmail As String Dim MdpGmail As String Dim Autorisation As Boolean ' 'vide les texboxId et texboxMdp TextBox1Id.Text = "" TextBox2Id.Text = "" TextBox3Id.Text = "" TextBox4Id.Text = "" ' TextBox1Mdp.Text = "" TextBox2Mdp.Text = "" TextBox3Mdp.Text = "" TextBox4Mdp.Text = "" For Each c As Control In Me.Controls   'mot accepter dans mon textbox recherche Recherche(0) = "msn" Recherche(1) = "gmail" 'mes valeur textbox Id et Mdp MSN IdMsn(0) = "msn" IdMsn(1) = "msn" ' MdpMsn(0) = "msn" MdpMsn(1) = "msn" 'mes valeur textbox Id et Mdp GMAIL IdGmail = "Gmail" MdpGmail = "Gmail" ' ''si dans textbox recherche MSN a été inscrit If TextBoxRecherche.Text = Recherche(0) Then Autorisation = True ' TextBox1Id.Text = IdMsn(0) TextBox2Id.Text = IdMsn(1) ' TextBox1Mdp.Text = MdpMsn(0) TextBox2Mdp.Text = MdpMsn(1) End If 'si dans textbox recherche GMAIL a été inscrit If TextBoxRecherche.Text = Recherche(1) Then Autorisation = True TextBox1Id.Text = IdGmail TextBox1Mdp.Text = MdpGmail End If '*************************************** If TypeOf c Is TextBox Then If c.Text = String.Empty Then c.Visible = False End If End If Next '******************************************* 'si le mot taper dans texboxRecherche ne correspond pas If Not Autorisation Then MsgBox("Merci d'entrer un Nom Valide") End If Me.Show() End Sub End Class

---

mon 1er constat ai que si mes textbox "Id et Mdp" sont en

Code:

---

visible = false

---

inscrit dans

Code:

---

Form1_Load

---

même si je rentre un nom valide dans mon textboxRecherche aucun textbox "Id ou Mdp" s'affiche ?!!
2ème constat est que si je n'inscrit pas mes textbox "Id et Mdp" en

Code:

---

visible = false

---

inscrit dans

Code:

---

Form1_Load

---

( se que je ne souhaite pas), le résultat est que si je lance mon apllication et que j'inscrit "gmail" dans mon textboxRecherche et que je clique sur mon BtValide, cela va bien m'afficher mon textbox1Id et textbox1Mdp correspondant à GMAIL mais si après avoir écris "gmail" j'écris "msn" mon textbox1Id et textbox1Mdp sont bien remplacer par ceux correspondant à MSN mais mon textbox2Id et textbox2Mdp correspondnat à MSN ne s'affiche pas ?!!!
donc là je ne sais plus comment m'en sortir pour ne pas afficher tout mes textboxId et textboxMdp au lancement de mon application mais suite au nom tapé dans mon textboxRecherche bah que tout les textboxId et textboxMdp correspondant s'affiche ???
MERCI à tout ceux qui déjà aurons eu le courage de lire ce message j'y es passer quel heures afin d'être assez clair mais pas évident quand on maîtrise pas forcément tout et puis merci encore du temps et l'aide apporter à mon incompétence :oops: mais comme vous pouvez le voir JE LACHE PAS L AFFAIRE :ccool:

je suis rentré dans le topic avec l'histoire du typeof, mais je viens de regarder le post initial et la question de départ

et les 400 lignes que tu nous donnes, on pourrait en faire que 20 pour la même chose

es-tu un développeur ou es-ce ton métier ?
quel est le but de l'application au final ? vu ce que j'en ai compris, moi j'aurais une petite base de données à coté avec un combobox contenant la listes des sites, et un listbox pour id/mdp

ce qu'il te manque, c'est du code générique
déjà quand on a plein de controles à poser et qu'on doit tous les appeler dans le code il vaut mieux les créer par code, ca permet des automatismes (genre 3 lignes pour dire que tous les textbox passent visibles)
après tu peux aussi utiliser des collections genre un dictionary(of string, dictionary(of string, string))
permettant de stocker tout dans une seule variable au lieu d'une quinzaine actuellement

Citation:

---

Envoyé par Pol63

je suis rentré dans le topic avec l'histoire du typeof, mais je viens de regarder le post initial et la question de départ

et les 400 lignes que tu nous donnes, on pourrait en faire que 20 pour la même chose

---

Bonjour Pol63,
je te remercie de te pencher sur mon poste et d'avoir pris la peine de reprendre depuis l'initial j'espère ne pas t'avoir fait perdre trop de temps :ccool:

Citation:

---

Envoyé par Pol63

es-tu un développeur ou es-ce ton métier ?

---

J 'ESSAYE juste d'apprendre à développer des application par plaisir de le faire et d'apprendre, je me suis mis au visual basic 2008 avec l'edition pro en faite à la base juste pour donner du desing au commande .bat dont j'essayais de me familiarisé c'est pour te dire que je connais cazi RIEN à la programmation:oops:

Citation:

---

Envoyé par Pol63

quel est le but de l'application au final ?

---

en faite mon appli à ce jour à pour but de stocker plusieurs "ID & MDP" ainsi que d'afficher un webbrowser et comprend également un envoyeur de mail "voir la vidéo poster pour comprendre".(je souhaiterai la rendre multi-poste mais j'imagine que la j'en suis encore loin vu le procéder que j'utilise)

Citation:

---

Envoyé par Pol63

vu ce que j'en ai compris, moi j'aurais une petite base de données à coté avec un combobox contenant la listes des sites, et un listbox pour id/mdp

---

je vais voir à quoi cela consiste et comment le réalisé. Moi en faite j'ai utilisé cette manière car c'est celle qu'on ma appris pour réaliser une form login sur une autre application donc pour moi c'était le même procéder donc je pensais bien faire :?

Citation:

---

Envoyé par Pol63

ce qu'il te manque, c'est du code générique

---

désoler je comprend pas ce que cela veux dire ?

Citation:

---

Envoyé par Pol63

déjà quand on a plein de controles à poser et qu'on doit tous les appeler dans le code il vaut mieux les créer par code, ca permet des automatismes (genre 3 lignes pour dire que tous les textbox passent visibles)

---

c'est effectivement le but rechercher (raccourcir mon code) mais je ne veux pas qu'il (textbox) passe tous à visible mais seulement ceux concerné :roll:

Citation:

---

Envoyé par Pol63

après tu peux aussi utiliser des collections genre un dictionary(of string, dictionary(of string, string))
permettant de stocker tout dans une seule variable au lieu d'une quinzaine actuellement

---

là je comprend plus non plus mais google va sûrement m'aider à comprendre le principe

je viens de regarder la vidéo
en gros tu veux faire un soft ou tu enregistres tes mots de passes et avec lequel tu puisses naviguer et envoyer des mails
d'autres buts ? préremplir les webbrowser ?

quand tu dis que tu veux que ca soit multiposte, tu veux dire que tu veux que d'autres gens puisse l'utiliser ou que tu puisses l'utiliser depuis plusieurs pc avec les même id/pass ? (dans le 1er cas ca serait pas du multiposte)

après le plus simple serait de rendre tout ca dynamique, avec une possibilité d'ajouter des mots de passes, et de ne pas limiter le nombre de possibilité en fonction du site
pour ca il faut stocker les infos sur le disque dur plutot que dans le programme directement

il faudrait voir aussi si tu veux crypter les mots de passes enregistrés ou pas ...

du code générique c'est l'opposé du code spécifique, c'est du code qui fait du traitment sans savoir sur quoi, ce qui permet de réduire le nombre de lignes de code
car dans ton cas tout est figé dans le code