ПОНЯТНО О Visual Basic NET (том 3)




Свойства, события и методы списков - часть 3


Handles Переставить.Click

        ComboBox1.Items.Add(ComboBox1.Text)                             'Сначала добавляем в конец,

        ComboBox1.Items.Remove(ComboBox1.SelectedItem)  'а затем удаляем с прежнего места

End Sub

Private Sub Исправить(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Исправить.Click

        ComboBox1.Items.RemoveAt(Номер)                              'Сначала удаляем старый элемент,

        ComboBox1.Items.Insert(Номер, ComboBox1.Text)        'а затем на его место вставляем текст из поля

End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)  _

Handles ComboBox1.SelectedIndexChanged

        Номер = ComboBox1.SelectedIndex

End Sub

Пояснения: Поскольку при редактировании текстового поля выделение элемента списка исчезает, я решил узнать номер (индекс) исправляемого элемента заранее, еще до начала редактирования, для чего использовал событие SelectedIndexChanged.

Замечу, что я, чтобы не утонуть в подробностях, не предохранил проект от неосторожных «нештатных» действий пользователя. Например, кнопка «Переставить в конец» ставит в конец списка, к сожалению, не сам элемент, а содержимое текстового поля, которое вы вполне могли по неосторожности и изменить.

Задание 4.    

«Англо-русский словарь». Поместите на форму два раскрывающихся списка. В левый запишите в алфавитном порядке несколько десятков английских слов. В правый запишите в том же порядке переводы этих слов на русский. При выборе слова в левом списке в правом должен появляться перевод.




Содержание  Назад  Вперед