Here is an image of how the application is supposed to look: http://i.imgur.com/DL0cp.jpg
I could really use some help because I am very stuck.
Public Class MainForm
Private Sub exitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exitButton.Click
Me.Close()
End Sub
Dim salesPerID(5) As Integer
Dim total As Integer
Dim sale As Integer
Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
'Loads the ListBox with values and sets index
salesIDListBox.Items.Add("101")
salesIDListBox.Items.Add("112")
salesIDListBox.Items.Add("203")
salesIDListBox.Items.Add("301")
salesIDListBox.Items.Add("302")
salesIDListBox.SelectedIndex = 0
End Sub
Private Sub salesIDListBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles salesIDListBox.SelectedIndexChanged
sale = salesIDListBox.SelectedIndex
salesTextBox.Text = salesPerID(sale).ToString("C0").
End Sub
Private Sub addButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addButton.Click
Integer.TryParse(salesTextBox.Text, total)
salesTextBox.Text = CStr(salesPerID(0))
salesTextBox.Text = CStr(salesPerID(1))
salesTextBox.Text = CStr(salesPerID(2))
salesTextBox.Text = CStr(salesPerID(3))
salesTextBox.Text = CStr(salesPerID(4))
For Each sale As Integer In salesPerID
sale += total
Next sale
End Sub
Private Sub createButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles createButton.Click
totalSalesTextBox.Text = salesPerID(0).ToString("C2")
totalSalesTextBox.Text = salesPerID(1).ToString("C2")
totalSalesTextBox.Text = salesPerID(2).ToString("C2")
totalSalesTextBox.Text = salesPerID(3).ToString("C2")
totalSalesTextBox.Text = salesPerID(4).ToString("C2")
totalSalesTextBox.Text = total.ToString("C2")
End Sub
End Class

New Topic/Question
Reply



MultiQuote






|