Visual Basic Frame 1 ver 2

Public Class Form1



    Private Property IsNullOrEmpty As String

    Private Property DateAndTime As String



    'Created by Aminpro

    'Written by Aminpro
    'LoL
    'Do not steal!
    'Seriously?

    'The main subject is the textbox input
    'Textbox input name is defcon1
    'Output is directly changed in defcon1
    'Secondary subject is the picturebox's result
    'picturebox's result is named defcon2

    'defcon1 is textbox
    'defcon2 is picturebox


    Private Sub cancelbutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cancelbutton.Click
        defcon1.Clear()
        defcon2.Image = Nothing
        arialchoose.Checked = False
        calibrichoose.Checked = False
        papyruschoose.Checked = False
        timeschoose.Checked = False
        boldcheck.CheckState = CheckState.Unchecked
        italiccheck.CheckState = CheckState.Unchecked
        underlinecheck.CheckState = CheckState.Unchecked'Created by Aminpro
        normalchoose.Checked = False'Created by Aminpro
        strechimagechoose.Checked = False
        autosizechoose.Checked = False'Created by Aminpro
        centerimagechoose.Checked = False
        zoomchoose.Checked = False
        textoptionlabel.Text = "Text Font"'Created by Aminpro
        textpropertieslabel.Text = "Text Properties"
        pictureoptionlabel.Text = "PictureBox Option"
        picturelabel.Text = "Selected Picture"
        picturelist.SelectedItem = IsNullOrEmpty'Created by Aminpro
        listboxlabel.Text = "Select an item"
        MsgBox("All fields have been reset")
        actionlabel.Text = "Text and Picture cleared"'Created by Aminpro
        'Created by Aminpro


    End Sub

    Private Sub yeahbutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles yeahbutton.Click
        defcon1.Copy()
        actionlabel.Text = "Text copied"
        'Created by Aminpro
    End Sub

    Private Sub nobutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nobutton.Click
        defcon1.Paste()
        actionlabel.Text = "Text pasted from clipboard"
        'Created by Aminpro
    End Sub

    Private Sub arialchoose_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles arialchoose.CheckedChanged
        defcon1.Font = New Font("Arial", 12, defcon1.Font.Style)'Created by Aminpro
    End Sub

    Private Sub calibrichoose_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles calibrichoose.CheckedChanged
        defcon1.Font = New Font("calibri", 12, defcon1.Font.Style)'Created by Aminpro
        textoptionlabel.Text = "Calibri font selected"
    End Sub

    Private Sub papyruschoose_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles papyruschoose.CheckedChanged
        defcon1.Font = New Font("papyrus", 12, defcon1.Font.Style)
        textoptionlabel.Text = "Papyrus font selected"'Created by Aminpro
    End Sub
'Created by Aminpro
    Private Sub timeschoose_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timeschoose.CheckedChanged
        defcon1.Font = New Font("Times New Roman", 12, defcon1.Font.Style)
        textoptionlabel.Text = "Times New Roman font selected"'Created by Aminpro
    End Sub
