Adding Items To A ComboBox Via File Reading?!

[be58d2003]

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       Dim A As Integer, B As String, FileName As String = "C:\Program Files\TTools202\Aircraft030528.txt"
       Dim OpenFile As FileStream = New FileStream(FileName, FileMode.Open, FileAccess.Read, FileShare.Read)
       Dim SR As StreamReader = New StreamReader(OpenFile)
       A = A + 1
       If A >= 1 Then
           Timer1.Enabled = False
           Do
               B = SR.ReadLine
               ComboBox1.Items.AddRange(New Object() {B})
           Loop Until B Is Nothing
           SR.Close()
           OpenFile.Close()
       End If
       ComboBox1.Enabled = True
   End Sub

Ok, I must be stupid or something... Can someone please help?!

I want to read a .txt file, and have the items listed (line by line) in the DropDown list... The previous code is what I am trying...

 

However, I get an unhandled exception error saying that the value can not be null and parameter name: item.

 

I tested it by clicking "Continue" in the error box. I shows the dropdown list with all of the contents of the .txt file. So what is causing this error?

[PlausiblyDamp]

change the middle bit to

Do
   B = SR.ReadLine
    If Not B Is Nothing Then
       ComboBox1.Items.AddRange(New Object() {B})
     end if
   Loop Until B Is Nothing

 

the last SR.ReadLine will be nothing - thats what is causing the error.

[be58d2003]

Thanks, I will give it a try.

[be58d2003]

Thank You so much, fixed the problem.