Rookie With Events; Причинение действия после удара F5

Question

Итак, да, я очень новичок в создании собственных пользовательских событий. Я могу сделать основы, когда я помещаю элементы управления в форму, но это немного сложнее. У меня есть приложение, которое читает в .TSV и заполняет форму элементами управления, основанными на количестве объектов, которые она «читает». Например, у меня есть файл, содержащий 10 человек, и мой код заполняет форму с элементами управления для каждого человека. Легкий материал!

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

Очевидно, что я спрашиваю об этом и названии этого вопроса, я не знаю, как это сделать. Я действительно не понимаю события, и я узнаю пример, но примеры MSDN не совсем сократили его.

Любой помощь (особенно удивительный шаг за шагом руководство) было бы весьма признателен.

Answer 1

Из того, что я понял из комментариев, вы хотите добавить события к форме объекта, который создается во время выполнения. Используйте команду AddHandler для объекта. Что-то эффект:

AddHandler NameOfFormObject.TypeOfAction, AddressOf HowToHandle 

Private Sub HowToHandle(ByVal sender as System.Object, ByVal e As System.EventArgs) 
    DropDownMenu.enabled = True 
End Sub 

делая это таким образом, вы будете иметь возможность изменять события объекта, созданного во время выполнения. В вашем случае, это звучит, как вы хотите использовать действие, рекомендуемое Josaph, и в конечном итоге включения обоих решений, предлагаемых, например, так

AddHandler ComboBox1.SelectedIndexChanged, AddressOf HowToHandle 

Private Sub HowToHandle(ByVal sender as System.Object, ByVal e As System.EventArgs) 

    If DirectCast(sender, ComboBox).SelectedIndex = 0 'Alive 
     DirectCast(DirectCast(sender, ComboBox).Tag, TextBox).enabled = True 
    Else 
     DirectCast(DirectCast(sender, ComboBox).Tag, TextBox).enabled = False 
    End If 
End Sub 

Answer 2

Вы должны использовать событие ComboBox_SelectedIndexChanged(), чтобы зафиксировать, что элемент со списком был изменен. В этот момент вам нужно будет проверить, был ли выбран элемент со списком, и принять решение о том, следует ли включить TextBox или нет. Вот пример. Примечание. В этом примере предполагается, что «Живой» является первым элементом в вашем поле со списком в индексе 0.

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) 
     If ComboBox1.SelectedIndex = 0 Then 'Alive 
      TextBox1.Enabled = True 
     Else 
      TextBox1.Enabled = False 
     End If 
    End Sub

Динамически сгенерировать выпадающий список и добавить обработчик.

Dim cmb as New ComboBox 
AddHandler cmb.SelectedIndexChanged, AddressOf ComboBox1_SelectedIndexChanged 
Me.Controls.Add(cmb)

Answer 3

Я полагаю, что, как вы будете иметь 10 выпадающие списки ... В Таким же образом у вас будет 10 текстовых полей.

В этом случае ... после того, как вы присоедините и обработаете событие как AndyPerfect и Joseph ... в этом методе вам понадобится код, чтобы узнать, какие из текстовых полей вам нужно включить/отключить.

Прежде всего вам нужно знать, какая функция сочленения вызвала событие: это делается с использованием параметра «отправитель». ctype(sender, Combobox) для доступа к методам и свойствам ComboBox.

Как только вы знаете, какая комбинация, вам нужно активировать/деактивировать правильное текстовое поле. Для этого вам нужно добавить ссылку на TextBox в свойстве «TAG» Combobox на момент его создания.

Dim txt as new TextBox 
Dim cmb as new ComboBox 
cmb.Tag = txt 

Затем ...вы просто используете:

ctype(ctype(sender, Combobox).Tag, TextBox).Enable = true 

Answer 4

Вот как я закончил писать это в конце. Я ценю всю помощь! Спасибо!

If DirectCast(sender, ComboBox).SelectedIndex = 2 Then 
     DirectCast(Me.Controls.Item(DirectCast(sender, ComboBox).Tag), TextBox).Enabled = True 
    Else 
     DirectCast(Me.Controls.Item(DirectCast(sender, ComboBox).Tag), TextBox).Enabled = False 
    End If