Public Function AlternateCaps(Byval pChaine As QString) As String Dim lStr as String="" For I as Integer=0 to pChaine.Length-1 If (I Mod 2)=0 Then lStr+=pChaine.SubString(i,1).ToUpper() Else lStr+=pChaine.SubString(i,1).ToLower() End if Next I Return lStr End Function
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Majuscule As Boolean = True Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp Me.Label1.Text &= IIf(Majuscule, e.KeyCode.ToString.ToUpper(), e.KeyCode.ToString.ToLower()) Majuscule = Not Majuscule End Sub