Dim NET_INT() As Net.NetworkInformation.NetworkInterface = Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces
Private Sub MainDialog
Dim TOP_S As Integer = 30
For I As Integer = 0 To NET_INT.Length - 1
Dim IT As New RadioButton
With IT
.Text = NET_INT(I).Description
.AutoSize = True
.Name = NET_INT(I).Id
.BackColor = Color.Transparent
.ForeColor = Color.LightGray
.Top = TOP_S
.Left = 3
.Tag = I
End With
TOP_S += 24
Me.TabPageInterface.Controls.Add(IT)
Next I
End Sub
Програмно-созданные объекты.
Объекты создаються через цикл.
Имена и количество каждый раз может быть разным.
?
Я правильно понял,что у вас массив объектов?Тогда создаёте обработчик для того объекта,который на форме(исходный),а в нём,НЯП,будет передаваться индекс объекта
Цитата: @pixo $oft
Я правильно понял,что у вас массив объектов?Тогда создаёте обработчик для того объекта,который на форме(исходный),а в нём,НЯП,будет передаваться индекс объекта
Код выглядит примерно так:
Код:
Можно подробнее?
(не знаю я вашего синтаксиса, но смысл таков)
Нужно было добавить в цикл строку AddHandler IT.CheckedChanged, AddressOf RB_CLICK
Ну и функуию RB_CLICK