top of page

The Code

 

 

 

 Public Class Form35

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim Phrase1, Phrase2, Phrase3 As String
        Dim
Position1, Position2, Position3 As Integer
        Dim
Retrieve1, Retrieve2, Retrieve3 As Integer

        '## Reset Label1.ForeColor = Blue
        Label1.ForeColor = Color.Blue

 

        '## Error Handling [Try... Catch... End Try...] Structure
      Try

        Phrase1 = TextBox1.Text   '## Assign Phrase1 to TextBox1 -------------------##
        Phrase2 = TextBox2.Text  '## Assign Phrase2 to TextBox2 -------------------##
        Phrase3 = TextBox3.Text  '## Assign Phrase3 to TextBox3 -------------------##

        Position1 = TextBox4.Text  '## Assign Position1 to TextBox4 ----------------##
        Position2 = TextBox5.Text  '## Assign Position2 to TextBox5 ----------------##
        Position3 = TextBox6.Text  '## Assign Position3 to TextBox6---------------- ##

        Retrieve1 = TextBox7.Text  '## Assign Retrieve1 to TextBox7 ------------------##
        Retrieve2 = TextBox8.Text  '## Assign Retrieve2 to TextBox8----------------- ##
        Retrieve3 = TextBox9.Text  '## Assign Retrieve3 to TextBox9 -----------------##

        Label1.Text = Mid(Phrase1, Position1, Retrieve1'## Label1 = Mid(Phrase, p, n) ---##
        Label2.Text = Mid(Phrase2, Position2, Retrieve2) '## Label2 = Mid(Phrase, p, n) ---##
        Label3.Text = Mid(Phrase3, Position3, Retrieve3) '## Label3 = Mid(Phrase, p, n) ---##

 

         Catch Non_Input As Exception

            '## NonInput Subroutine [1] ------------------------ ##
            NonInput()

        End Try

 


    End Sub

        '## Sub[1] -------------------------------------------------##
        '## Error handling Routine ---------------------------------##

        Sub NonInput()
       
Label1.ForeColor = Color.Red
       
Label1.Text = "Enter Value into all Input Boxes"
        End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        TextBox1.Text = ""
       
TextBox2.Text = ""
       
TextBox3.Text = ""
       
TextBox4.Text = ""
       
TextBox5.Text = ""
       
TextBox6.Text = ""
       
TextBox7.Text = ""
       
TextBox8.Text = ""
       
TextBox9.Text = ""

        Label1.Text = ""
       
Label2.Text = ""
       
Label3.Text = ""

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click


        Form33.Show()
        Me.Hide()


    End Sub


End Class

   
 

Website Links-173.jpg
bottom of page