none
[VB.NET] Galera Por Favor Me Ajuda! RRS feed

Todas as Respostas

  • 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.

    quarta-feira, 19 de setembro de 2012 04:02
  • 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!


    • Editado andrefillype quarta-feira, 19 de setembro de 2012 22:51
    quarta-feira, 19 de setembro de 2012 22:17