Untitled
unknown
plain_text
4 years ago
13 kB
10
Indexable
Public Class Partner
'Make PLong "Public" to use
Private ReadOnly PLong As New List(Of String)
Private ReadOnly PAddLong As New List(Of String)
Private Sub GunaRadioButton_PLong_CheckedChanged(sender As Object, e As EventArgs) Handles GunaRadioButton_PLong.CheckedChanged
If Not GunaRadioButton_PLong.Checked Then Return
'Read File & Split PLong
Dim lines As String() = System.IO.File.ReadAllLines("Files\Partners\Long.txt")
PLong.Clear()
ComboBox_PItem.Items.Clear()
TextBox_PCommand.Clear()
For Each line As String In lines
Dim parts As String() = line.Split(","c)
ComboBox_PItem.Items.Add(parts(0))
PLong.Add(parts(1))
PAddLong.Add(parts(2))
Next
ComboBox_PItem.SelectedIndex = -1
'<<<------>>>
CreateNewCommandTextP()
CreateNewCommandTextPAdd()
GunaImageButton_ClipP.Visible = False
End Sub
'Make PShort "Public" to use
Private ReadOnly PShort As New List(Of String)
Private ReadOnly PAddShort As New List(Of String)
Private Sub GunaRadioButton_PShort_CheckedChanged(sender As Object, e As EventArgs) Handles GunaRadioButton_PShort.CheckedChanged
If Not GunaRadioButton_PShort.Checked Then Return
'Read File & Split PShort
Dim lines As String() = System.IO.File.ReadAllLines("Files\Partners\Short.txt")
PShort.Clear()
ComboBox_PItem.Items.Clear()
TextBox_PCommand.Clear()
For Each line As String In lines
Dim parts As String() = line.Split(","c)
ComboBox_PItem.Items.Add(parts(0))
PShort.Add(parts(1))
PAddShort.Add(parts(2))
Next
ComboBox_PItem.SelectedIndex = -1
'<<<------>>>
CreateNewCommandTextP()
CreateNewCommandTextPAdd()
GunaImageButton_ClipP.Visible = False
End Sub
'Make PMagic "Public" to use
Private ReadOnly PMagic As New List(Of String)
Private ReadOnly PAddMagic As New List(Of String)
Private Sub GunaRadioButton_PMagic_CheckedChanged(sender As Object, e As EventArgs) Handles GunaRadioButton_PMagic.CheckedChanged
If Not GunaRadioButton_PMagic.Checked Then Return
'Read File & Split PMagic
Dim lines As String() = System.IO.File.ReadAllLines("Files\Partners\Magic.txt")
PMagic.Clear()
ComboBox_PItem.Items.Clear()
TextBox_PCommand.Clear()
For Each line As String In lines
Dim parts As String() = line.Split(","c)
ComboBox_PItem.Items.Add(parts(0))
PMagic.Add(parts(1))
PAddMagic.Add(parts(2))
Next
ComboBox_PItem.SelectedIndex = -1
'<<<------>>>
CreateNewCommandTextP()
CreateNewCommandTextPAdd()
GunaImageButton_ClipP.Visible = False
End Sub
'Make PSkins "Public" to use
Private ReadOnly PSkins As New List(Of String)
Private Sub GunaRadioButton_PSkins_CheckedChanged(sender As Object, e As EventArgs) Handles GunaRadioButton_PSkins.CheckedChanged
If GunaRadioButton_PSkins.Checked Then
Label_PAmount.Visible = True
TextBox_PAmount.Visible = True
Else
ComboBox_PItem.SelectedIndex = -1
Label_PAmount.Visible = False
TextBox_PAmount.Visible = False
End If
If Not GunaRadioButton_PSkins.Checked Then Return
'Read File & Split PSkins
Dim lines As String() = System.IO.File.ReadAllLines("Files\Partners\Skins.txt")
PSkins.Clear()
ComboBox_PItem.Items.Clear()
TextBox_PCommand.Clear()
For Each line As String In lines
Dim parts As String() = line.Split(","c)
ComboBox_PItem.Items.Add(parts(0))
PSkins.Add(parts(1))
Next
ComboBox_PItem.SelectedIndex = -1
'<<<------>>>
CreateNewCommandTextP()
GunaImageButton_ClipP.Visible = False
End Sub
Private Sub CreateNewCommandTextP()
If Not GunaRadioButton_PLong.Checked AndAlso Not GunaRadioButton_PShort.Checked AndAlso Not GunaRadioButton_PMagic.Checked AndAlso Not GunaRadioButton_PSkins.Checked OrElse ComboBox_PItem.SelectedIndex = -1 Then Return
Dim CommandTextP = "$ci "
'edit command
If GunaCheckBox_PE.Checked AndAlso Not String.IsNullOrEmpty(TextBox_PName.Text) Then
CommandTextP = "$edit " + TextBox_PName.Text + " " + CommandTextP
End If
'special command (uses standard or edit prefix)
If GunaCheckBox_PBead.Checked Then
CommandTextP &= "286"
Return
End If
Select Case True
Case GunaRadioButton_PLong.Checked : CommandTextP &= PLong(ComboBox_PItem.SelectedIndex)
Case GunaRadioButton_PShort.Checked : CommandTextP &= PShort(ComboBox_PItem.SelectedIndex)
Case GunaRadioButton_PMagic.Checked : CommandTextP &= PMagic(ComboBox_PItem.SelectedIndex)
Case GunaRadioButton_PSkins.Checked : CommandTextP &= PSkins(ComboBox_PItem.SelectedIndex)
End Select
If TextBox_PAmount.Text = "0" Or "1" Then
CommandTextP &= " "
If TextBox_PAmount.Text > "1" Then
CommandTextP &= TextBox_PAmount.Text
End If
End If
If GunaCheckBox_PE.Checked Then
TextBox_PCommand.Text = "$edit " + TextBox_PName.Text + " " + CommandTextP
Else
TextBox_PCommand.Text = CommandTextP
End If
End Sub
Private Sub CreateNewCommandTextPAdd()
If Not GunaRadioButton_PLong.Checked AndAlso Not GunaRadioButton_PShort.Checked AndAlso Not GunaRadioButton_PMagic.Checked AndAlso Not GunaCheckBox_PE.Checked OrElse ComboBox_PItem.SelectedIndex = -1 Then Return
Dim CommandTextPAdd = "$AddPartner "
Select Case True
Case GunaRadioButton_PLong.Checked : CommandTextPAdd &= PAddLong(ComboBox_PItem.SelectedIndex)
Case GunaRadioButton_PShort.Checked : CommandTextPAdd &= PAddShort(ComboBox_PItem.SelectedIndex)
Case GunaRadioButton_PMagic.Checked : CommandTextPAdd &= PAddMagic(ComboBox_PItem.SelectedIndex)
End Select
If TextBox_PLevel.ToString <> "0" Then
CommandTextPAdd &= " "
If TextBox_PLevel.Text <> "0" Then CommandTextPAdd &= TextBox_PLevel.Text
End If
If GunaCheckBox_PAdd.Checked AndAlso GunaCheckBox_PE.Checked Then
TextBox_PCommand.Text = "$edit " + TextBox_PName.Text + " " + CommandTextPAdd
Else
TextBox_PCommand.Text = CommandTextPAdd
End If
End Sub
Private Sub ComboBox_PItem_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox_PItem.SelectedIndexChanged
If GunaCheckBox_PAdd.Checked Then
CreateNewCommandTextPAdd()
Else
CreateNewCommandTextP()
End If
End Sub
Private Sub TextBox_PLevel_TextChanged(sender As Object, e As EventArgs) Handles TextBox_PLevel.TextChanged
CreateNewCommandTextP()
End Sub
Private Sub TextBox_PAmount_TextChanged(sender As Object, e As EventArgs) Handles TextBox_PAmount.TextChanged
If GunaCheckBox_PAdd.Checked Then
CreateNewCommandTextPAdd()
Else
CreateNewCommandTextP()
End If
End Sub
Private Sub GunaCheckBox_PE_CheckedChanged(sender As Object, e As EventArgs) Handles GunaCheckBox_PE.CheckedChanged
If GunaCheckBox_PE.Checked Then
Label_PName.Visible = True
TextBox_PName.Visible = True
Else
Label_PName.Visible = False
TextBox_PName.Visible = False
End If
If GunaCheckBox_PE.Checked AndAlso GunaCheckBox_PBead.Checked Then
TextBox_PCommand.Clear()
TextBox_PCommand.Text = "$edit " + TextBox_PName.Text + " " + "$ci 286"
Else
TextBox_PCommand.Clear()
End If
If GunaCheckBox_PAdd.Checked Then
CreateNewCommandTextPAdd()
Else
CreateNewCommandTextP()
End If
If GunaCheckBox_PE.Checked AndAlso GunaCheckBox_PBead.Checked Then
GunaCheckBox_PAdd.Checked = False
End If
If GunaCheckBox_PE.Checked AndAlso GunaCheckBox_PAdd.Checked Then
GunaCheckBox_PBead.Checked = False
End If
End Sub
Private Sub GunaCheckBoxPBead_CheckedChanged(sender As Object, e As EventArgs) Handles GunaCheckBox_PBead.CheckedChanged
If GunaCheckBox_PBead.Checked Then
TextBox_PCommand.Text = "$ci 286"
Else
TextBox_PCommand.Clear()
GunaImageButton_ClipP.Visible = False
End If
If GunaCheckBox_PBead.Checked Then
Label_PItem.Visible = False
ComboBox_PItem.Visible = False
Label_PLevel.Visible = False
TextBox_PLevel.Visible = False
Else
Label_PItem.Visible = True
ComboBox_PItem.Visible = True
Label_PLevel.Visible = True
TextBox_PLevel.Visible = True
End If
If GunaCheckBox_PBead.Checked AndAlso GunaCheckBox_PE.Checked Then
TextBox_PCommand.Clear()
TextBox_PCommand.Text = "$edit " + TextBox_PName.Text + " " + "$ci 286"
End If
If GunaCheckBox_PE.Checked AndAlso GunaCheckBox_PBead.Checked Then
GunaCheckBox_PAdd.Checked = False
End If
If GunaCheckBox_PBead.Checked Then
GunaCheckBox_PAdd.Checked = False
End If
End Sub
Private Sub TextBox_PName_TextChanged(sender As Object, e As EventArgs) Handles TextBox_PName.TextChanged
If GunaCheckBox_PAdd.Checked Then
CreateNewCommandTextPAdd()
Else
CreateNewCommandTextP()
End If
If GunaCheckBox_PBead.Checked AndAlso GunaCheckBox_PE.Checked Then
TextBox_PCommand.Clear()
TextBox_PCommand.Text = "$edit " + TextBox_PName.Text + " " + "$ci 286"
End If
End Sub
Private Sub GunaCheckBox_PAdd_CheckedChanged(sender As Object, e As EventArgs) Handles GunaCheckBox_PAdd.CheckedChanged
If GunaCheckBox_PAdd.Checked Then
CreateNewCommandTextPAdd()
Else
CreateNewCommandTextP()
End If
If GunaCheckBox_PE.Checked And GunaCheckBox_PAdd.Checked Then
Label_PName.Visible = True
TextBox_PName.Visible = True
CreateNewCommandTextPAdd()
Else
CreateNewCommandTextP()
End If
If GunaCheckBox_PAdd.Checked Then
Label_PLevel.Visible = True
TextBox_PLevel.Visible = True
CreateNewCommandTextPAdd()
Else
Label_PLevel.Visible = False
TextBox_PLevel.Visible = False
CreateNewCommandTextP()
End If
If GunaCheckBox_PAdd.Checked Then
GunaCheckBox_PBead.Checked = False
End If
If GunaCheckBox_PE.Checked AndAlso GunaCheckBox_PBead.Checked Then
TextBox_PCommand.Clear()
TextBox_PCommand.Text = "$edit " + TextBox_PName.Text + " " + "$ci 286"
Else
If GunaCheckBox_PBead.Checked Then
TextBox_PCommand.Text = "$ci 286"
Else
GunaImageButton_ClipP.Visible = False
TextBox_PCommand.Clear()
End If
End If
End Sub
Private Sub TextBox_PCommand_TextChanged(sender As Object, e As EventArgs) Handles TextBox_PCommand.TextChanged
'When Empty don't show Clipboard Icon
If TextBox_PCommand.Text = "" Then
GunaImageButton_ClipP.Visible = False
End If
'<<<------>>>
'Show Clipboard Icon & Hide Checkmark Icon
GunaImageButton_ClipP.Visible = True
GunaImageButton_CheckmarkP.Visible = False
'<<<------>>>
CreateNewCommandTextP()
If GunaCheckBox_PAdd.Checked Then
CreateNewCommandTextPAdd()
Else
CreateNewCommandTextP()
End If
End Sub
Private Sub GunaImageButton_ClipP_Click(sender As Object, e As EventArgs) Handles GunaImageButton_ClipP.Click
'No P Clipboard when TextBox is Empty
If TextBox_PCommand.Text = "" Then
Exit Sub
End If
'<<<------>>>
'Clipboard Function
Clipboard.SetText(TextBox_PCommand.Text)
'<<<------>>>
End Sub
Private Sub GunaImageButton_ClipP_MouseClick(sender As Object, e As MouseEventArgs) Handles GunaImageButton_ClipP.MouseClick
'P Hide Clipboard Icon & Show Checkmark Icon
GunaImageButton_ClipP.Visible = False
GunaImageButton_CheckmarkP.Visible = True
'<<<------>>>
End Sub
End Class
Editor is loading...