Kleinere Releases/Beginner Releases

Imports System.Text
Imports System.IO

Public NotInheritable Class Form1

    Dim VarName As Object

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
        Timer2.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If ComboBox1.Text = "" Then
            Button2.Enabled = False
        Else
            Button2.Enabled = True
        End If

        If TextBox1.Text = "" Then
            Button1.Enabled = False
            Button3.Enabled = False
        Else
            Button1.Enabled = True
            Button3.Enabled = True
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Clipboard.SetText(TextBox1.Text)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Clear()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If ComboBox1.Text = "Random Numbers" Then
            Dim random As New Random
            TextBox1.Text = random.Next(0, 9) & random.Next(0, 9) & random.Next(0, 9) & random.Next(0, 9) & random.Next(0, 9) & random.Next(0, 9) & random.Next(0, 9) & random.Next(0, 9) & random.Next(0, 9) & random.Next(0, 9) & random.Next(0, 9) & random.Next(0, 9) & random.Next(0, 9) & random.Next(0, 9) & random.Next(0, 9) & random.Next(0, 9) & random.Next(0, 9) & random.Next(0, 9) & random.Next(0, 9) & random.Next(0, 9) & random.Next(0, 9) & random.Next(0, 9) & random.Next(0, 9) & random.Next(0, 9) & random.Next(0, 9) & random.Next(0, 9) & random.Next(0, 9) & random.Next(0, 9) & random.Next(0, 9) & random.Next(0, 9) & random.Next(0, 9) & random.Next(0, 9)
            ListBox1.Items.Add(TextBox1.Text)
            My.Settings.History = ListBox1.Items.ToString
            My.Settings.Save()
        End If

        If ComboBox1.Text = "Random Letters" Then
            Dim chars As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
            Dim sb As New StringBuilder()
            Dim r As New Random
            For i As Integer = 1 To 36
                Dim idx As Integer = r.Next(0, chars.Length)
                Dim randomChar As Char = chars(idx)
                sb.Append(randomChar)
            Next i

            Dim randomString = sb.ToString()
            TextBox1.Text = randomString
            ListBox1.Items.Add(TextBox1.Text)
        End If

        If ComboBox1.Text = "Mixed" Then
            Dim chars As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890"
            Dim sb As New StringBuilder()
            Dim r As New Random
            For i As Integer = 1 To 36
                Dim idx As Integer = r.Next(0, chars.Length)
                Dim randomChar As Char = chars(idx)
                sb.Append(randomChar)
            Next i

            Dim randomString = sb.ToString()
            TextBox1.Text = randomString
            ListBox1.Items.Add(TextBox1.Text)
        End If
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If ListBox1.SelectedItem = "" Then
            Button4.Enabled = False
        Else
            Button4.Enabled = True
        End If

        If ListBox1.Items.Count = 0 Then
            Button6.Enabled = False
        Else
            Button6.Enabled = True
        End If

        If ListBox1.Items.Count = 0 Then
            Button5.Enabled = False
        Else
            Button5.Enabled = True
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Clipboard.SetText(ListBox1.SelectedItem.ToString)
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        ListBox1.Items.Clear()
    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Process.Start("http://www.elitepvpers.com/")
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim myStream As Stream

        SaveFileDialog1.Filter = "Common Textfile|*.txt"
        SaveFileDialog1.Title = "Save Code-List"
        SaveFileDialog1.FilterIndex = 1
        SaveFileDialog1.RestoreDirectory = True

        If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
            myStream = SaveFileDialog1.OpenFile()

            Using sw As StreamWriter = New StreamWriter(myStream)
                For Each Item In ListBox1.Items
                    sw.WriteLine(Item)
                Next
                sw.Close()
            End Using
        End If
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Dim Name As String
        OpenFileDialog1.Filter = "Common Textfile|*.txt"
        OpenFileDialog1.Title = "Load Code-List"
        OpenFileDialog1.FileName = ""
        OpenFileDialog1.RestoreDirectory = True
        OpenFileDialog1.FilterIndex = 1
        On Error GoTo Errhandler
        OpenFileDialog1.ShowDialog()
        OpenFileDialog1.FileName = OpenFileDialog1.FileName
        FileOpen(3, OpenFileDialog1.FileName, OpenMode.Input)
        Do While Not EOF(3)
            Name = LineInput(3)
            If Len(Trim(Name)) > 0 Then
                ListBox1.Items.Add(Trim(Name))
            End If
        Loop
        FileClose(3)
        Exit Sub
Errhandler:
        Exit Sub
    End Sub
End Class