Visual Basic Frame1

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
        normalchoose.Checked = False
        strechimagechoose.Checked = False
        autosizechoose.Checked = False
        centerimagechoose.Checked = False
        zoomchoose.Checked = False
        textoptionlabel.Text = "Text Font"
        textpropertieslabel.Text = "Text Properties"
        pictureoptionlabel.Text = "PictureBox Option"
        picturelabel.Text = "Selected Picture"
        picturelist.SelectedItem = IsNullOrEmpty
        listboxlabel.Text = "Select an item"

        MsgBox("All fields have been reset")
        actionlabel.Text = "Text and Picture cleared"
        '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", defcon1.Font.Size)

        textoptionlabel.Text = "Arial font selected"
        'Properties of the text starts here ------------

        If underlinecheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Underline)
        End If
        'Created by Aminpro
        If italiccheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Italic)
        End If
        'Created by Aminpro
        If boldcheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Bold)
        End If
        'Created by Aminpro
        If boldcheck.Checked And italiccheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Bold Or FontStyle.Italic)
        End If
        'Created by Aminpro
        If boldcheck.Checked And underlinecheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Bold Or FontStyle.Underline)
        End If
        'Created by Aminpro
        If italiccheck.Checked And underlinecheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Italic Or FontStyle.Underline)
        End If
        'Created by Aminpro
        If boldcheck.Checked And italiccheck.Checked And underlinecheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Bold Or FontStyle.Underline Or FontStyle.Italic)
        End If
        'Created by Aminpro
        If boldcheck.CheckState = CheckState.Unchecked And italiccheck.CheckState = CheckState.Unchecked And underlinecheck.CheckState = CheckState.Unchecked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Regular)

        End If
        '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", defcon1.Font.Size)

        textoptionlabel.Text = "Calibri font selected"
        'Properties of the text starts here ------------

        If underlinecheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Underline)
        End If
        'Created by Aminpro
        If italiccheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Italic)
        End If
        'Created by Aminpro
        If boldcheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Bold)
        End If
        'Created by Aminpro
        If boldcheck.Checked And italiccheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Bold Or FontStyle.Italic)
        End If
        'Created by Aminpro
        If boldcheck.Checked And underlinecheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Bold Or FontStyle.Underline)
        End If
        'Created by Aminpro
        If italiccheck.Checked And underlinecheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Italic Or FontStyle.Underline)
        End If
        'Created by Aminpro
        If boldcheck.Checked And italiccheck.Checked And underlinecheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Bold Or FontStyle.Underline Or FontStyle.Italic)
        End If
        'Created by Aminpro
        If boldcheck.CheckState = CheckState.Unchecked And italiccheck.CheckState = CheckState.Unchecked And underlinecheck.CheckState = CheckState.Unchecked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Regular)

        End If
        'Created by Aminpro
    End Sub

    Private Sub papyruschoose_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles papyruschoose.CheckedChanged
        defcon1.Font = New Font("papyrus", defcon1.Font.Size)

        textoptionlabel.Text = "Papyrus font selected"
        'Properties of the text starts here ------------

        If underlinecheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Underline)
        End If
        'Created by Aminpro
        If italiccheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Italic)
        End If
        'Created by Aminpro
        If boldcheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Bold)
        End If
        'Created by Aminpro
        If boldcheck.Checked And italiccheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Bold Or FontStyle.Italic)
        End If
        'Created by Aminpro
        If boldcheck.Checked And underlinecheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Bold Or FontStyle.Underline)
        End If
        'Created by Aminpro
        If italiccheck.Checked And underlinecheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Italic Or FontStyle.Underline)
        End If
        'Created by Aminpro
        If boldcheck.Checked And italiccheck.Checked And underlinecheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Bold Or FontStyle.Underline Or FontStyle.Italic)
        End If
        'Created by Aminpro
        If boldcheck.CheckState = CheckState.Unchecked And italiccheck.CheckState = CheckState.Unchecked And underlinecheck.CheckState = CheckState.Unchecked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Regular)

        End If
        'Created by Aminpro
    End Sub

    Private Sub timeschoose_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timeschoose.CheckedChanged
        defcon1.Font = New Font("Times New Roman", defcon1.Font.Size)
        textoptionlabel.Text = "Times New Roman font selected"
        'Properties of the text starts here ------------

        If underlinecheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Underline)
        End If
        'Created by Aminpro
        If italiccheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Italic)
        End If
        'Created by Aminpro
        If boldcheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Bold)
        End If
        'Created by Aminpro
        If boldcheck.Checked And italiccheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Bold Or FontStyle.Italic)
        End If
        'Created by Aminpro
        If boldcheck.Checked And underlinecheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Bold Or FontStyle.Underline)
        End If
        'Created by Aminpro
        If italiccheck.Checked And underlinecheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Italic Or FontStyle.Underline)
        End If
        'Created by Aminpro
        If boldcheck.Checked And italiccheck.Checked And underlinecheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Bold Or FontStyle.Underline Or FontStyle.Italic)
        End If
        'Created by Aminpro
        If boldcheck.CheckState = CheckState.Unchecked And italiccheck.CheckState = CheckState.Unchecked And underlinecheck.CheckState = CheckState.Unchecked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Regular)

        End If
        'Created by Aminpro
    End Sub

    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"
        Else
            originaltextlabel.Text = defcon1.Text
        End If
        'Created by Aminpro

        'Properties of the text starts here ------------

        If underlinecheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Underline)
        End If
        'Created by Aminpro
        If italiccheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Italic)
        End If
        'Created by Aminpro
        If boldcheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Bold)
        End If
        'Created by Aminpro
        If boldcheck.Checked And italiccheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Bold Or FontStyle.Italic)
        End If
        'Created by Aminpro
        If boldcheck.Checked And underlinecheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Bold Or FontStyle.Underline)
        End If
        'Created by Aminpro
        If italiccheck.Checked And underlinecheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Italic Or FontStyle.Underline)
        End If
        'Created by Aminpro
        If boldcheck.Checked And italiccheck.Checked And underlinecheck.Checked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Bold Or FontStyle.Underline Or FontStyle.Italic)
        End If
        'Created by Aminpro
        If boldcheck.CheckState = CheckState.Unchecked And italiccheck.CheckState = CheckState.Unchecked And underlinecheck.CheckState = CheckState.Unchecked Then
            defcon1.Font = New Font(defcon1.Font, FontStyle.Regular)

        End If


        'Created by Aminpro


    End Sub



    Private Sub textpropertieslabel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles underlinecheck.CheckStateChanged, italiccheck.CheckStateChanged, boldcheck.CheckStateChanged


        If underlinecheck.Checked Then
            textpropertieslabel.Text = "Underline"
        End If
        'Created by Aminpro
        If italiccheck.Checked Then
            textpropertieslabel.Text = "Italic"
        End If
        'Created by Aminpro
        If boldcheck.Checked Then
            textpropertieslabel.Text = "Bold"
        End If
        'Created by Aminpro
        If boldcheck.Checked And italiccheck.Checked Then
            textpropertieslabel.Text = "Bold and Italic"
        End If
        'Created by Aminpro
        If boldcheck.Checked And underlinecheck.Checked Then
            textpropertieslabel.Text = "Bold and Underline"
        End If
        'Created by Aminpro
        If italiccheck.Checked And underlinecheck.Checked Then
            textpropertieslabel.Text = "Italic and Underline"
        End If
        'Created by Aminpro
        If boldcheck.Checked And italiccheck.Checked And underlinecheck.Checked Then
            textpropertieslabel.Text = "Bold, Italic and Underline"
        End If
        'Created by Aminpro
        If boldcheck.CheckState = CheckState.Unchecked And italiccheck.CheckState = CheckState.Unchecked And underlinecheck.CheckState = CheckState.Unchecked Then
            textpropertieslabel.Text = "Select styles to apply to text"
        End If
        'Created by Aminpro
    End Sub

    '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"

    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

    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

    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"

    End Sub
    'images avalaible
    'ipod = 0
    'hybrid = 1
    'bike = 2
    '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)
            picturelabel.Text = picturelist.SelectedItem()
        End If

        If picturelist.SelectedItem = "Hybrid" Then
            defcon2.Image = ImageList1.Images(1)
            picturelabel.Text = picturelist.SelectedItem()
        End If

        If picturelist.SelectedItem = "Bike" Then
            defcon2.Image = ImageList1.Images(2)
            picturelabel.Text = picturelist.SelectedItem()
        End If

        If picturelist.SelectedItem = "Hack n Dev" Then
            defcon2.Image = ImageList1.Images(3)
            picturelabel.Text = picturelist.SelectedItem()
        End If

        If picturelist.SelectedItem = "Repair" Then
            defcon2.Image = ImageList1.Images(4)
            picturelabel.Text = picturelist.SelectedItem()
        End If

        If picturelist.SelectedItem = "o_0" Then
            defcon2.Image = ImageList1.Images(5)
            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
        aboutbox1 = New AboutBox1()
        aboutbox1.Show()
        aboutbox1 = Nothing
    End Sub


    Private Sub listboxlabel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedValueChanged
        listboxlabel.Text = ListBox1.SelectedItem
    End Sub

    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()
        form3 = Nothing
    End Sub
End Class

' End LOL