il y a longtemp que j'ai un petit codage a usage perso et je vien de m'installée VB 2005 express pour mie remetre.
l'erreur suivant est
Private Sub Valider_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Valider.Click
cl.Date1 = CDate(Date1.Text)
cl.Date2 = CDate(Date2.Text)
cl.Ancienneter = Ancienneter.Text
Date1.Text = CStr(cl.Date1)
Date2.Text = CStr(cl.Date2)
Nbr.Text = CStr(System.DateTime.FromOADate(cl.Date2.ToOADate - cl.Date1.ToOADate))
'UPGRADE_WARNING: Impossible de résoudre la propriété par défaut de l'objet CLAncienneter(). Cliquez ici : 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
Ancienneter.Text = Me.CLAncienneter(cl.Date1).Text
End Sub
_________________et
'année Bixertile rajouté faire 365.25'
Public Function CLAncienneter(ByRef D As Date) As Object
Dim NbrM, NbrA, NbrJ As Short
Dim TotalJour As Short
TotalJour = cl.Date2.ToOADate - D.ToOADate
NbrA = TotalJour \ 365.25
TotalJour = TotalJour Mod 365.25
NbrM = TotalJour \ 30
NbrJ = TotalJour Mod 30
'UPGRADE_WARNING: Impossible de résoudre la propriété par défaut de l'objet CLAncienneter. Cliquez ici : 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
CLAncienneter(cl.Date1).Text = NbrA & " ans, " & NbrM & " mois et " & NbrJ & " jours"
End Function
si quelqu'un peux me renseignez merci par avance. j'ai bien cliquer sur le lien mes sans resultat pour.
En VB6, les controles pouvaient éventuellement possédés une propriété par défaut de sorte que lorsque tu faisais référence à ce controle sans en préciser la propriété, tu faiasis en fait référence à cette propriété par défaut. Pour un textbox par exemple la propriété par défaut est la propriété Text. Ainsi écrire TonTextBox= "Bonjour" revient à écrire TonTextBox.Text="Bonjour".
En VB.Net ce mécanisme n'existe plus. Il faut systématiquement préciser la propriété à laquelle on souhaite acceder.
Il fautque tu regarde ton code VB6 et le code .Net généré, les comparer pour voir si rien ne manque. Mais certainement que en VB6 pour le premier message tu devais avoir un truc du style : Ancienneter.Text = Me.CLAncienneter(cl.Date1)
