none
Problème de conversion avec Option Strict ON RRS feed

  • Question

  • '=================================================================================================
        'Boîte d'entrée avec liste de choix
        Public Function Entree(ByVal Titre$, ByVal Texte$, ByVal TextEntree$, _
                               ByVal ParamArray Parametres() As Object) As Object

            '===============================================================================================

            Dim I As Integer, IT As Integer, IPD As Integer
            Dim ComboTamp As ComboBox
     Dim PointSouris As System.Windows.Forms.Cursor = Me.Cursor

            'Renseignement Combo
            With ComboTamp
                'Remplissage combo
                For I = IPD + 5 To UBound(Parametres)
                    If VarType(Parametres(I)) > vbArray Then
                        'tableau
                        For IT = LBound(CType(Parametres(I), Array)) To UBound(CType(Parametres(I), Array))
                            .Items.Add(Parametres(I)(IT))
                        Next IT
                    Else
                        'valeur unique
                        .Items.Add(Parametres(I))
                    End If
                Next I

    Bonjour,

    Problème de conversion de type avec Option Strict ON
    Erreur : Option Strict ON rejette toute liaison tardive sur Parametres(I)(IT)

    Merci,
                       

    vendredi 21 octobre 2011 09:18

Réponses

  • J'ai modifié un peu votre réponse.

    .Items.Add(Ctype(Parametres(I),Array).GetValue(IT))

    Par contre le ParamArray en VB.net est moins permissif que le VB6.0. Ce n'est pas un mauvais point, mais plus contraignant.

    Il ne peut pas cumuler l'Optional comme c'était le cas en VB6.0.

    Cordialement,

    • Marqué comme réponse Michel K lundi 24 octobre 2011 10:18
    lundi 24 octobre 2011 09:33

Toutes les réponses