NumberDialog chiffre decimal

[ciginfo]

Bonjour,
Impossible de recueillir et d'afficher des chiffres décimaux avec Number Dialog
Je voudrais entrer et recueillir des nombres du genre 0,5 ou 1,4 ou 2,5 etc
Voici mon code

Dim nd As NumberDialog
Dim cnT21 as Int
Dim CNT21Lbl as Label

nd.Digits = 2
nd.Number = 1
nd.Decimal = 1
nd.ShowSign = False
ret = nd.Show("Entrez le LCC en mm", "Yes", "No", "Maybe", Bmp)

cnT21 = nd.number
CNT21Lbl.Text = cnT21 & " mm"
Avec ce code , si je rentre 0,8 j'obtiens "8 mm", si je rentre 1,8 j'obtiens à l'affichage dans le label 18 mm. Que puis je faire pour rectifier cela?

Merci beaucoup
François

 

[alfcen]

Bonjour Françoise, s'il vous plaît essayer ce code:

Dim nd As NumberDialog
Dim cnT21 as Double
Dim ret As Int
nd.Decimal = 1
nd.Digits = 2
nd.Number = 1 * Power(10,nd.Decimal)   'pour plus de flexibilité
nd.ShowSign = False
ret = nd.Show("Entrez le LCC en mm", "Yes", "No", "Maybe", Bmp)
cnT21 = nd.Number / Power(10,nd.Decimal)

 

[ciginfo]

Excellent, ça fonctionne meme si je n'ai pas tout compris pourquoi le numberdialog ne prenait pas directement les chiffres avec des decimales.
Par ailleurs, pourquoi red as Int alors qu'il y a surtout une chaine de caractères?

François

 

[agraham]

Parce que le "chiffre" est seulement un indicateur visuel pour l'utilisateur. Le dialogue actuel ne connaît que des valeurs entières.

Because the "chiffre" is only a visual indicator to the user. The actual dialog only knows about integer values.