Accueil > Forum > > > > VB.Net Changer le "." (point) par une "," (virgule)
 VB.Net Changer le "." (point) par une "," (virgule)
mardi 4 septembre 2007 à 13:18:14 |
VB.Net Changer le "." (point) par une "," (virgule)
JeffC1977
|
Salut... Je suis à la recherche de comment faire pour que si l'utilisatuer utilise un point, dans mon textbox il y aura une virgule. J'ai trouvé ce code sur vbfrance mais ca marche pas, j'ai une erreur... Si quelqu'un peut me donner un coup de main merci d'avance P.S. Erreur en Gras et Souligné plus bas. 1.Handles clauses requires a WithEvents variable defined in the containing type or one of its bases types 2. Property 'KeyChar' is 'ReadOnly' PrivateSub decimaltxt_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles decimaltxt.KeyPress'on accepte chiffres et virgule, ainsi que la touche back. On remplace un eventuel point par une virgule, et on refuse la saisie d'une virgule en tant que premier caractere
'remplacement du point par une virguleIf Asc(e.KeyChar) = 46 Thene.KeyChar = ","
'si c'est une virgule et qu'il y en a déja une dans le textbox, ou qu'elle est tappé en premier caractère, on annule la saisie
If Asc(e.KeyChar) = 44 And (CType(sender, TextBox).Text.IndexOf(",") > 0 OrCType(sender, TextBox).Text = "") Then e.Handled = TrueEndSub |
|
mardi 4 septembre 2007 à 18:43:15 |
Re : VB.Net Changer le "." (point) par une "," (virgule)
JeffC1977
|
Re... J'ai résolu un erreur mais ma je n'arrive pas à résoudre la première condition car c'est du .NET Framework et je suis en compact Framework... Si quelqu'un peut me donner un coup de main... merci. PrivateSub Decimaltxt_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) HandlesMe.KeyPressIf Asc(e.KeyChar) = 46 Thensender.text.replace(",", ".") 'The targeted version of the .Net Compact Framework does not support latebindingIf Asc(e.KeyChar) = 44 And (CType(sender, TextBox).Text.IndexOf(",") > 0 OrCType(sender, TextBox).Text = "") Then e.Handled = TrueEndSub |
|
mardi 4 septembre 2007 à 20:38:51 |
Re : VB.Net Changer le "." (point) par une "," (virgule)
JeffC1977
|
Bon le code a encore changer. Mon seul problème est que ca devrait marcher mais ca marche pas... Sub TextBox_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs)If e.KeyChar = "."c Thene.KeyChar = ","c
If Asc(e.KeyChar) = 44 And (CType(sender, TextBox).Text.IndexOf(",") > 0 OrCType(sender, TextBox).Text = "") Then e.Handled = True
EndSub
Erreur disant : Property 'KeyChar' is 'ReadOnly'
Pourquoi je suis en lecture seul Je ne comprends rien... ???
merci de votre aide |
|
mercredi 5 septembre 2007 à 15:37:00 |
Re : VB.Net Changer le "." (point) par une "," (virgule)
JeffC1977
|
Réponse acceptée !
Voilà la solution...
PublicSub TextBox_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtNewPoint.KeyPress, txtPcode_.KeyPress, txtPoint1.KeyPress, txtPoint2.KeyPress, txtPoint3.KeyPress, txtPoint4.KeyPress, txtStation.KeyPress, txtBack.KeyPress, txtPointTA.KeyPress, txtPointSaisi.KeyPress, txtPcode.KeyPress, txtAzimutSaisi.KeyPress, txtDistanceSaisi.KeyPress, txtPoint1TA.KeyPress, txtPoint2TA.KeyPress, txtDirRefTA.KeyPress, txtPoint3TA.KeyPress, txtAzimutTA.KeyPress, txtDistanceTA.KeyPress, txtPcodeTA.KeyPress
' Remplace le point par une virgule
If
e.KeyChar = "."c
Then
CType
(sender, TextBox).SelectedText = ","c
e.Handled =
True
End
If
End
Sub
|
|
Cette discussion est classée dans : textbox, vb, sender, virgule, keychar
 Répondre à ce message
 Sujets en rapport avec ce message
