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

Question

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

lebarn · Answer

Tu peux mettre ceci dans l'&#233;v&#232;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

fdiedler2000 · Answer

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

fdiedler2000 · Answer

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

cs_CanisLupus · Answer

Salut, en VB6, pour avoir le r&#233;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

fdiedler2000 · Answer

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

cs_CanisLupus · Answer

C'est vrai, en vb.net c diff&#233;rent, essaie &#231;a, je l'ai adapt&#233; d'un bout de code que j'ai retrouv&#233; dans mes cartons mais je n'ai pas test&#233;, 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&#233;mo du caract&#232;re tap&#233;


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

fdiedler2000 · Answer

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

radcur · Answer

je sais pas si &#231;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"

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

8 réponses

Discussions similaires