estica Posted February 27, 2014 at 02:42 PM Report #546897 Posted February 27, 2014 at 02:42 PM (edited) Pessoal eu adiciono Items a um ComboBox agora o que quero é por exemplo o nome do Item ser NAMEEE mas ao atribuir a um file quero que seja o numero 3... Como faço isso? Edited February 27, 2014 at 02:43 PM by ribeiro55
nelsonr Posted February 27, 2014 at 02:47 PM Report #546899 Posted February 27, 2014 at 02:47 PM Que queres dizer com "atribuir a um file" ? Queres alterar o elemento na 3ª posição?
estica Posted February 27, 2014 at 03:03 PM Author Report #546909 Posted February 27, 2014 at 03:03 PM Que queres dizer com "atribuir a um file" ? Queres alterar o elemento na 3ª posição? Vou explicar. O meu programa vai ter nomes de ligas. Por exemplo "Liga Zon Sagres". E no combobox vai aparecer Liga Zon Sagres e ao selecionar esse Item da Liga Zon Sagres eu preciso que atribua em vez de Liga Zon Sagres, o numero 2002. Se eu meter o 2002 no nome do Item ele vai atribuir e fica bem. O problema é que o Item tem um nome e o resultado vai ter de ser um numero.
nelsonr Posted February 27, 2014 at 03:10 PM Report #546910 Posted February 27, 2014 at 03:10 PM Então queres converter de string para int ?
estica Posted February 27, 2014 at 03:17 PM Author Report #546911 Posted February 27, 2014 at 03:17 PM Então queres converter de string para int ? Se é esse o nome. Não sou lá grande coisa na programação. O que quero é gravar um file. que tem o nome XXXXX e ao gravar vai ficar com o numero 2002. Tipo isto: "overlay_" + ComboBox8.Text + ".big" Mas no ComboBox vai aparecer o nome Liga Zon Sagres que será igual ao 2002...
nelsonr Posted February 27, 2014 at 03:41 PM Report #546917 Posted February 27, 2014 at 03:41 PM Será algo assim? ' Criar class que vai conter informação de cada liga Private Class Liga Public Nome As String Public Numero As Integer ' Ao criar nova liga, tem de se indicar o nome e numero Public Sub New(Nome As String, Numero As Integer) Me.Nome = Nome Me.Numero = numero End Sub ' Indicar que deve mostrar o nome quando tentar visualizar a liga Public Overrides Function ToString() As String Return Me.Nome.ToString() End Function End Class ' Criar lista que vai conter todas as ligas Dim listaLigas As New List(Of Liga) ' Ao iniciar o form Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load ' Define as ligas listaLigas.Add(New Liga("Liga Zon Sagres", 2002)) listaLigas.Add(New Liga("Liga XPTO", 2014)) ' Adiciona todas as ligas à combobox For Each liga As Liga In listaLigas ComboBox1.Items.Add(liga) Next End Sub ' Ao selecionar uma liga Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged ' Caso a combobox tenha uma selecionada If ComboBox1.SelectedIndex >= 0 Then ' Lê a liga selecionada e guarda numa variavel Dim ligaSelecionada As Liga = DirectCast(ComboBox1.SelectedItem, Liga) ' Mostra mensagem com o número da liga selecionada MessageBox.Show("overlay_" & ligaSelecionada.Numero & ".big") End If End Sub
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now