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

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  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.

+ Répondre à la discussion
Cette discussion est résolue.

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