Discussion :

[stolken]

Bonjour,
J'ai un gros souci pour la création de mon controle utilisateur.

Dans la classe de mon controle je veux avoir un array de la même longueur que le controle lui même.

Lorsque le lance la méthode "test", la longueur du table n'est pas du tout égale à la largeur de mon controle ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Class controlegraph
 
Private tableau(Me.Width) As Integer
 
 
Public Sub test()
        MsgBox(tableau.Length)
        MsgBox(Me.Width)
 
End Sub
 
end class

Merci d'avance.

[hunteshiva]

je comprend pas ton problème ...
c'est sur la largeur de tes éléments que tu veut agir ??

explique un peut plus le but de ton code.

tu a essayé le mode débug pour voir les valeurs que tu récupéraient?
(hésite pas a passer par des variables intermédiaires)

[stolken]

je comprend pas ton problème ...
c'est sur la largeur de tes éléments que tu veut agir ??

explique un peut plus le but de ton code.

tu a essayé le mode débug pour voir les valeurs que tu récupéraient?
(hésite pas a passer par des variables intermédiaires)

Mon but est de creer un tableau avec autant de colonne que le largeur du controle (en pixel) soit me.width = tableau.lenght

C'est pour faire un controle qui affichera une courbe graphique.

[mactwist69]

Private tableau(Me.Width) As Integer

Sait tu ce que tu déclare ici? Un tableau d'entier

MsgBox(tableau.Length)

Cette commande te retourne le nombre d'élément dans ton tableau

MsgBox(Me.Width)

Ca ca te donne bien ta largeur.

Le problème c'est que tu as voulu declarer et instancier ta variable tableau en meme temps.

Au lieu de faire :

Code :

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

1
2
Private tableau as integer
tableau = me.width

[stolken]

Sait tu ce que tu déclare ici? Un tableau d'entier



Cette commande te retourne le nombre d'élément dans ton tableau



Ca ca te donne bien ta largeur.

Le problème c'est que tu as voulu declarer et instancier ta variable tableau en meme temps.

Au lieu de faire :

Code :

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

1
2
Private tableau as integer
tableau = me.width

C'est bien au tableau à 1 dimension que je souhaite.

[hunteshiva]

Bizarre comme idée

mais si tu veut faire sa, alors oui il faut que tu fasse comme tu a dit je pense

Code :

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

1
2
3
4
5
        Dim largeurFrom As Integer = Me.Width
 
        Dim tableau(largeurFrom) As Integer
 
        MsgBox("Nombre d'éléments dans le tableau: " & tableau.Length  & vbCrLf & "largeur du formulaire: " & largeurFrom & "pixels")

et sa fonctionne, je ne voit pas ou est ton problème...
Tu aura toujours un élément de plus dans ton tableau parce qu'il commence à parti de '0'

Code :

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

1
2
3
4
5
6
7
tableau(0)
tableau(1)
tableau(2)
tableau(3)
...
tableau(largeurFrom -1)
tableau(largeurFrom)

décalage que tu peut très facilement résoudre

PS: je veut bien savoir qu'elle est l'intérêt de tout sa

[stolken]

salut, voici le bon code :

J'avoue ne pas saisir la nuance entre la déclaration de variable en debut de classe (avec private ou public) et celle dans les procédures (dim).

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
Public Class controlegraph
 
Private tableau(2) As Integer ' je créer un tableau d'un longueur quelquonque
 
Public Sub New()
 
        ' Cet appel est requis par le Concepteur Windows Form.
        InitializeComponent()
        Dim largeur As Integer = Me.Width ' je recupere la largeur de mon controle
        Dim tableau(largeur) As Integer 'pour definir la longueur de mon tableau
        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
 
        MsgBox(tableau.Length & " x " & Me.Width) 'test si les deux valeurs sont egales...
    End Sub
End Class

Donc pour info, je fais un controle qui affichera une courbe en temps reel.
Le tableau aura autant de colonne que d'ordonné, et chaque valeurs du tableau representera les abcisses.

J'ai pas trouvé de controle tout fait pour faire des courbes en temps reel donc je dois bien me bricoler quelque chose. Si tu as mieux je suis preneur

En tout cas merci de vos aides.

Bizarre comme idée

mais si tu veut faire sa, alors oui il faut que tu fasse comme tu a dit je pense

Code :

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

1
2
3
4
5
        Dim largeurFrom As Integer = Me.Width
 
        Dim tableau(largeurFrom) As Integer
 
        MsgBox("Nombre d'éléments dans le tableau: " & tableau.Length  & vbCrLf & "largeur du formulaire: " & largeurFrom & "pixels")

et sa fonctionne, je ne voit pas ou est ton problème...
Tu aura toujours un élément de plus dans ton tableau parce qu'il commence à parti de '0'

Code :

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

1
2
3
4
5
6
7
tableau(0)
tableau(1)
tableau(2)
tableau(3)
...
tableau(largeurFrom -1)
tableau(largeurFrom)

décalage que tu peut très facilement résoudre

PS: je veut bien savoir qu'elle est l'intérêt de tout sa

[stolken]

J'ai crié victoire trop vite ...
Cela fonctionne quand je lance le debug de mon controle (meme en redimensionnant le controle) mais si j'ajoute mon controle dans une application et que je le redimensionne, au demarrage de l'application le code controlegraph.new est executé mais la valeur me.width est celle que j'ai quand je code mon controle ...