Reference no: EM132217544
Zander Inc. stores employee IDs and salaries in a sequential access file named Employees.txt.
Open the VB2015\Chap10\Zander Solution\Zander Solution (Zander Solution.sln) file. Open the Employees.txt file, which is contained in the project's bin\Debug folder. The ID and salary information appear on separate lines in the file. Close the Employees.txt window.
a. Define a structure named Employee. The structure should contain two member variables:
a String variable to store the ID and a Double variable to store the salary.
b. Declare a class-level array that contains five Employee structure variables.
c. The frmMain_Load procedure should read the IDs and salaries from the Employees.txt file and store them in the class-level array. It should also add the IDs to the list box.
d. When the user selects an employee ID in the list box, the employee's salary should appear in the lblSalary control.
e. Test the application appropriately.
As of right now this is my code i have 2 errors i will put them in bold. will put in a picture of how it suppose to look.
Option Explicit On
Option Strict On
Option Infer Off
Public Class frmMain
Structure Employee
Public strID As String
Public dblSalary As String
End Structure
Private emp(4) As Employee
Private strfile As String = "Employees.txt"
Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
Me.Close()
End Sub
Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim inFile As IO.StreamReader
Dim strId As String
Dim intSub As Integer = 0
If IO.File.Exists(strfile) Then
inFile = IO.File.OpenText(strfile)
Do Until inFile.Peek = -1
strId = inFile.ReadLine
lstIds.Items.Add(strId)
emp(intSub).strID = strId
emp(intSub).dblSalary = Convert.ToDouble(inFile.ReadLine)
intSub += 1
Loop
inFile.Close()
lstIds.SelectedIndex = 0
Else
MessageBox.Show("Can't find" & strfile & "File", "Employees", MessageBoxButtons.OK)
End If
End Sub
Private Sub lstIds_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lstIds.SelectedIndexChanged
For Each dbElement As Employee In emp
If lstIds.SelectedItem.ToString = dbElement.strID Then
lblSalary.Text = dbElement.dblSalary.ToString("C2")
End If
Next
End Sub