Jump to content

Recommended Posts

Posted (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 by ribeiro55
Posted

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.

Posted

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

Posted

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

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.