переменных со значением контроля

Question

У меня есть проблема, похожая на Variable with Value of a Label Name

Но вместо метки, я пытаюсь использовать ListBox

Private Sub processLog(ByVal logFileName As String, ByVal logCateory As String) 
    Dim variableListBox As New ListBox 

    variableListBox = DirectCast(Me.Controls(logCateory), ListBox) 
    variableListBox.Items.Add("HELLO") 

    End Sub 

Что можно может быть неправильно с указанным кодом , он возвращает NullReferenceException was unhandledObject reference not set to an instance of an object. на линии, variableListBox.Items.Add("HELLO").

Я также таймер для вызова выше Sub:

Private Sub tmrProcessLogs_Tick(sender As Object, e As EventArgs) Handles tmrProcessLogs.Tick 
     processLog(fileGeneral, lbxGeneral.Name.ToString) 
    End Sub 

Answer 1

Наиболее вероятной причиной является то, что родитель данного контроля не Main Form и, насколько Me.Controls("name") выглядит только для управления чей родитель является Основной формой, variableListBox - Nothing и, таким образом, вы запускаете ошибку, намереваясь получить доступ к Items.Add("HELLO"). Заменить

variableListBox = DirectCast(Me.Controls(logCateory), ListBox) 
variableListBox.Items.Add("HELLO") 

С:

Dim ctrls() As Control = Me.Controls.Find(logCateory, True) 
If (ctrls.Count = 1 AndAlso TypeOf ctrls(0) Is ListBox) Then 
    variableListBox = DirectCast(ctrls(0), ListBox) 
    variableListBox.Items.Add("HELLO") 
End If 

Все это в предположении, что logCateory содержит имя одного из элементов управления в форме (родителя или ребенка на любом уровне).