NUMERICUPDOWN

PROGRAMADORVB6 15/07/2012 18:39:30
#406142
Boa Noite Galera.
Estou com um probleminha, porque não consigo que ele me informe qual a avaliação dada a uma password gerada, enquanto digitamos.
Fiz assim, mas não funciona.
Private Sub Tamanho_Palavra_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles Tamanho_Palavra.KeyPress
        [ô]Tamanho da Pass  [4 - 255] Caracteres
        Select Case Tamanho_Palavra.Value
                Case 4
                    Me.Label3.ForeColor = Color.DarkRed
                    Me.Label3.Text = [Ô]Baixa[Ô]
                Case 5 To 64
                    Me.Label3.ForeColor = Color.OrangeRed
                    Me.Label3.Text = [Ô]Normal[Ô]
                Case 65 To 127
                    Me.Label3.ForeColor = Color.ForestGreen
                    Me.Label3.Text = [Ô]Optimizada[Ô]
                Case 128 To 255
                    Me.Label3.ForeColor = Color.MidnightBlue
                    Me.Label3.Text = [Ô]Elevada[Ô]
            End Select
           If e.KeyChar <> ControlChars.Back Then [ô]AndAlso e.KeyChar <> [Ô]-[Ô]c
            [ô]---------------------------
            e.Handled = Not Char.IsNumber(e.KeyChar)
            If Not e.Handled Then
                Dim num As Integer = Integer.Parse(String.Format([Ô]{0}{1}[Ô], If(Tamanho_Palavra.Text = String.Empty, [Ô][Ô], Tamanho_Palavra.Text), e.KeyChar.ToString()))
                If num <= 0 OrElse num > 255 Then
                    e.Handled = True
                End If
            End If
        End If

    End Sub


Grato desde já pela vossa atenção
Atenciosamente.
Programadorvb6
ROBSON220BASS 16/07/2012 18:44:54
#406207
parceiro, nao entendi muito bem,, pra que serve a linha : Dim num As Long [ô]= Integer.Parse(String.Format([Ô]{0}{1}[Ô], If(Tamanho_Palavra.Text = String.Empty, [Ô][Ô], Tamanho_Palavra.Text), e.KeyChar.ToString()))


mas se fizer assim.. funciona... da uma olhadinha.

[ô]Tamanho da Pass [4 - 255] Caracteres
Select Case Len(Tamanho_Palavra.Text)
Case 4
Me.Label3.ForeColor = Color.DarkRed
Me.Label3.Text = [Ô]Baixa[Ô]
Case 5 To 64
Me.Label3.ForeColor = Color.OrangeRed
Me.Label3.Text = [Ô]Normal[Ô]
Case 65 To 127
Me.Label3.ForeColor = Color.ForestGreen
Me.Label3.Text = [Ô]Optimizada[Ô]
Case 128 To 255
Me.Label3.ForeColor = Color.MidnightBlue
Me.Label3.Text = [Ô]Elevada[Ô]
End Select
If e.KeyChar <> ControlChars.Back Then [ô]AndAlso e.KeyChar <> [Ô]-[Ô]c
[ô]---------------------------
e.Handled = Not Char.IsNumber(e.KeyChar)
If Not e.Handled Then
Dim num As Integer [ô]= Integer.Parse(String.Format([Ô]{0}{1}[Ô], If(Tamanho_Palavra.Text = String.Empty, [Ô][Ô], Tamanho_Palavra.Text), e.KeyChar.ToString()))
If num <= 0 OrElse num > 255 Then
e.Handled = False
End If
End If
End If
PROGRAMADORVB6 17/07/2012 15:29:05
#406246
Olá ROBSON220BASS
Você indicou assim :
Select Case Len(Tamanho_Palavra.Text)

O que está direccionado só para a contagem de caracteres digitados.
Mas na verdade o que eu pretendo é que seja feita a avaliação á password em si
Tópico encerrado , respostas não são mais permitidas
Voltar