Le correcteur automatique propose juste les cast de type CInt, CLng, CDec ...
Mais changer un string en decimal, ça peut pas se faire directement comme ça.
Sous vs2010, j'ai une exception de type ArgumentOutOfRangeException à chaque conversion.
Ca marche chez toi, pas chez moi. Je sais plus quelle option j'ai activé pour avoir ça (la dernière fois que j'ai touché vb.net, c'était il y a au moins 4 ans) ^^

__
Kenji

Non, ça ne va toujours pas, on ne peut pas fait un cast directement de String vers Decimal.
"1,00" devient 1D
"0,3" devient 0.3D
"-1,00" devient -1D
... etc
et Decimal.Parse ou mieux Decimal.TryParse pour faire les conversions depuis les textboxs

__
Kenji

Salut

J'ai pleins d'erreurs sur l'assignation des valeurs des contrôles CXRY. Tu mets des String au lieu des Decimal. J'ai du tous les changer.
Sinon c'est très sympa comme petite appli.

__
Kenji

Je comprends rien.
Pourquoi un tableau de point pour définir un cercle ?

__
Kenji

Bon ben mintenant, il faut faire l'appli qui va vérifier l'intégralité des fichiers jpeg voir si un zip ne s'y cache pas.
__
Kenji

Moi, la première question qui me vient :
A quoi ça sert ?
J'ai dû regarder sur ta précédente source et parcourir les commentaires pour avoir la réponse.
__
Kenji

Il est vrai que si c'est pour faire des membres indexés de 0 à n (ou tous les membres sont utilisées), il vaut mieux un tableau d'object. Un object est la base de tout type, donc il n'y a pas d'inconvénient ni de perte de mémoire.
Je vois plutôt l'utilité ici pour récupéré des index non ordonnées. Juste des membre dont les index ne sont pas ordonnées (4, 6, 897, 7, 9876...) ou encore mettre un Id à la place d'un index. Mais la aussi, on peut remplacer par un Dictionary.
Il est vrai que utiliser la Reflection n'est pas trop conseiller ici si c'est pour utiliser dans un même projet. Mieux vaut utiliser les différents outils du framework, list, dictionary, ...
Source à utiliser pour de bonnes raisons.
__
Kenji

J'y ajouterai ces deux méthodes pour une assignation et une récupération sécurisé si les membres sont de différents types.

Public Function GetMembre(Of T)(ByVal Index As Integer) As T
  Dim oType As Type = MyClass.GetType
  Dim FI As FieldInfo = oType.GetField("Membre" & Index.ToString)
  If Type.Equals(FI.FieldType, GetType(T)) Then
    Return CType(FI.GetValue(Me), T)
  Else
    Throw New InvalidCastException(String.Format("Unable to cast object of type '{0}' to type '{1}'", FI.FieldType, GetType(T)))
  End If
End Function

Public Sub SetMembre(Of T)(ByVal Index As Integer, ByVal Value As T)
  Dim oType As Type = Me.GetType
  Dim FI As FieldInfo = oType.GetField("Membre" & Index.ToString)
  If Type.Equals(FI.FieldType, GetType(T)) Then
    FI.SetValue(Me, Value)
  Else
    Throw New InvalidCastException(String.Format("Unable to cast object of type '{0}' to type '{1}'", GetType(T), FI.FieldType))
  End If
End Sub

Heu..., mais si on veut par ordre alphabétique ?
__
Kenji

Très bon add-in. Nickel.
Jack> Non, il existe bien une option pour la désactivée. Je la décoche toujours par défaut, il met les lignes en rouge mais n'affiche pas de messagebox.
__
Kenji