Visual Basic 2010

Hej Emil,

Måden du tilføjer ting til din listbox er med koden:

 listBox1.Items.Add("Tekst her!")

Hej Emil

Her er lidt kode du måske kan bruge.

 Public Class Form1
 
     Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
         ColorDialog1.Color = Me.BackColor
         If ColorDialog1.ShowDialog() = DialogResult.OK Then
             TextBox2.BackColor = ColorDialog1.Color
             Label2.Text = ColorDialog1.Color.R.ToString()
             Label3.Text = ColorDialog1.Color.G.ToString()
             Label4.Text = ColorDialog1.Color.B.ToString()
         End If
     End Sub
 
     Dim colorList As ColorList
 
     Private Sub ButtonAddColor_Click(sender As System.Object, e As System.EventArgs) Handles ButtonAddColor.Click
 
         Dim _colorItem As ColorClass
 
         _colorItem = New ColorClass()
 
         If TextBoxColorName.Text = String.Empty Then
             MessageBox.Show("Inter name")
         Else
             _colorItem.ColorName = TextBoxColorName.Text
 
             _colorItem.HexColor = ColorDialog1.Color.ToString()
 
             colorList.Add(_colorItem)
 
             ComboBoxColor.Items.Add(_colorItem.ColorName)
 
             TextBoxColorName.Text = ""
         End If
     End Sub
 
     Private Sub ComboBoxColor_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBoxColor.SelectedIndexChanged
 
         Dim index As Integer
 
         index = ComboBoxColor.SelectedIndex
 
         LabelSelectedColor.Text = colorList.Item(index).HexColor
         TextBoxSelectedColor.BackColor = System.Drawing.Color.FromName(colorList.Item(index).ColorName)
 
     End Sub
 
     Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
         colorList = New ColorList()
     End Sub
 End Class

og så lige et par Class'er

 Public Class ColorClass
     Private _hexColor As String
     Public Property HexColor() As String
         Get
             Return _hexColor
         End Get
         Set(ByVal value As String)
             _hexColor = value
         End Set
     End Property
 
     Private _colorName As String
     Public Property ColorName() As String
         Get
             Return _colorName
         End Get
         Set(ByVal value As String)
             _colorName = value
         End Set
     End Property
 
 End Class
 
 Public Class ColorList : Inherits List(Of ColorClass)
 
 End Class

Kan du evt. poste et screen shoot, og noget kode med hvordan du har lavet din listbox ?

Det ville gøre, det lidt nemmere at hjælpe

Så er jeg her igen. Og har medbragt et screenshot med mig:

http://imageshack.us/photo/my-images/846/88688773.jpg

Er der ingen der kan hjælpe mig?

jo, hvis du poster lidt af den kode du har samt beskriver hvordan farven skal gemmes, skal den gemmes, som en farvekode, eller skal den gemmes som et Color objekt (hvis der overhovedet er en sådan i VB.NET) - Vi har brug for lidt mere viden for at kunne hjælpe dig mere end vi allerede har gjort

Det her er hvad jeg har indtil videre.
Lige nu kan den gemme et navn, men så mangler jeg bare at "gemme en værdi sammen med navnet", hvis man kan sige det sådan:

 Private Sub Button1_Click_2(sender As System.Object, e As System.EventArgs) Handles Button1.Click
         If WCComboColors.Text.Length = 0 Then
             MsgBox("Please enter a name.")
         ElseIf WCComboColors.Items.Contains(WCComboColors.Text) Then
             MsgBox("The name: " & "'" & WCComboColors.Text & "'" & " already exsist.")
         Else
             MsgBox("'" & WCComboColors.Text & "'" & " was added to the list.")
             ' THIS WILL SAVE WHATEVER THE USERS WAS WRITTEN IN THE COMBOBOX.
             ' NOW I JUST NEED TO SAVE THE VALUES (HEX VALUE, FROM A BACKGROUND COLOR OF A PANEL), ALONG WITH THE NAME.
             ' SO IF A USER PRESSES ORANGE, THE ORANGE HEX VALUE COLOR APPEARS IN A BACKGROUND COLOR OF A PANEL.
             ' THE USER SHOULD ALSO BE ABLE TO DELETE VALUES/NAMES.
             ' I DONT KNOW HOW TO SAVE/LOAD THIS DATA?
             WCComboColors.Items.Add(WCComboColors.Text)
 
         End If
     End Sub
     Private Sub Button2_Click_1(sender As System.Object, e As System.EventArgs) Handles Button2.Click
         MsgBox("'" & WCComboColors.Text & "'" & " was deleted from the list.")
         WCComboColors.Items.Remove(WCComboColors.SelectedItem)
         WCComboColors.Text = ""
         ColorBox.BackColor = Color.Black
     End Sub

Nu arbejder jeg ikke med VB.Net til daglig, men mon ikke du kan bruge noget lignende et HashMap (Det hedder det hvertfald i Java). Jeg fandt dette via google.

 ' Indsæt værdier
 Dim dictionary As New Dictionary(Of String, String)
 dictionary.Add("red", "#800000")
 dictionary.Add("green", "#008000")
 dictionary.Add("blue", "#000080")
 
 ' Hent værdier via key
 Console.writeline(dictionary.Item("red"))
 Console.writeline(dictionary.Item("green"))
 Console.writeline(dictionary.Item("blue"))

Den fungerer i hvertfald som et HashMap/HashTable, hvor du har en key, som den første parameter, f.eks. red, green, blue i eksemplet ovenfor, og den vil så returnere værdien specificeret som den anden parameter. Du kan hente værdierne ved at give keyen som parameter, til Propertien Item. Du kan evt. læse mere om Dictionary her

Super, det ser rimelig simpelt ud. Det prøver jeg lige

EDIT:


Nu har jeg prøvet mig lidt frem, og det virker som om det ikke er så nemt at bruge alligevel. For når jeg skal tilføje et par (Navn/Værdi)
Og kan satme ikke få det til at virke. Det virker meget indviklet faktisk. Sådan her ser det ud nu:

 Private Sub Button1_Click_2(sender As System.Object, e As System.EventArgs) Handles Button1.Click
         If WCComboColors.Text.Length = 0 Then
             MsgBox("Please enter a name.")
         ElseIf WCComboColors.Items.Contains(WCComboColors.Text) Then
             MsgBox("The name: " & "'" & WCComboColors.Text & "'" & " already exsist.")
         Else
             HASHTABLE.Add(WCComboColors.Text, HexColor.Text)
             WCComboColors.Items.Add(HASHTABLE.Item(WCComboColors.Text))
             MsgBox("'" & WCComboColors.Text & "'" & " was added to the list.")
         End If
     End Sub

Når jeg tilføjer en item, så viser den Værdien, og ikke teksten.
Og har prøvet mig lidt frem, men ikke fundet en løsning.

Det ser sådan her ud:
ImageShack Billede