Quantcast
Channel: VBForums - Visual Basic .NET
Viewing all articles
Browse latest Browse all 27206

How do you add text to the bottom of a listbox

$
0
0
Sorry i wont figure out how to add a grand total to the end of my list of all the amounts.

Code:

Public Class Form1
    Structure Clerk
        Dim ClerkID As String
        Dim DOS As String
        Dim Amount As Double
        Dim SKU As String
    End Structure


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Clerks() As String = IO.File.ReadAllLines("Question4.txt")
        Dim query = From line In Clerks
        Let data = line.Split(","c)
        Let ClerkID = data(0)
        Let DOS = data(1)
        Let Amount = data(2)
        Let SKU = data(3)
        Select ClerkID, DOS, Amount, SKU
        For Each Clerk In query
            LstClerks.Items.Add("Clerk ID: " & Clerk.ClerkID & " " & "Sale Amount: " & Clerk.Amount)
            LstClerks.Items.Add("Sale Total: " & Clerk.Amount & " Average: N/A " & "Stock: 1 ")
            LstClerks.Items.Add("      ")


        Next



    End Sub

    Private Sub Button1_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.MouseHover
        ToolTip1.SetToolTip(Button1, "Button has no functionality")



    End Sub
End Class


Viewing all articles
Browse latest Browse all 27206

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>