VB.Net Prob. avec conditionRésolu

Question

Salut 

J'ai un petit problème dans une condition. Ca me dit comme erreur dans le Debug:
There is no source code available for the current location.

Mon menu est dans ma Form1 et il se nomme vraiment mnuPointAzimut

Et le prob. se produit dans une Fonction qui est dans un Module

P.S. quand j'inscrit le code Form1. (après avoir écrit le point, ca me suggère mnuPointAzimut), etc...Bref j'ai pas de faute de frappe 

merci d'avance

If

 CompteurFormule =  2 
Then
   AzimutDMS = Convert.ToDouble(Form1.txtAzimutSaisi.Text)

ElseIf CompteurFormule = 3 
Then
   AzimutDMS =  Convert.ToDouble(Form1.txtAzimutTA.Text)

  ElseIf Form1.mnuPointAzimut.Checked = 
True
 <gras>Then  ' C'est ici le problème
   AzimutDMS   = Convert.ToDouble(Form1.txtPoint4.Text)

ElseIf Form1.mnuAzimutAzimut.Checked = 
True
Then
   AzimutDMS = Convert.ToDouble(Form1.txtPoint2.Text)
   AzimutDMS2 = Convert.ToDouble(Form1.txtPoint4.Text)
   Degres__ = Convert.ToDouble(Fix(AzimutDMS2))
   Minutes__ = Convert.ToDouble(Fix((AzimutDMS2 - Degres__) * 100))
   Secondes__ = Convert.ToDouble((((AzimutDMS2 - Degres__) * 100) - Minutes__) * 100)
   Azimut2 = (((Secondes__ / 60) + Minutes__) / 60) + Degres__

End
If

cs_Stephane33 · Accepted Answer

La portée de ton contrôle est limitée à ta form, soit tu le rends public de manière à ce qu'il soit visible par ton module
soit tu le transmet dans ta fonction

Variable = DMS_en_DegreDecimal(Me.mnuPointAzimut) 

et dans ta fonction
Public Function DMS_en_DegreDecimal(Byval mnuPointAzimut as CheckedBox) as double

cs_Stephane33 · Answer

"Et le prob. se produit dans une Fonction qui est dans un Module"
La réponse je pense est là  : Form1 n'est pas déclaré dans ton module.
Comment passe-tu ta fonction ?

cs_JeffC1977 · Answer

Bien par exmeple...

Variable = DMS_en_DegreDecimal() 

Où DMS_en_DegreDecimal() est la Fonction dans le Module

VB.Net Prob. avec condition

3 réponses

Votre réponse

Discussions similaires