'en variable globale, j'ai mis :
dim var as string = "."
'mon richtextbox s'apelle Textbox
Private Sub TextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox.KeyPress
If e.KeyChar = var Then
vBooleen = True
End If
End Sub
' ici, textbox est le richtextbox
Private Sub TextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox.TextChanged
Dim i As Integer
If vBooleen = True Then
i = TextBox.Text.IndexOf(var) + 2
TextBox.Text.IndexOf(i)
TextBox.Text.ToUpper()
End If
vBooleen = False
End Sub
Partager