VB.Net Function Remplir textbox [Résolu]

Signaler
Messages postés
926
Date d'inscription
vendredi 10 novembre 2000
Statut
Membre
Dernière intervention
10 septembre 2010
-
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
-
Salut...

J'utilise une fonction dans laquelle je veux utiliser certain varibale pour les faire afficher dans des textbox.
En VB6 je n'avais aucun problème tout fonctionnait correctement... mais en .Net ca marcge pas...
Quel truc je peux utiliser pour remplir certain textbox...
Mes textbox en Gras (voir plus bas) affiche aucunne valeur...





Public



Function
CalculCoord()




If
CompteurFormule = 3

Then

   Etape1 = DMS_en_DegreDecimal()


Else

   If
DMS_en_DegreDecimal() + aTan2 > 360

Then

      Etape1 = Convert.ToDouble(DMS_en_DegreDecimal() + aTan2) - 360


   Else

      Etape1 = Convert.ToDouble((DMS_en_DegreDecimal() + aTan2))

'345,97969

   End



If

End



If



Etape2_Dx = Sin((Etape1 * System.Math.PI) / 180) * Convert.ToDouble(txtDistanceSaisi.Text)
Etape2_Dy = Cos((Etape1 * System.Math.PI) / 180) * Convert.ToDouble(txtDistanceSaisi.Text)
Etape3_X = CoordXStation + Etape2_Dx
Etape3_Y = CoordYStation + Etape2_Dy



lblCoordX.Text = Convert.ToString(Format(Etape3_X,





"0.0000"


))
lblCoordX.Text = Replace(lblCoordX.Text,

"."
,

","


)
lblCoordY.Text = Convert.ToString(Format(Etape3_Y,

"0.0000"


))





End



Function

1 réponse

Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
37
Déjà au vu de l'utilisation de tes textboxs, il faut que le code de ta fonction soit dans le même fichier que celui de ta form.

Ensuite quel interet de convertir en string une string ? (Format renvoie une string).

Donc simplification à tester :

lblCoordX.Text = Etape3_X.ToString("0.0000")
lblCoordY.Text = Etape3_Y.ToString("0.0000")

Si tes paramètres régionaux sont correct pour le france, la variable devrait etre automatiquement affichée avec une virgule. Normalement il n'est pas necessaire de venir remplacer le point.

---- Sevyc64  (alias Casy) ---- <hr size ="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php