Help!

Je suios e train de m'inicier a VB.NET et pour mon programme actuelle je n'arrive pas a faire fonctionner mon bouton edit et mon bouton search Y a til un code special. Quelqu'un peut il venir a mon secour? Par ailleur mon programme je le trouve lourd!!
Merci

Code Name
Module arrivals
Public ClientsList As New ArrayList

Public Class resclass
Public nameofclient As String
Public arrivalDate As Date
Public arrivaltime As String
Public flightno As String
Public arrivalairport As String
Public employee As String
Public sex As String
Public depart_date As Date
Public departtime As String
Public depflightno As String
Public depart_airport As String
Public mobileno As String

Public Sub Display()
Dim MyForm As New Clients_Details
With MyForm
.TextBoxClientName.Text = nameofclient
.Combosex.Text = sex
.MaskedflightA.Text = flightno
.MaskedtimeA.Text = arrivaltime
.Comboairport.Text = arrivalairport
.arriveDateTime.Text = arrivalDate
.CmbBoxEmployeName.Text = employee
.DateTimePicker1.Text = depart_date
.MaskedtimeD.Text = departtime
.MaskedflightD.Text = depflightno
.ComboDepart.Text = depart_airport
.Maskedtele.Text = mobileno

If .ShowDialog = DialogResult.OK Then
nameofclient = .TextBoxClientName.Text
sex = .Combosex.Text
flightno = .MaskedflightA.Text
arrivalDate = .arriveDateTime.Value
arrivaltime = .MaskedtimeA.Text
arrivalairport = .Comboairport.Text
employee = .CmbBoxEmployeName.Text
depart_date = .DateTimePicker1.Value
departtime = .MaskedtimeD.Text
depflightno = .MaskedflightD.Text
depart_airport = .ComboDepart.Text
mobileno = .Maskedtele.Text
End If
End With


End Sub

Public Function ArrivalDetails() As String
Return "Client Name " & nameofclient & " Sex " & sex & "Flight number " & flightno & "Time Of Arrival " & arrivaltime
End Function

Public Overrides Function ToString() As String

Return "Client Name " & nameofclient & " " & " Sex " & " " & sex & "Flight number " & " " & flightno & "Time Of Arrival " & " " & arrivaltime
End Function



Public Function ToListViewItem() As ListViewItem
Dim i As New ListViewItem(nameofclient)
i.SubItems.Add(arrivaltime)
i.SubItems.Add(arrivalairport)
i.SubItems.Add(arrivalDate)
i.SubItems.Add(sex)
i.SubItems.Add(mobileno)
i.SubItems.Add(depflightno)
i.SubItems.Add(depart_date)
i.SubItems.Add(departtime)
i.SubItems.Add(sex)
i.SubItems.Add(depart_airport)

Return i
End Function

Public Function ToListViewdepItem() As ListViewItem
Dim i As New ListViewItem(nameofclient)
i.SubItems.Add(depflightno)
i.SubItems.Add(depart_date)
i.SubItems.Add(departtime)
i.SubItems.Add(sex)
i.SubItems.Add(depart_airport)
Return i
End Function
Public Sub EditClient()
Dim MyForm As New Clients_Details
With MyForm
.TextBoxClientName.Text = nameofclient
.Combosex.Text = sex
.MaskedflightA.Text = flightno
.MaskedtimeA.Text = arrivaltime
.Comboairport.Text = arrivalairport
.arriveDateTime.Text = arrivalDate
.CmbBoxEmployeName.Text = employee
.DateTimePicker1.Text = depart_date
.MaskedtimeD.Text = departtime
.MaskedflightD.Text = depflightno
.ComboDepart.Text = depart_airport
.Maskedtele.Text = mobileno

