Gareth

Gareth

  • NA
  • 1
  • 0

could i get a little bit of help please

Dec 5 2006 6:17 PM

I have a program that through a combo box the user can select a car (which is from a textfile)
I want to use a button to search through the file and display the model and make of the car into seperate textboxes. One textbox for 'Make' and a nex for 'Model'.
When the button is pressed I want it to calculate the index number of the selected item and display the matching items in the array.
Here is what is in the txt file:

"D1zzy", "Renault", "Clio"
"M14SMA", "Porsche", "Boxster"
"VB61DEX", "Ford", "Capri"
"B007OND", "Aston Marting", "DB6"


And my Code that i have attempted to write is like this:

Option Strict Off
Option Explicit On
Friend Class FormMain
    Inherits System.Windows.Forms.Form
    Private arrVehicle(12) As String
#Region "Windows Form Designer generated code "
#End Region

 Private Sub SearchButt_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles SearchButt.Click
        Dim strRegNum As String   'the Registration Number
        Dim strMake As String
        Dim strModel As String
        Dim strFile As String   'declare a string variable
        Dim intCurrentItem As String
        'intCurrentItem = 0
        strFile = "N:/Bless Folder/Year 2/WINPRO/Week_05/AutoMationSt/Autolist.txt"
        FileOpen(1, strFile, OpenMode.Input) 'open file and retrieve data
        Do Until EOF(1)
            Input(1, strRegNum)
            Input(1, strMake)
            Input(1, strModel)
            cboRegNo.Items.Add(strRegNum)
            txtRegNum.Text = cboRegNo.SelectedItem
            txtMake.Text = strMake
            txtModel.Text = strModel
            arrVehicle(intCurrentItem) = strMake
            'intCurrentItem = intCurrentItem + 1
        Loop
        FileClose(1)

        'txtMake.Text = cboRegNo.SelectedItem
        'txtModel.Text = cboRegNo.SelectedItem
        'A Run Search button which calculates the
        'index number of the selected item and displays the matching items in the array
    End Sub

    Private Sub FormMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim strRegNum As String   'the Registration Number
        Dim strMake As String
        Dim strModel As String
        Dim strFile As String   'declare a string variable
        strFile = "N:/Bless Folder/Year 2/WINPRO/Week_05/AutoMationSt/Autolist.txt"
        FileOpen(1, strFile, OpenMode.Input) 'open file and retrieve data
        Do Until EOF(1)
            Input(1, strRegNum)
            Input(1, strMake)
            Input(1, strModel)
            cboRegNo.Items.Add(strRegNum)
        Loop
        FileClose(1)

 

    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub

    Private Sub cboRegNo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboRegNo.SelectedIndexChanged

    End Sub
End Class


I just really would like to understand what it is that i have to do, because i have tried to do it, but its not doing it. Thanks everyone