'Created by Aminpro
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles defcon1.TextChanged, underlinecheck.CheckedChanged, italiccheck.CheckedChanged, boldcheck.CheckedChanged
        'Displays the text typed into the input box realtime
        If defcon1.Text = IsNullOrEmpty Then
            originaltextlabel.Text = "Enter your text"'Created by Aminpro
        Else
            originaltextlabel.Text = defcon1.Text
        End If
        'Created by Aminpro
        'Created by Aminpro
    End Sub

    Private Sub boldcheck_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles boldcheck.CheckedChanged
        If boldcheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, defcon1.Font.Style + FontStyle.Bold)
        Else
            defcon1.Font = New Font(defcon1.Font, defcon1.Font.Style - FontStyle.Bold)
        End If
        textpropertieslabel.Text = defcon1.Font.Style.ToString'Created by Aminpro
    End Sub

    Private Sub italiccheck_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles italiccheck.CheckedChanged
        If italiccheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, defcon1.Font.Style + FontStyle.Italic)
        Else
            defcon1.Font = New Font(defcon1.Font, defcon1.Font.Style - FontStyle.Italic)
        End If
        textpropertieslabel.Text = defcon1.Font.Style.ToString'Created by Aminpro
    End Sub

    Private Sub underlinecheck_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles underlinecheck.CheckedChanged
        If underlinecheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, defcon1.Font.Style + FontStyle.Underline)
        Else
            defcon1.Font = New Font(defcon1.Font, defcon1.Font.Style - FontStyle.Underline)
        End If'Created by Aminpro
        textpropertieslabel.Text = defcon1.Font.Style.ToString
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        textpropertieslabel.Text = defcon1.Font.Style.ToString
    End Sub'Created by Aminpro
    'Created by Aminpro
    Private Sub normalchoose_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles normalchoose.CheckedChanged
        defcon2.SizeMode = PictureBoxSizeMode.Normal
        pictureoptionlabel.Text = "Normal picture"

    End Sub

    Private Sub strechimagechoose_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles strechimagechoose.CheckedChanged
        defcon2.SizeMode = PictureBoxSizeMode.StretchImage
        pictureoptionlabel.Text = "Picture streched"'Created by Aminpro
    End Sub

    Private Sub autosizechoose_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles autosizechoose.CheckedChanged
        defcon2.SizeMode = PictureBoxSizeMode.AutoSize
        pictureoptionlabel.Text = "Picture size is auto"
    End Sub'Created by Aminpro

    Private Sub centerimagechoose_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles centerimagechoose.CheckedChanged
        defcon2.SizeMode = PictureBoxSizeMode.CenterImage
        pictureoptionlabel.Text = "Picture is centered"
    End Sub'Created by Aminpro

    Private Sub zoomchoose_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles zoomchoose.CheckedChanged
        defcon2.SizeMode = PictureBoxSizeMode.Zoom
        pictureoptionlabel.Text = "Picture is zoomed"'Created by Aminpro
    End Sub

    'images avalaible
    'ipod = 0
    'hybrid = 1
    'bike = 2'Created by Aminpro
    'hack = 3
    'repair = 4

    Private Sub defcon2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles picturelist.SelectedValueChanged
        If picturelist.SelectedItem = "iPod" Then
            defcon2.Image = ImageList1.Images(0)'Created by Aminpro
            picturelabel.Text = picturelist.SelectedItem()
        End If
        If picturelist.SelectedItem = "Hybrid" Then
            defcon2.Image = ImageList1.Images(1)'Created by Aminpro
            picturelabel.Text = picturelist.SelectedItem()
        End If
        If picturelist.SelectedItem = "Bike" Then
            defcon2.Image = ImageList1.Images(2)'Created by Aminpro
            picturelabel.Text = picturelist.SelectedItem()
        End If
        If picturelist.SelectedItem = "Hack n Dev" Then
            defcon2.Image = ImageList1.Images(3)'Created by Aminpro
            picturelabel.Text = picturelist.SelectedItem()
        End If
        If picturelist.SelectedItem = "Repair" Then
            defcon2.Image = ImageList1.Images(4)'Created by Aminpro
            picturelabel.Text = picturelist.SelectedItem()
        End If
        If picturelist.SelectedItem = "o_0" Then
            defcon2.Image = ImageList1.Images(5)'Created by Aminpro
            picturelabel.Text = picturelist.SelectedItem()
        End If
    End Sub

    Private Sub infobutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles infobutton.Click
        Dim aboutbox1 As AboutBox1'Created by Aminpro
        aboutbox1 = New AboutBox1()
        aboutbox1.Show()'Created by Aminpro
        aboutbox1 = Nothing
    End Sub'Created by Aminpro

    Private Sub listboxlabel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedValueChanged
        listboxlabel.Text = ListBox1.SelectedItem
    End Sub
'Created by Aminpro
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim form3 As Form3
        form3 = New Form3()
        form3.Show()'Created by Aminpro
        form3 = Nothing
    End Sub'Created by Aminpro
End Class
'Created by Aminpro
' End LOL