If .ShowDialog = DialogResult.OK Then
nameofclient = .TextBoxClientName.Text
sex = .Combosex.Text
flightno = .MaskedflightA.Text
arrivalDate = .arriveDateTime.Value
arrivaltime = .MaskedtimeA.Text
arrivalairport = .Comboairport.Text
employee = .CmbBoxEmployeName.Text
depart_date = .DateTimePicker1.Value
departtime = .MaskedtimeD.Text
depflightno = .MaskedflightD.Text
depart_airport = .ComboDepart.Text
mobileno = .Maskedtele.Text
End If
End With

End Sub

End Class ResClass holds client and booking details.
























































Private Sub BtnAddArrival_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAddArrival.Click
Dim client As New resclass
client.Display()
ClientsList.Add(client)
showlist(ListView1)
showlist1(ListView2)
End Sub
Add Client
Private Sub BtnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDelete.Click
If ListView1.SelectedItems.Count > 0 Then
Dim index As Integer = ListView1.SelectedIndices(0)
ClientsList.RemoveAt(index)
End If
showlist(ListView1)
showlist(ListView2)
End Sub
Delete Selected object
Private Sub BtnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClose.Click
Dim reply As Integer
reply = MsgBox(" Really Quit ", MsgBoxStyle.OkCancel)
If reply = MsgBoxStyle.OkCancel = True Then
Me.Close()
End If
Close Form
Private Sub Btnsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDeparture.Click
Dim search As Char
Dim clientele As New resclass

search = InputBox("Enter client initial to search" )
If Len(search) > 0 Then
With ListView1
If (search = clientele.nameofclient) Then
ListView1.Clear()
showlist(ListView1)
'ListView1.Items.Add(clientele.nameofclient)
Else
MsgBox(" client cannot be found", MsgBoxStyle.Exclamation)
End If
Search Client
Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim ed As New resclass
If ListView1.SelectedItems.Count > 0 Then
ed.EditClient()
End If
showlist(ListView1)


End Sub Edit Selected Client
Private Sub Btncancel_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Btncancel.Click
TextBoxClientName.Clear()
maskedflightA.Clear()
MaskedflightD.Clear()
Maskedtele.Clear()
MaskedtimeD.Clear()
MaskedtimeA.Clear()
Cancel

Code Name
Module arrivals
Public ClientsList As New ArrayList

Public Class resclass
Public nameofclient As String
Public arrivalDate As Date
Public arrivaltime As String
Public flightno As String
Public arrivalairport As String
Public employee As String
Public sex As String
Public depart_date As Date
Public departtime As String
Public depflightno As String
Public depart_airport As String
Public mobileno As String

Public Sub Display()
Dim MyForm As New Clients_Details
With MyForm
.TextBoxClientName.Text = nameofclient
.Combosex.Text = sex
.MaskedflightA.Text = flightno
.MaskedtimeA.Text = arrivaltime
.Comboairport.Text = arrivalairport
.arriveDateTime.Text = arrivalDate
.CmbBoxEmployeName.Text = employee
.DateTimePicker1.Text = depart_date
.MaskedtimeD.Text = departtime
.MaskedflightD.Text = depflightno
.ComboDepart.Text = depart_airport
.Maskedtele.Text = mobileno

If .ShowDialog = DialogResult.OK Then
nameofclient = .TextBoxClientName.Text
sex = .Combosex.Text
flightno = .MaskedflightA.Text
arrivalDate = .arriveDateTime.Value
arrivaltime = .MaskedtimeA.Text
arrivalairport = .Comboairport.Text
employee = .CmbBoxEmployeName.Text
depart_date = .DateTimePicker1.Value
departtime = .MaskedtimeD.Text
depflightno = .MaskedflightD.Text
depart_airport = .ComboDepart.Text
mobileno = .Maskedtele.Text
End If
End With


End Sub

Public Function ArrivalDetails() As String
Return "Client Name " & nameofclient & " Sex " & sex & "Flight number " & flightno & "Time Of Arrival " & arrivaltime
End Function

Public Overrides Function ToString() As String

