Codenstuff.com

	Dim i As Short
		
		lstDetails.Items.Clear()
		
		For i = 1 To numrecs
			With CustArray(i)
                lstDetails.Items.Add(.CustName)

			End With
		Next 
		

Option Strict Off
Option Explicit On
Friend Class frmViewCust
	Inherits System.Windows.Forms.Form
	Dim numrecs As Short
	
	Private Sub cmdMain_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdMain.Click
		Me.Close()
		frmMenu.Show()
		
	End Sub
	
	Private Sub cmdSearch_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdSearch.Click
		Dim i As Short
		Dim searchname As String
		
		lstDetails.Items.Clear()
		
		searchname = InputBox("Enter name to search for", "Find Customer")
		searchname = UCase(searchname)
		
		For i = 1 To numrecs
			With CustArray(i)
				If searchname = .CustName Then
					lstDetails.Items.Add(.CustName)
					lstDetails.Items.Add(.Address)
					lstDetails.Items.Add(.Town)
					lstDetails.Items.Add(.Phone)
					Exit Sub
				Else : MsgBox("No record for this customer")
				End If
			End With
		Next 
		
	End Sub
	
	Private Sub cmdViewAll_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdViewAll.Click
		Dim i As Short
		
		lstDetails.Items.Clear()
		
		For i = 1 To numrecs
			With CustArray(i)
                lstDetails.Items.Add(.CustName)

			End With
		Next 
		
	End Sub
	
	Private Sub frmViewCust_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		Dim Booking As BookingRecord
		
		Filename = My.Application.Info.DirectoryPath & "\fish.dat"
		
		FileOpen(1, Filename, OpenMode.Input)
		Do While Not EOF(1)
			numrecs = numrecs + 1
			Input(1, Booking.DateOfBooking)
			Input(1, Booking.BookingName)
			CustArray(numrecs).CustName = Booking.BookingName
			Input(1, Booking.BookingAddress)
			CustArray(numrecs).Address = Booking.BookingAddress
			Input(1, Booking.BookingTown)
			CustArray(numrecs).Town = Booking.BookingTown
			Input(1, Booking.BankOrBoatBooking)
			Input(1, Booking.ContactPhoneNumber)
			CustArray(numrecs).Phone = Booking.ContactPhoneNumber
			Input(1, Booking.DayOrEveningSession)
			Input(1, Booking.OutBoard)
			Input(1, Booking.NumberFishing)
			Input(1, Booking.BankOrBoatCost)
			Input(1, Booking.OutboardCost)
			Input(1, Booking.TotalCostForGroup)
		Loop 
		FileClose(1)
    End Sub

  
End Class

 Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
For i = 0 To ListBox1.SelectedItems.Count - 1
 TextBox1.Text = ListBox1.SelectedItems.Item(i).ToString()
 Next
    End Sub

    Private Sub lstDetails_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstDetails.SelectedIndexChanged

        Dim i As Integer

        For i = 0 To lstDetails.SelectedItems.Count - 1
            TextBox1.Text = lstDetails.SelectedItems.Item(i).ToString()
        Next

    End Sub

Dim str As String = ListBox1.SelectedItem.ToString()
TextBox1.Text = str

Dim str as string = ""

For Each lst as ListViewItem in lstView.SelectedItems
str = lst.Subitems(0).Text
Next

TextBox1.text = str