MOSTRAR MAIOR NUMERO, MIGRAR DO VB6 PARA VB.NET
Galera nao estou conseguindo fazer uma coisa basica .. tenho uma rotina que me da o Maior numero digitado nos campos, só que está em VB6 preciso colocar no Vb.net e ja tentei de diversas formas adaptar e não consegui preciso mostrar o maior numero digitados de 6 textbox ou [ô]n[ô] textbox :(
poderiam me ajudar? segue o cod em vb6
poderiam me ajudar? segue o cod em vb6
Public Sub procMaiorNum()
Dim vetNum(6) as Double
Dim i As Long
menor = 0
maior = 0
For i = 0 To UBound(vetNum) - 1
vetNum(i) = textbox(i).Text
Next i
For i = 0 To UBound(vetNum) - 1
If i = 0 Then
menor = vetNum(i)
maior = vetNum(i)
Else
If menor > vetNum(i) Then
menor = vetNum(i)
End If
If maior < vetNum(i) Then
maior = vetNum(i)
End If
End If
Next i
txtrecebevalor.Text = maior
End Sub
Amigo VB.NET não possui Array de controles, você pode fazer dessa forma, criar uma lista e adicionar o conteúdo dos text, depois verificar qual é o maior
Dim iLista As New List(Of Integer)
Dim iAux As Integer = 0
iLista.Add(TextBox1.Text)
iLista.Add(TextBox2.Text)
iLista.Add(TextBox3.Text)
iLista.Add(TextBox4.Text)
iLista.Add(TextBox5.Text)
iLista.Add(TextBox6.Text)
For Each I As Integer In iLista
If I > iAux Then iAux = I
Next
MsgBox(iAux)
Dim iLista As New List(Of Integer)
Dim iAux As Integer = 0
iLista.Add(TextBox1.Text)
iLista.Add(TextBox2.Text)
iLista.Add(TextBox3.Text)
iLista.Add(TextBox4.Text)
iLista.Add(TextBox5.Text)
iLista.Add(TextBox6.Text)
For Each I As Integer In iLista
If I > iAux Then iAux = I
Next
MsgBox(iAux)
Criei esse projeto aqui pra você no Visual Studio 2010. Dá uma olhada aà e veja se é isso que está precisando.
Citação:Amigo VB.NET não possui Array de controles, você pode fazer dessa forma, criar uma lista e adicionar o conteúdo dos text, depois verificar qual é o maior
Agradeço pela resposta, mais testei o exemplo do JABA e deu certinho..
Muito obrigado mesmo viu JABA!!!!!!
Tópico encerrado , respostas não são mais permitidas