Return "Client Name " & nameofclient & " " & " Sex " & " " & sex & "Flight number " & " " & flightno & "Time Of Arrival " & " " & arrivaltime
End Function



Public Function ToListViewItem() As ListViewItem
Dim i As New ListViewItem(nameofclient)
i.SubItems.Add(arrivaltime)
i.SubItems.Add(arrivalairport)
i.SubItems.Add(arrivalDate)
i.SubItems.Add(sex)
i.SubItems.Add(mobileno)
i.SubItems.Add(depflightno)
i.SubItems.Add(depart_date)
i.SubItems.Add(departtime)
i.SubItems.Add(sex)
i.SubItems.Add(depart_airport)

Return i
End Function

Public Function ToListViewdepItem() As ListViewItem
Dim i As New ListViewItem(nameofclient)
i.SubItems.Add(depflightno)
i.SubItems.Add(depart_date)
i.SubItems.Add(departtime)
i.SubItems.Add(sex)
i.SubItems.Add(depart_airport)
Return i
End Function
Public Sub EditClient()
Dim MyForm As New Clients_Details
With MyForm
.TextBoxClientName.Text = nameofclient
.Combosex.Text = sex
.MaskedflightA.Text = flightno
.MaskedtimeA.Text = arrivaltime
.Comboairport.Text = arrivalairport
.arriveDateTime.Text = arrivalDate
.CmbBoxEmployeName.Text = employee
.DateTimePicker1.Text = depart_date
.MaskedtimeD.Text = departtime
.MaskedflightD.Text = depflightno
.ComboDepart.Text = depart_airport
.Maskedtele.Text = mobileno

If .ShowDialog = DialogResult.OK Then
nameofclient = .TextBoxClientName.Text
sex = .Combosex.Text
flightno = .MaskedflightA.Text
arrivalDate = .arriveDateTime.Value
arrivaltime = .MaskedtimeA.Text
arrivalairport = .Comboairport.Text
employee = .CmbBoxEmployeName.Text
depart_date = .DateTimePicker1.Value
departtime = .MaskedtimeD.Text
depflightno = .MaskedflightD.Text
depart_airport = .ComboDepart.Text
mobileno = .Maskedtele.Text
End If
End With

End Sub

End Class ResClass holds client and booking details.
























































Private Sub BtnAddArrival_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAddArrival.Click
Dim client As New resclass
client.Display()
ClientsList.Add(client)
showlist(ListView1)
showlist1(ListView2)
End Sub
Add Client
Private Sub BtnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDelete.Click
If ListView1.SelectedItems.Count > 0 Then
Dim index As Integer = ListView1.SelectedIndices(0)
ClientsList.RemoveAt(index)
End If
showlist(ListView1)
showlist(ListView2)
End Sub
Delete Selected object
Private Sub BtnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClose.Click
Dim reply As Integer
reply = MsgBox(" Really Quit ", MsgBoxStyle.OkCancel)
If reply = MsgBoxStyle.OkCancel = True Then
Me.Close()
End If
Close Form
Private Sub Btnsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDeparture.Click
Dim search As Char
Dim clientele As New resclass

search = InputBox("Enter client initial to search" )
If Len(search) > 0 Then
With ListView1
If (search = clientele.nameofclient) Then
ListView1.Clear()
showlist(ListView1)
'ListView1.Items.Add(clientele.nameofclient)
Else
MsgBox(" client cannot be found", MsgBoxStyle.Exclamation)
End If
Search Client
Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim ed As New resclass
If ListView1.SelectedItems.Count > 0 Then
ed.EditClient()
End If
showlist(ListView1)


End Sub Edit Selected Client
Private Sub Btncancel_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Btncancel.Click
TextBoxClientName.Clear()
maskedflightA.Clear()
MaskedflightD.Clear()
Maskedtele.Clear()
MaskedtimeD.Clear()
MaskedtimeA.Clear()
Cancel