• Home
 · 
• Miscellaneous
 · 
• This program is used to add and remove data from a List box

This program is used to add and remove data from a List box

This program is used to add and remove data from a List box

Rate This program is used to add and remove data from a List box

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

lstClient.AddItem txtName.Text
txtName.Text = ""
txtName.SetFocus
lblDisplay.Caption = lstClient.ListCount
End Sub

Private Sub cmdClear_Click()
lstClient.Clear
cmdRemove.Enalbed = False
lblDisplay.Caption = lstClient.ListCount
End Sub

Private Sub cmdClose_Click()
Unload Me
End Sub

Private Sub cmdRemove_Click()
Dim Ind As Integer

Ind = lstClient.ListIndex
If Ind >= 0 Then
lstClient.RemoveItem Ind
lblDisplay.Caption = lstClient.ListCount
Else
Beep
End If
cmdRemove.Enabled = (lstClient.ListIndex <> -1)
End Sub

Private Sub lstClient_Click()
cmdRemove.Enabled = lstClient.ListIndex <> -1
End Sub

Private Sub txtName_Change()
cmdAdd.Enabled = (Len(txtName.Text) > 0)

End Sub