NUMERICUPDOWN

 Tópico anterior Próximo tópico Novo tópico

NUMERICUPDOWN

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#406142 - 15/07/2012 18:39:30

PROGRAMADORVB6
LISBOA
Cadast. em:Janeiro/2004


Última edição em 15/07/2012 18:41:29 por PROGRAMADORVB6

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

______________________________________________________________________________

Que minha coragem seja maior que meu medo e que minha força seja tão grande quanto minha fé.


#406207 - 16/07/2012 18:44:54

ROBSON220BASS
GOIANIRA-GO
Cadast. em:Maio/2009


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




#406246 - 17/07/2012 15:29:05

PROGRAMADORVB6
LISBOA
Cadast. em:Janeiro/2004


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

______________________________________________________________________________

Que minha coragem seja maior que meu medo e que minha força seja tão grande quanto minha fé.


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por PROGRAMADORVB6 em 19/07/2012 15:09:20