Soyez le premier à donner votre avis sur cette source.
Vue 6 459 fois - Téléchargée 649 fois
Public Class Form1 Private Sub Calculer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Calculer.Click Dim i As Integer : Dim j As Integer : Dim ii As Integer : Dim t(0 To 26) As Integer Dim chartest As Char : Dim asc1 As Integer : Dim asc2 As Integer : Dim chr As Char Dim longtexte As Integer = RichTextBox1.TextLength For i = 0 To longtexte - 1 For j = 1 To 26 chartest = Convert.ToChar(64 + j) chr = RichTextBox1.Text.Chars(i) asc1 = Convert.ToInt32(chr) If asc1 >= 65 And asc1 <= 91 And chr = chartest Then asc2 = Convert.ToInt32(chr) - 64 ii = asc2 t(ii) = t(ii) + 1 Me.Controls("label" & asc2).Text = Convert.ToString(t(ii)) End If Next j Next i For i = 1 To 26 If Me.Controls("label" & i).Text <> "0" Then Me.Controls("label" & i + 26).ForeColor = Color.DarkOrange Me.Controls("label" & i).ForeColor = Color.DarkOrange End If Next End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i As Integer RichTextBox1.Clear() For i = 1 To 26 If Me.Controls("label" & i).Text <> "0" Then Me.Controls("label" & i + 26).ForeColor = Color.Black Me.Controls("label" & i).ForeColor = Color.Black Me.Controls("label" & i).Text = "0" End If Next End Sub Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged RichTextBox1.Text = RichTextBox1.Text.ToUpper RichTextBox1.Select(RichTextBox1.Text.Length, 0) End Sub End Class
21 sept. 2012 à 19:15
@ Tout le monde : MAJ
@ LE PIVERT : Je te remercie pour la commande proposée.
@ ALPHA5 : Dorénavant on peut aussi utiliser la casse miniscule.
Bon week end :-)
21 sept. 2012 à 07:57
Si cela peut aider:
Majuscules:
Me.RichTextBox1.Text = Me.RichTextBox1.Text.ToUpper()
Minuscules:
Me.RichTextBox1.Text = Me.RichTextBox1.Text.ToLower()
@+ Le Pivert
20 sept. 2012 à 00:02
Merci pour tes encouragements.
J'ai vu aussi ton code pour le même programme c'est aussi bien fait.
:)
19 sept. 2012 à 21:26
Excellent travail
On regretera d'être obligé de taper le texte seulement en majuscule
bravo!
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.