Oi.
Se Precisar Dos Códigos que estou fazendo ( tentando fazer ) eu passo aqui!
Sempre que for perguntar algo,mostre o que já tem pronto... e qual o problema.
Ok.. Mas a única coisa que fiz é colocar os items na combobox, com o nomes dos ranks.
Sei que tenho que passar os valores dos ranks vou passar aqui!
Nome dos Ranks + Valores
Soldado = 0
Soldado Jr = 3500
1° Soldado = 4056
Cabo = 4667
Sargento = 5339
...
Sei que vamos dizer que deve ser igual só mudar os valores!
Eu estava tentando usar o select case, mais ae não deu certo ae por enquanto ta assim!
Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Add("Soldado")
ComboBox1.Items.Add("Soldado Jr.")
ComboBox1.Items.Add("1° Soldado")
ComboBox1.Items.Add("Cabo")
ComboBox1.Items.Add("Sargento")
ComboBox1.Items.Add("2° Sargento")
ComboBox1.Items.Add("1° Sargento")
ComboBox1.Items.Add("Sargento Superior")
ComboBox1.Items.Add("2° Tenente")
ComboBox1.Items.Add("1° Tenente")
ComboBox1.Items.Add("Capitão")
ComboBox1.Items.Add("Major")
ComboBox1.Items.Add("Tenente Coronel")
ComboBox1.Items.Add("Coronel")
ComboBox1.Items.Add("Brigadeiro General")
ComboBox1.Items.Add("Major General")
ComboBox1.Items.Add("Tenente General")
ComboBox1.Items.Add("General")
ComboBox1.Items.Add("General Das Armadas")
PictureBox1.Hide()
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Txt_sexp.Clear()
PictureBox1.Hide()
End Sub
End Class
O Button 2 é o botão reset xD!
Mais Por favor pode sim colocar como está ficando seu código!
