Bonjour,
je reviens consulter votre aide précieuse à propos d'un p'tit problème qui me titille bien depuis quelques heures.
Mon souhait : Lorsque je rentre dans une textbox 1.02 je veux rentrer 1,02 (car sinon, comme vous le savez, le calcul ne se fait pas, il ne reconnait pas le .). Or, sur le pavé num c'est un . qu'il rentre.
J'ai recherché sur les forums de différents sites et tout ce que j'ai trouvé de compréhensiblement faisable me semble être :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Public Class App_TubesSurPlaques Public SepaDec As String ' Détermine le séparateur décimal Private Sub App_TubesSurPlaques_Load() SepaDec = Mid(CStr(1 / 2), 2, 1) ' ça je comprend pas ce que ça fait vraiment ... End Sub Private Sub App_TubesSurPlaques_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.KeyPress Dim keyAscii As Integer If SepaDec <> "." And keyAscii = Asc(".") Then keyAscii = Asc(SepaDec) End Sub
Voilà, mais ce code ne fait rien en fait... Peut etre qu'il ne manque pas grand chose mais je ne comprend pas tout !
J'utilise la version de 2008 pour info.
J'ai aussi entendu parler d'une autre méthode :
Dire au programme que je veux remplacer le caractère . par , en lui disant directement que le KeyAscii 46 = KeyAscii 44 mais ce n'est pas non plus chose facile ! Il faut également que le 'KeyPreview' soit sur 'True' me semble-t-il.
(http://www.asciitable.com/)
Quelqu'un aurait-il la solution ? merci
Partager