VB.Net String en Double [ par JeffC1977 ]
Salut...J'ai un problème de conversion de variable.J'ai un textbox qui est en string et je veux faire des calcul mathématique avex le nombre qui est d
VB.Net Rendre un textebox non éditable [ par JeffC1977 ]
Salut à tous...J'aimerais savoir s'il exite une facon de barré un textbox afin que l'utilisatuer puisse que regarder son contenu sans être capable de
VB.Net Focus [ par JeffC1977 ]
Salut à tous....J'ai une petite question avec le Focus pour un textbox.Est-il possible que le focus soit dans un textbox et le "curseur" soit à droite
VB.Net Effacer un ligne dans un Tableau et dans un Fichier texte [ par JeffC1977 ]
Salut à tous...Question #1: Comment fait-on pour supprimer une ligne dans un Tableau ???Dim i As<font size="2"
VB.Net Fermer un fichier [ par JeffC1977 ]
Salut à tous...J'aimerais savoir si avec le code plus bas le fichier Coord.txt est complétement fermé...NomDuFichier = \....\Coord.txtDim Objet
VB.Net OpenDialogFile avec l'émulateur [ par JeffC1977 ]
Salut à tous...Comment est-il possible d'ouvrir un fichier sur l'émulateur avec un OpenFileDialog...Ca fonctionne tres bien sur mon PDA mais pas sur l
VB.Net Si valeur Absente dans un Tableau [ par JeffC1977 ]
Salut à tousJe ne sais pas comment coder cela...Si valeur du textbox est absente dans le tableau alors...J'ai codé cela mais ça fonctionne que pour un
VB.Net Récupérer le nom du fichier [ par JeffC1977 ]
Salut à tous...J'aimerais savoir comment est-il possible d'aller chercher le nom du fichier sélectionner dans le OpenFileDialogJe ne sais pas trop com
VB.Net StatusBar [ par JeffC1977 ]
Salut à tous.....J'utilise un StatusBar et je veux inscrire deux bout de texte dans ce dernier.Je ne sais pas si c'est possible ?Dans le côté gauche d
VB.Net Click sur un bouton dans un Module [ par JeffC1977 ]
Salut...Petite question à propose d'un bouton que j'ai mis le code dans un ModuleJ'ai une erreur dans la ligne qui déclare la procédure...Handles clau
 Livres en rapport
|
Derniers Blogs
 IMAGINE CUP 2012, MAKE A SIGN EN FINALEIMAGINE CUP 2012, MAKE A SIGN EN FINALE par junarnoalg
Voilà qui est fait, la nouvelle est officielle ! L'équipe belge "Make a Sign" va au pays des kangourous défendre son projet dans la catégorie Software Design. http://www.imaginecup.com/CompetitionsContent/Competition/WorldwideFinalists.aspx V...
Cliquez pour lire la suite de l'article par junarnoalg KINECT 1.5 IS OUT !KINECT 1.5 IS OUT ! par Vko
La version 1.5 du Kinect For Microsoft vient tout juste de sortir ! Plein de nouveautés: Tracking de squelette en Near Mode Détection en position assise Détection faciale avec un SDK dédié Documentation et des guideline (enfin) Un out...
Cliquez pour lire la suite de l'article par Vko LES ACTUALITéS DE LA SEMAINE SUR C2I.FR (14 MAI - 20 MAI) LES ACTUALITéS DE LA SEMAINE SUR C2I.FR (14 MAI - 20 MAI) par richardc
Mise à jour des Web API du 14 Mai
Réservez dès maintenant votre journée du 20 juin pour le Windows Azure Dev Camp 2012 à Paris
Mise à jour de Team Foundation Service
MechCommander 2 sur Windows 8
Entity Framework 5 Release Candidate e...
Cliquez pour lire la suite de l'article par richardc REACTIVE EXTENSIONS : CONSOMMER DES SERVICES AVEC RX PARTIE 3, LES PIèGES à éVITERREACTIVE EXTENSIONS : CONSOMMER DES SERVICES AVEC RX PARTIE 3, LES PIèGES à éVITER par Groc
Une mauvaise utilisation de rx lors de l'écriture d'une couche d'accès à des services peut conduire à des cas embarassants avec des erreurs mal gérées, des appels qui ne partent lorsqu'ils le devraient, et même des résultats incorrects . le tout nuis...
Cliquez pour lire la suite de l'article par Groc SHAREPOINT BLOG SITE, PROBLèME D'ARCHIVESSHAREPOINT BLOG SITE, PROBLèME D'ARCHIVES par junarnoalg
Dernièrement, nous avons migré le site
myTIC
vers un nouveau serveur SharePoint 2010. Dans les contenus que nous vouloins récupérer, nous avions un certain nombre de blogs.
Nous avons utilisé les commandes Power...
Cliquez pour lire la suite de l'article par junarnoalg
Logiciels
 sDEVIS-FACTURES vlPRO (8.1.0.3)SDEVIS-FACTURES VLPRO (8.1.0.3)sDEVIS-FACTURES vlPRO a été mis au point pour les particuliers, créateurs, entrepreneurs, artisa... Cliquez pour télécharger sDEVIS-FACTURES vlPRO 974 Application Server (12.2.4.6)974 APPLICATION SERVER (12.2.4.6)Développez de puissantes applications dans un environnement de 'cloud computing', clusterisé, séc... Cliquez pour télécharger 974 Application Server vPicture (1.4.2.1)VPICTURE (1.4.2.1)Avec vPicture, hébergez vos images facilement et rapidement.
vPicture est un utilitaire simple, ... Cliquez pour télécharger vPicture Easy-Planning (2.2.1.6)EASY-PLANNING (2.2.1.6)Easy-Planning permet de créer des plannings sous la représentation de diagrammes et est adapté au... Cliquez pour télécharger Easy-Planning COM-BACKUP (2.0)COM-BACKUP (2.0)
COM-BACKUP est un logiciel de sauvegarde qui permet de planifier les sauvegardes de vos dossiers ...
Cliquez pour télécharger COM-BACKUP
|