Discussion :

[rivierem]

Bonjour,
Suite à une migration entre VB6 et VB .Net j'ai un petit probléme!!
J'ai des procédures qui accéde au formulaire à partir duquel je l'ai appelé.
Il récupére des données dans une listbox qui est nommé de la même facon dans tous mes formulaires.
Le probléme il ne reconnait plus la listbox car elle n'appartient pas à la collection form.
Je pense que je ne m'y prend pas de la bonne façon mais étant novice en .net c'est dur

Merci de votre aide

Voila le code ma procédure

<code>
Public Sub Ajout_Poss(ByRef Frm As Form, ByRef Err_Num As Integer, ByRef Machpnum As String, ByRef MachpLib As String, ByRef Date_Poss As Date)
Dim Rec As ADODB.Recordset
Dim Sql As String
Dim Num As String
Dim Result As Boolean
'Ajout d'occurence dans la table posseder
'C'est a dire le numero d'erreur correspondant a la machine

Num = Machpnum
Result = Verif_Poss(Err_Num, Num, Date_Poss)

Sql = "Select * from tab_posseder;"
Rec = New ADODB.Recordset
Rec.Open(Sql, dt_erreur.cn_erreur, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)

If Result = True Then
GoTo Existe
Else
With Rec
.AddNew()
.Fields("Poss_Err").Value = Err_Num
.Fields("poss_mach").Value = Num
.Fields("poss_date").Value = Date_Poss
.Update()
.Close()
End With

'UPGRADE_ISSUE: Control l_num_mach n'a pas pu être résolu car il se trouvait dans l'espace de noms générique Form. Cliquez ici : 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'


Frm.l_num_mach.AddItem(Machpnum)
End If

Exit Sub
Existe:
MsgBox("Cette erreur est déjà associée à la machine n° " & Machpnum & " !!!", MsgBoxStyle.OkOnly, "Erreur")
End Sub

</code>

[bidou]

quelle erreur as tu ?

[rivierem]

'l_num_mach' n'est pas un membre de 'System.Windows.Forms.Form'

[bidou]

oui tu dois caster ton paramêtre dans le bon type

Code :

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

CType(Frm, ClasseFormulaire).l_num_mach.AddItem(Machpnum)

[rivierem]

Le probléme est que j'utilise la classe formulaire de base il faut donc que je surcharge cette classe?

[rivierem]

Parce qu'il faut que caste en fonction du parametre passe car j'ai des methode où il peut y avoir jusqu'à cinq ou six provenance différente.