vb.net Установите элементы списка, равные целому числу

Question

У меня есть окно с большим количеством опций (198, если быть точным), и они являются именами элементов. Мне нужно преобразовать каждое имя равным целому числу (id элемента), чтобы я мог записать этот номер в файл.

Например, если они выбрали первый элемент, то целое число будет установлено равным 3000, но если они выбрали второй элемент, это будет 3001 и так далее.

Надеюсь, вы можете понять, не был уверен, как это сказать. Благодарю.

Answer 1

Присвойте dataTableItemSource вашего listBox. Очевидно, что в DataTable имеется более одного поля. Вам нужно будет настроить свойства списка, чтобы установить одно из его полей (строка для отображения) как видимая, а затем другое поле как visible = false. В одном из событий (например, selectedItemChange, я думаю) доступ к элементу SelectedItem элемента, который соответствует полю id.

Answer 2

Создать перечислению и присвоить каждому пункту значение, например, как показано ниже

Public Enum MyCountryCodes As Integer 
    drzCOUNTRY_UNKNOWN = 0 
    drzCOUNTRY_AFGHANISTAN = 1 
    drzCOUNTRY_ALBANIA = 2 
    drzCOUNTRY_ALGERIA = 3 
    drzCOUNTRY_AMERICANSAMOA = 4 
    drzCOUNTRY_ANDORRA = 5 
    ... etc etc 
    drzCOUNTRY_YEMEN = 241 
    drzCOUNTRY_ZAMBIA = 242 
    drzCOUNTRY_ZIMBABWE = 243 
End Enum 

Answer 3

Вы имеете в виду, как это?

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged 
    MsgBox(ListBox1.SelectedIndex + 3000) 
End Sub