Boa Noite! Como posso saber qual o maior e menor numero num textbox??

Question

este programa consiste em inserir numeros num textbox multiline e depois ao click num botao ele diz qual o maior e menor noutro txtbox. agora na subrotina de enviar o maior e menor numero tenho de fazer um ciclo que percorra o textbox onde estao os numeros inseridos??Obrigado

Private Sub BtAdd_Click(sender As System.Object, e As System.EventArgs) Handles BtAdd.Click


numero = TxtIntNum.Text



ListaNum.AppendText(numero & vbCrLf)




TxtIntNum.Text = ""
End Sub

  Private Sub BtCalc_Click(sender As System.Object, e As System.EventArgs) Handles 

Answer 1

Bom dia amigo!

Conseguiu resolver seu problema?

Eu encontrei uma solução simples, caso você ainda não tenha resolvido. Eu resolvi isso percorrendo o textbox multiline e adicionando os valores em um array. Depois ordenei o array pelo método sort e aí exibi o primeiro e o ultimo item do array.

Segue o código:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Me.TextBox1.Text <> "" Then
            Me.TextBox2.Text = ""
            Dim array As New ArrayList
            For i As Integer = 0 To Me.TextBox1.Lines.Count - 1
                array.Add(CInt(Me.TextBox1.Lines(i).ToString))
            Next
            array.Sort()
            Me.TextBox2.Text = "O Menor é:" & array(0).ToString & vbCrLf & "O Maior é:" & array(array.Count - 1)
        End If
    End Sub

Espero ter ajudado.

Att.

Giovani