[vb.net] Contrôle des caractères saisis dans une InputBox

Contrôle des caractères saisis dans une InputBox [vb.net] - VB/VBA/VBS - Programmation

Marsh Posté le 14-06-2005 à 11:18:35    

Salut !  
 
Je voudrais savoir si il est possible de contrôler les caractères saisis dans une InputBox. Je voudrais que l'on puisse saisir uniquement des chiffres et que le contrôle se fasse au moment ou on tape sur la touche (comme un KeyPress sur un objet normal).  
 
Merci pour vos réponses...  
 
Alex

Reply

Marsh Posté le 14-06-2005 à 11:18:35   

Reply

Marsh Posté le 14-06-2005 à 11:25:14    

Bon ben j'ai la réponse... C'est non à moins de faire mumuse avec les API clavier (très peu pour moi !!!)

Reply

Marsh Posté le 14-06-2005 à 11:41:59    

Tu parles d'une TextBox ? Parce qu'il y a une maginfique propriété TextChanged [:dawa]

Reply

Marsh Posté le 14-06-2005 à 11:45:12    

Nan, je parle bien d'une InputBox !!! C'est bizarre je sais...
Avec la TextBox, faut utiliser la Propriété KeyPress (ou KeyDown...)

Reply

Marsh Posté le 14-06-2005 à 12:03:04    

Alors en fait, InputBox n'est qu'un truc VB qui créer automatiquement une petite form avec une TextBox... Et comme tous les machins VB, il faut éviter de les utiliser (c'est pareil que MsgBox qu'il faut remplacer par MessageBox.Show). Donc le truc à faire, c'est de créer toi-même ta inputbox (spabien dur ;) )...

Reply

Marsh Posté le 14-06-2005 à 12:08:00    

Ok, merci !
J'en profite au passage... Comment faire pour récupérer dans mon formulaire principal la valeur saisie dans la TextBox de ma "InputBox Maison" ???
Merci

Reply

Marsh Posté le 14-06-2005 à 12:10:48    

Via une propriété qui va reprendre le texte de ta textbox, genre :

Class MaSuperInputBox  
 
  Private ZeBox As TextBox
 
  Public ReadOnly Property Text() As String
    Get
      Return Me.ZeBox.Text
    End Get
  End Property
 
  [......]
 
End Class


Puis tu fera un truc genre :

Dim Box As New MaSuperInputBox, ZeText As String
 
If Box.ShowDialog() = DialogResult.Ok Then
 
  ZeText = Box.Text
 
EndIf


Message édité par FlorentG le 14-06-2005 à 12:11:11
Reply

Marsh Posté le 14-06-2005 à 12:13:27    

Merci beaucoup !!!

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed