Discussion :

[bunch]

Bonjour,

je débute en vb 6.0.

voici mon code , c'est très simple :

Code :

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

Dim montab() as String

Je veux ensuite être capable de détecter si le tableau a été instancié.
pour le moment j'essaye d'y accéder et je capte l'erreur si l'objet et vide. Mais j'imagine qu'il y a plus propre.

Sinon, une fois instancié, je voudrai savoir comment connaitre la taille.
pareil je fais avec UBound mais je ne trouve pas d'équivalent à montab.Length()...bizarre

Je passe du C# au vb6.0 et c'est vrai que je prends un peu une claque...
Merci d'avance pour vos conseils

Bunch

[ProgElecT]

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
Option Explicit
 
Private Function MonUbound(ByRef quoi, qui) As Integer
  ' cette ligne n'est d'ailleurs même pas nécessaire ........
  MonUbound = -1 '<=========  a moins que, ma petite contribution
  If Not quoi Then MonUbound = UBound(qui)
End Function
 
Private Sub Form_Load()
  Dim toto() As String
  MsgBox "pour toto()" & vbCrLf & MonUbound(Not toto, toto) & " donc jamais dimensionné"
 
  Dim titi(4 To 9) As String
  If MonUbound(Not titi, titi) <> -1 Then
   MsgBox "pour titi(4 To 9)" & vbCrLf _
   & "indice le plus bas  = " & LBound(titi) & vbCrLf _
   & "indice le plus haut = " & UBound(titi) & vbCrLf _
   & "nombre d'indice " & (UBound(titi) - LBound(titi) + 1)
  End If
 
  Dim tata(0) As String
  If MonUbound(Not tata, tata) <> -1 Then
   If LBound(tata) Eqv UBound(tata) Then
    MsgBox "pour tata(0)" & vbCrLf & "nombre d'indice = 1" & vbCrLf _
   & "valeur de l'indice = " & UBound(tata)
   End If
  End If
 
   Dim tutu(2 To 2) As String
  If MonUbound(Not tutu, tutu) <> -1 Then
   If LBound(tutu) Eqv UBound(tutu) Then
    MsgBox "pour tutu(2 To 2)" & vbCrLf & "nombre d'indice = 1" & vbCrLf _
   & "valeur de l'indice = " & UBound(tutu)
   End If
  End If
 
End
End Sub

ce code n'est pas de moi, je n'ai pas retrouvé la discussion, mais j'avais conservé ça sur mon DD

[DarkVader]

Bonjour,
Pour le lien c'est ici : http://www.developpez.net/forums/d41...e-dimensionne/
mais quitte à me répéter ce n'est pas un code propre.

[iclic]

Bonjour,

Je ne comprends pas tràs bien ta question car une table en VB6 peut être facilement 'instanciée comme tu dis , mais moi j'aime mieux qu'on me dise définie.

Code :

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

1
2
 
ReDim Preserve Matable(UBound(Matable) + 1)

Que j'emploie en sachant gérér mes variables dont les dmensions peuvent provenir d'un fichier texte ou autre.
Question vocabulaire j'apprécie particulièrement Ucfoutou dont les commentaires sont bien pensés ,plein de bon sens et très pertinents.

A+

[bunch]

ok, merci à tous pour votre aide