Discussion :

[PROGDEV2paris]

bonjour

je souhaite afficher un tableau par une procedure ci dessous, il y a une erreur apres compilation, je souhaiterais avoir une idée, merci d'avance!

j'ai methode invalide pour l'obet print !!!

Code :

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

1
2
3
4
5
6
7
   Sub afficheTableau(ByVal Nombre As Integer, ByRef T() As Integer)
        Dim k As Integer
        For k = 1 To Nombre
            Print T(k)
        Next
 
    End Sub

[SfJ5Rpw8]

l'afficher ou ce tableau ..? avec Debug.print tu l'affiche dans le fenêtre exécution... de visual basic ...Ctrl G.

[zazaraignée]

j'ai fait ce test

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
Option Explicit
Private Tableau() As Integer
Private Const max As Integer = 30
 
Private Sub Form_Load()
    ' Initialise le tableau
    Dim i As Integer
    For i = 0 To max
        ReDim Preserve Tableau(i)
        Tableau(i) = i
    Next
End Sub
 
Private Sub Command1_Click()
'    AfficherTableau UBound(Tableau), Tableau, Text1
    AfficherTableau UBound(Tableau), Tableau, Picture1
'    AfficherTableau UBound(Tableau), Tableau, List1
End Sub
 
Private Sub AfficherTableau(N As Integer, T() As Integer, O As Object)
    Dim i As Integer
    If TypeOf O Is TextBox Then
        If O.MultiLine And O.ScrollBars > 1 Then
            With O
                .Text = T(i)
                For i = 1 To N
                    .Text = .Text & vbCrLf & T(i)
                Next
            End With
        End If
    ElseIf TypeOf O Is PictureBox Then
        ' Une méthode avec O.Print
        ' plus complexe à mettre en oeuvre
        ' parce qu'un picture box n'a pas de scrollbar.
        ' J'ai donc usé d'un stratagème tordu.
        ' Pour l'instant, arrête à 29.
        On Error Resume Next
        O.Cls
        For i = 0 To N Step 5
            O.Print T(i); T(i + 1); T(i + 2); T(i + 3); T(i + 4)
        Next
    ElseIf TypeOf O Is ListBox Then
        ' méthode la plus simple
        O.Clear
        For i = 0 To N
            O.AddItem T(i)
        Next
    Else
        MsgBox "Composant d'affichage non valide.", vbExclamation, "Erreur"
    End If
End Sub

[PROGDEV2paris]

oui; la syntaxe c 'est objet.print, mais vu que je suis sur un module

l'idée est de l'affiché dans une boite de dialogue :

il manque quelque chose *

Code :

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

1
2
3
4
5
6
7
8
 
Sub afficheTableau(ByVal Nombre As Integer, ByRef T() As Integer)
        Dim k As Integer
        For k = 1 To Nombre
 
        MsgBox T(k)
 
        Next

[zazaraignée]

Regarde le code que j'ai mis.

[PROGDEV2paris]

OK, picture1 est elle une variable?

[zazaraignée]

Non. C'est le nom par défaut d'un PictureBox.