Discussion :

[cm16]

Bonjour,
Je découvre VB 6, et je souhaite migré des applications.
J'ai trouvé déjà pas mal de choses, mais je bloque sur une instruction qui ne veut pas rentrer dans ma tête.

A quoi sert With, ce n'est pas une boucle ! mais c'est quoi !
Exemple Ici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
With drv_info
  If .bDriveType = 0 Then Label1.Caption = "[Not present]"
  If .bDriveType = 2 Then Label1.Caption = "[ATAPI drive - info not available]"
  If .bDriveType = 1 Then
    Label1.Caption = vbCrLf & Label1.Caption & "Identifiant du modèle : " & Trim(.Model) & vbCrLf
    Label1.Caption = Label1.Caption & "Numéro de série : " & Trim(.SerialNumber)
   Label1.Caption = Label1.Caption & vbCrLf
   Label1.Caption = Label1.Caption & "Révision : " & Trim(.FirmWare)
  End If
End With

Je sais que c'est pour éviter de répéter le Nom (drv_info), mais pourquoi ne pas écrire
if drv_info.bdriveType =0 then ....
là je ne vois pas ce que cela apporte.
Une petite explication svp, je ne voudrai pas mourrir plus bête que je ne le suis.
merci

[Phifi]

Ben tu l'as dit, cela sert juste à éviter de réécrire une séquence récurrente

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
With MonObjetQuiaUnNomgàRallongeEtAussiDesPropriétés.CollectionDeMonObjetàRallonge
   If .propriete = 0 Then
 
   ElseIf .propriete = 1 Then
 
   ElseIf...
 
   etc.
 
End With

[SfJ5Rpw8]

c'est juste pour limiter le nombre de caratére .. tu as aussi .SerialNumber, .FirmWare,.Model...

[zazaraignée]

Ça, c'est le genre de truc qu'on trouve en appuyant sur F1, non ?

[droggo]

Gio,

Ça, c'est le genre de truc qu'on trouve en appuyant sur F1, non ?

Ça et plein d'autres trucs qui font l'objet de questions à répétition