IE HW 7 - Morgan Hampel IE 148 HW 7 Option Strict On Public...

Info iconThis preview shows pages 1–2. Sign up to view the full content.

View Full Document Right Arrow Icon
Morgan Hampel IE 148 HW 7 Option Strict On Public Class Form1 Dim PhoneNumbers(99) As String Dim index, s(100) As Integer Private Sub AddToolStripMenuItem1_Click( ByVal sender As Object , ByVal e As System. EventArgs ) Handles AddToolStripMenuItem.Click Label1.Text = FormatNumber(index) index = ListBox1.SelectedIndex ListBox1.Items.Add(txtNAME.Text) If index > -1 Then PhoneNumbers(( CInt (txtPHONE.Text = CStr (ListBox1.Items(index))))) = txtPHONE.Text 'PhoneNumbers(index) = txtPHONE.Text 'txtPHONE.Text = (PhoneNumbers(index)) End If End Sub Private Sub DeleteToolStripMenuItem_Click( ByVal sender As Object , ByVal e As System. EventArgs ) Handles DeleteToolStripMenuItem.Click index = ListBox1.SelectedIndex ListBox1.Items.RemoveAt(index) 'PhoneNumbers.RemoveAt(index) End Sub Private Sub ModifyToolStripMenuItem_Click( ByVal sender As Object , ByVal e As System. EventArgs ) Handles ModifyToolStripMenuItem.Click Dim index As Integer index = ListBox1.SelectedIndex ListBox1.Items.RemoveAt(index)
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Image of page 2
This is the end of the preview. Sign up to access the rest of the document.

Page1 / 2

IE HW 7 - Morgan Hampel IE 148 HW 7 Option Strict On Public...

This preview shows document pages 1 - 2. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online