Pb verifier si un caractere est en majuscule ou minuscule??

Bonjour je m'explique :
J'ai un textbos et je voudrais que seul la 1er lettre se mette en majuscule et pas les autres..
exemple : si tu tapes : salut       afficher     Salut

J'ai essayer avec l'evenement keypress mais il me met tt en majuscule...
J'arrive pas a trouver la condition :

"Au fur et a mesure que le mec ecrit ds la textbox mettre seulement la 1er lettre en majuscule"

Merci

   Tu peux mettre ceci dans l'évènement Change de ton TextBox :

Private Sub Text1_Change()

Dim Position As Integer
Position = Text1.SelStart
If (Text1.Text <> "") Then
    Text1.Text = (UCase(Left(Text1.Text, 1)) + Right(Text1.Text, (Len(Text1.Text) - 1)))
End If
Text1.SelStart = (Position + 1)

End Sub

Lebarn, c'est moi :: Search with Google

J'ai mis ca mais y'a plein d'erreur...
Je programme en VB.NET
et selstart n'est pas un membre de textbox....

nan pour selstart en fait c'est selectionstart en VB.NET mais pour right et left ca march epas ...

Salut, en VB6, pour avoir le résultat que tu recherches, j'utilise :

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim c As String

c = Chr$(KeyAscii)

If Text1.Text = "" Then
  KeyAscii = Asc(UCase(c))
Else
  KeyAscii = Asc(LCase(c))
End If

End Sub

S'il y a mieux, je suis preneur.

Loup Gris

Bah le met exactement ton code mais il se declanche pas lors de la frappe ds la textbox ....

C'est vrai, en vb.net c différent, essaie ça, je l'ai adapté d'un bout de code que j'ai retrouvé dans mes cartons mais je n'ai pas testé, je n'ai pas vb.net chez moi :

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

Dim pos As Integer

Dim c as string
pos = TextBox1.SelectionStart 'position du curseur
c=e.keychar 'mémo du caractère tapé

e.Handled = True ' on ignore la frappe
If pos = 0 then
TextBox1.Text = TextBox1.Text.Insert(pos, ucase(c))
else
TextBox1.Text = TextBox1.Text.Insert(pos, lcase(c))
end if
TextBox1.SelectionStart = pos + 1 ' nouvelle position curseur

End Sub

Loup Gris

Je te remmercie bcp ca marche ...
Je vais poster un autre topic dans réseau pour les IP ..
Merci encore
fdiedler

je sais pas si ça existe en .net mais en vb6 il il y a la commande strconv(Ton_Texte,cvProperCase)

ca transformait un mot comme "paul" en "Paul"