Hola!
He escrito este codigo y quisiera saber si se puede resumir aun mas, lo quiero hacer lo mas simple posible, alguna sugerencia?
Código:
Public Class Form1
Private Sub btnStart_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnStart.Click
Dim i As Integer
lbList.Items.Clear()
For i = 1 To 6
lbList.Items.Add("Rad " & i)
Next
lblItemsTot.Text = lbList.Items.Count
btnDeleteFromList.Enabled = True
End Sub
Private Sub btnNew_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnNew.Click
If txtNewItem.Text <> "" Then
lbList.Items.Add(txtNewItem.Text)
btnDelNew.Enabled = True
lblItemsTot.Text = lbList.Items.Count
Else
MsgBox("you need to write an item first!")
End If
End Sub
Private Sub btnDeleteFromList_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDeleteFromList.Click
If lbList.SelectedItem <> "" Then
lbList.Items.RemoveAt(lbList.SelectedIndex)
lblItemsTot.Text = lbList.Items.Count
Else
MsgBox("Select an item first.")
End If
End Sub
Private Sub btnDelNew_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDelNew.Click
If txtNewItem.Text <> "" Then
lbList.Items.Remove(txtNewItem.Text)
lblItemsTot.Text = lbList.Items.Count
Else
MsgBox("There are no new items to delete.")
End If
End Sub
End Class