IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB.NET Discussion :

code à rallonge solution pour le raccourcir


Sujet :

VB.NET

  1. #1
    Membre confirmé
    Homme Profil pro
    Téléconseiller
    Inscrit en
    Juin 2010
    Messages
    119
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Téléconseiller
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Juin 2010
    Messages : 119
    Par défaut 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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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é

  2. #2
    Membre Expert Avatar de Er3van
    Homme Profil pro
    Architecte Logiciel
    Inscrit en
    Avril 2008
    Messages
    1 430
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Architecte Logiciel
    Secteur : Industrie

    Informations forums :
    Inscription : Avril 2008
    Messages : 1 430
    Par défaut
    Utiliser des méthodes pour factoriser le code...

  3. #3
    Membre Expert Avatar de mactwist69
    Homme Profil pro
    Développement VB.NET
    Inscrit en
    Janvier 2007
    Messages
    1 707
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : France, Saône et Loire (Bourgogne)

    Informations professionnelles :
    Activité : Développement VB.NET
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2007
    Messages : 1 707
    Par défaut
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    MOnConteneur.Visible=False
    2)
    "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.

  4. #4
    Membre confirmé
    Homme Profil pro
    Téléconseiller
    Inscrit en
    Juin 2010
    Messages
    119
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Téléconseiller
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Juin 2010
    Messages : 119
    Par défaut
    Citation Envoyé par mactwist69 Voir le message
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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 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 Voir le message
    - Sinon tu peux mettre tout tes textbox dans un groupbox, ou encore un panel ou un tablelayoutpanel, et faire:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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 ?!

  5. #5
    Membre confirmé
    Homme Profil pro
    Téléconseiller
    Inscrit en
    Juin 2010
    Messages
    119
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Téléconseiller
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Juin 2010
    Messages : 119
    Par défaut
    Citation Envoyé par mactwist69 Voir le message
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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 ?

  6. #6
    Membre Expert Avatar de mactwist69
    Homme Profil pro
    Développement VB.NET
    Inscrit en
    Janvier 2007
    Messages
    1 707
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : France, Saône et Loire (Bourgogne)

    Informations professionnelles :
    Activité : Développement VB.NET
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2007
    Messages : 1 707
    Par défaut
    Si,

    Dans ta boucle:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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!

  7. #7
    Membre confirmé
    Homme Profil pro
    Téléconseiller
    Inscrit en
    Juin 2010
    Messages
    119
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Téléconseiller
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Juin 2010
    Messages : 119
    Par défaut
    Citation Envoyé par mactwist69 Voir le message
    Si,

    Dans ta boucle:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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:
    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 (je vais tester encore ce soir cette nuit )
    Citation Envoyé par mactwist69 Voir le message
    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 Voir le message
    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

  8. #8
    Membre Expert Avatar de mactwist69
    Homme Profil pro
    Développement VB.NET
    Inscrit en
    Janvier 2007
    Messages
    1 707
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : France, Saône et Loire (Bourgogne)

    Informations professionnelles :
    Activité : Développement VB.NET
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2007
    Messages : 1 707
    Par défaut
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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.

  9. #9
    Membre confirmé
    Homme Profil pro
    Téléconseiller
    Inscrit en
    Juin 2010
    Messages
    119
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Téléconseiller
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Juin 2010
    Messages : 119
    Par défaut
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    For each c as Control in Me
     
      Msgbox (c.Type.toString) 
     
     
    Next c
    en les plaçant :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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.
    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)
    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 :
    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

  10. #10
    Expert éminent Avatar de Pol63
    Homme Profil pro
    .NET / SQL SERVER
    Inscrit en
    Avril 2007
    Messages
    14 202
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : .NET / SQL SERVER

    Informations forums :
    Inscription : Avril 2007
    Messages : 14 202
    Par défaut
    mais il ne faut pas faire mais plutot
    Cours complets, tutos et autres FAQ ici : C# - VB.NET

  11. #11
    Membre confirmé
    Homme Profil pro
    Téléconseiller
    Inscrit en
    Juin 2010
    Messages
    119
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Téléconseiller
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Juin 2010
    Messages : 119
    Par défaut
    Citation Envoyé par Pol63 Voir le message
    mais il ne faut pas faire mais plutot
    Bonsoir Merci de la contribution,
    je viens de tester
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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
    ma question est si je veux utilisé
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  12. #12
    Expert éminent Avatar de Pol63
    Homme Profil pro
    .NET / SQL SERVER
    Inscrit en
    Avril 2007
    Messages
    14 202
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : .NET / SQL SERVER

    Informations forums :
    Inscription : Avril 2007
    Messages : 14 202
    Par défaut
    ca dépend pour quoi faire
    si tu veux afficher dans un messagebox le type du control c'est parfait
    (en rajoutant in me.controls aussi)
    Cours complets, tutos et autres FAQ ici : C# - VB.NET

  13. #13
    Membre confirmé
    Homme Profil pro
    Téléconseiller
    Inscrit en
    Juin 2010
    Messages
    119
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Téléconseiller
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Juin 2010
    Messages : 119
    Par défaut
    Citation Envoyé par Pol63 Voir le message
    ca dépend pour quoi faire
    si tu veux afficher dans un messagebox le type du control c'est parfait
    (en rajoutant in me.controls aussi)
    me revoilà ,
    en faite si je fait
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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 :
    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 :
    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 Voir le message
    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 :

  14. #14
    Membre confirmé
    Homme Profil pro
    Téléconseiller
    Inscrit en
    Juin 2010
    Messages
    119
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Téléconseiller
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Juin 2010
    Messages : 119
    Par défaut
    bon bah j'ai tester toute la soirée à essayer de trouver comment faire fonctionner
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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!
    Allez à demain pour de nouveau épisode

  15. #15
    Expert éminent Avatar de Pol63
    Homme Profil pro
    .NET / SQL SERVER
    Inscrit en
    Avril 2007
    Messages
    14 202
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : .NET / SQL SERVER

    Informations forums :
    Inscription : Avril 2007
    Messages : 14 202
    Par défaut
    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
    Cours complets, tutos et autres FAQ ici : C# - VB.NET

  16. #16
    Membre Expert Avatar de mactwist69
    Homme Profil pro
    Développement VB.NET
    Inscrit en
    Janvier 2007
    Messages
    1 707
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : France, Saône et Loire (Bourgogne)

    Informations professionnelles :
    Activité : Développement VB.NET
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2007
    Messages : 1 707
    Par défaut
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
     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...

  17. #17
    Membre confirmé
    Homme Profil pro
    Téléconseiller
    Inscrit en
    Juin 2010
    Messages
    119
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Téléconseiller
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Juin 2010
    Messages : 119
    Par défaut
    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).
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    textbox1Id.text = "mon identifiant msn"
    mais si j'écris "gmail" toujours dans mon textboxRecherhe alors ce même textbox1Id deviendrai
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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 inscrit dans 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 inscrit dans ( 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 mais comme vous pouvez le voir JE LACHE PAS L AFFAIRE

  18. #18
    Expert éminent Avatar de Pol63
    Homme Profil pro
    .NET / SQL SERVER
    Inscrit en
    Avril 2007
    Messages
    14 202
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : .NET / SQL SERVER

    Informations forums :
    Inscription : Avril 2007
    Messages : 14 202
    Par défaut
    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
    Cours complets, tutos et autres FAQ ici : C# - VB.NET

  19. #19
    Membre confirmé
    Homme Profil pro
    Téléconseiller
    Inscrit en
    Juin 2010
    Messages
    119
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Téléconseiller
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Juin 2010
    Messages : 119
    Par défaut
    Citation Envoyé par Pol63 Voir le message
    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
    Citation Envoyé par Pol63 Voir le message
    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
    Citation Envoyé par Pol63 Voir le message
    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 Voir le message
    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 Voir le message
    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 Voir le message
    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é
    Citation Envoyé par Pol63 Voir le message
    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

  20. #20
    Expert éminent Avatar de Pol63
    Homme Profil pro
    .NET / SQL SERVER
    Inscrit en
    Avril 2007
    Messages
    14 202
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : .NET / SQL SERVER

    Informations forums :
    Inscription : Avril 2007
    Messages : 14 202
    Par défaut
    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
    Cours complets, tutos et autres FAQ ici : C# - VB.NET

+ Répondre à la discussion
Cette discussion est résolue.
Page 1 sur 2 12 DernièreDernière

Discussions similaires

  1. solution pour insérer du code html proprement en javascrit ?
    Par nicko_73 dans le forum Général JavaScript
    Réponses: 8
    Dernier message: 02/11/2009, 22h38
  2. Quelle solution pour un code remise aléatoire ?
    Par lodan dans le forum Langage
    Réponses: 4
    Dernier message: 13/01/2009, 11h12
  3. Y a-t-il une solution pour optimiser mon petit code ?
    Par pierre987321 dans le forum Delphi
    Réponses: 20
    Dernier message: 14/06/2007, 10h53
  4. Réponses: 6
    Dernier message: 30/06/2006, 11h04
  5. Solution pour impression de codes à barres
    Par KRis dans le forum Composants VCL
    Réponses: 2
    Dernier message: 31/03/2006, 16h58

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo