1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| Dim Param_List As New ListBox
If ControlWidth = 9999 Then XWidth = 200 Else XWidth = ControlWidth
With Param_List
.Name = ControlName
.Size = New Size(288, XWidth)
.Location = New Size(0, param_axe)
.DataSource = New BindingSource(_DataSourceRPT_Declaration._Listdata, Nothing)
.DisplayMember = "TXT"
.ValueMember = "ID"
'marche pas .SelectedIndex = .Items(0)
param_axe = param_axe + XWidth + 10
End With
AddHandler Param_List.SelectedIndexChanged, AddressOf SomethingChanged
Panel_Param.Controls.Add(Param_List) |
Partager