Untitled
unknown
plain_text
3 years ago
12 kB
5
Indexable
Never
Public Class SP '######################################################## SPECIALIST CARDS ######################################################## 'Make SPFun "Public" to use Private ReadOnly SPFun As New List(Of String) Private Sub GunaRadioButton_SPFun_CheckedChanged(sender As Object, e As EventArgs) Handles GunaRadioButton_SPFun.CheckedChanged If Not GunaRadioButton_SPFun.Checked Then Return 'Read File & Split SPFun Dim lines As String() = System.IO.File.ReadAllLines("Files\SPs\Fun.txt") SPFun.Clear() ComboBox_SPItem.Items.Clear() TextBox_SPCommand.Clear() For Each line As String In lines Dim parts As String() = line.Split(","c) ComboBox_SPItem.Items.Add(parts(0)) SPFun.Add(parts(1)) Next ComboBox_SPItem.SelectedIndex = -1 '<<<------>>> CreateNewCommandTextSP() GunaImageButton_ClipSP.Visible = False End Sub 'Make SPSwordsman "Public" to use Private ReadOnly SPSwordsman As New List(Of String) Private Sub GunaRadioButton_SPSwordsman_CheckedChanged(sender As Object, e As EventArgs) Handles GunaRadioButton_SPSwordsman.CheckedChanged If Not GunaRadioButton_SPSwordsman.Checked Then Return 'Read File & Split SPSwordsman Dim lines As String() = System.IO.File.ReadAllLines("Files\SPs\Swordsman.txt") SPSwordsman.Clear() ComboBox_SPItem.Items.Clear() TextBox_SPCommand.Clear() For Each line As String In lines Dim parts As String() = line.Split(","c) ComboBox_SPItem.Items.Add(parts(0)) SPSwordsman.Add(parts(1)) Next ComboBox_SPItem.SelectedIndex = -1 '<<<------>>> CreateNewCommandTextSP() GunaImageButton_ClipSP.Visible = False End Sub 'Make SPArcher "Public" to use Private ReadOnly SPArcher As New List(Of String) Private Sub GunaRadioButton_SPArcher_CheckedChanged(sender As Object, e As EventArgs) Handles GunaRadioButton_SPArcher.CheckedChanged If Not GunaRadioButton_SPArcher.Checked Then Return 'Read File & Split SPArcher Dim lines As String() = System.IO.File.ReadAllLines("Files\SPs\Archer.txt") SPArcher.Clear() ComboBox_SPItem.Items.Clear() TextBox_SPCommand.Clear() For Each line As String In lines Dim parts As String() = line.Split(","c) ComboBox_SPItem.Items.Add(parts(0)) SPArcher.Add(parts(1)) Next ComboBox_SPItem.SelectedIndex = -1 '<<<------>>> CreateNewCommandTextSP() GunaImageButton_ClipSP.Visible = False End Sub 'Make SPMage "Public" to use Private ReadOnly SPMage As New List(Of String) Private Sub GunaRadioButton_SPMage_CheckedChanged(sender As Object, e As EventArgs) Handles GunaRadioButton_SPMage.CheckedChanged If Not GunaRadioButton_SPMage.Checked Then Return 'Read File & Split SPMage Dim lines As String() = System.IO.File.ReadAllLines("Files\SPs\Mage.txt") SPMage.Clear() ComboBox_SPItem.Items.Clear() TextBox_SPCommand.Clear() For Each line As String In lines Dim parts As String() = line.Split(","c) ComboBox_SPItem.Items.Add(parts(0)) SPMage.Add(parts(1)) Next ComboBox_SPItem.SelectedIndex = -1 '<<<------>>> CreateNewCommandTextSP() GunaImageButton_ClipSP.Visible = False End Sub 'Make SPMartialArtist "Public" to use Private ReadOnly SPMartialArtist As New List(Of String) Private Sub GunaRadioButton_SPMartialArtist_CheckedChanged(sender As Object, e As EventArgs) Handles GunaRadioButton_SPMartialArtist.CheckedChanged If Not GunaRadioButton_SPMartialArtist.Checked Then Return 'Read File & Split SPMartialArtist Dim lines As String() = System.IO.File.ReadAllLines("Files\SPs\Martial Artist.txt") SPMartialArtist.Clear() ComboBox_SPItem.Items.Clear() TextBox_SPCommand.Clear() For Each line As String In lines Dim parts As String() = line.Split(","c) ComboBox_SPItem.Items.Add(parts(0)) SPMartialArtist.Add(parts(1)) Next ComboBox_SPItem.SelectedIndex = -1 '<<<------>>> CreateNewCommandTextSP() GunaImageButton_ClipSP.Visible = False End Sub 'Make SPWC "Public" to use Private ReadOnly SPWC As New List(Of String) Private Sub GunaCheckBox_SPWC_CheckedChanged(sender As Object, e As EventArgs) Handles GunaCheckBox_SPWC.CheckedChanged If Not GunaCheckBox_SPWC.Checked Then Return 'Read File & Split SPWC Dim lines As String() = System.IO.File.ReadAllLines("Files\SP Wings Command\All.txt") SPWC.Clear() ComboBox_SPWC.Items.Clear() TextBox_SPCommand.Clear() For Each line As String In lines Dim parts As String() = line.Split(","c) ComboBox_SPWC.Items.Add(parts(0)) SPWC.Add(parts(1)) Next ComboBox_SPWC.SelectedIndex = -1 '<<<------>>> CreateNewCommandTextSP() GunaImageButton_ClipSP.Visible = False If GunaCheckBox_SPWC.Checked Then Label_SPWC.Visible = True ComboBox_SPWC.Visible = True CreateNewCommandTextSP() Else ComboBox_SPWC.SelectedIndex = -1 Label_SPWC.Visible = False ComboBox_SPWC.Visible = False End If End Sub '######################################################## COMMAND FEATURE ######################################################## Private Sub CreateNewCommandTextSP() If Not GunaRadioButton_SPFun.Checked AndAlso Not GunaRadioButton_SPSwordsman.Checked AndAlso Not GunaRadioButton_SPArcher.Checked AndAlso Not GunaRadioButton_SPMage.Checked AndAlso Not GunaRadioButton_SPMartialArtist.Checked OrElse ComboBox_SPItem.SelectedIndex = -1 OrElse ComboBox_SPUpgrade.SelectedIndex = -1 Then Return Dim CommandTextSP = "$ci " Select Case True Case GunaRadioButton_SPFun.Checked : CommandTextSP &= SPFun(ComboBox_SPItem.SelectedIndex) Case GunaRadioButton_SPSwordsman.Checked : CommandTextSP &= SPSwordsman(ComboBox_SPItem.SelectedIndex) Case GunaRadioButton_SPArcher.Checked : CommandTextSP &= SPArcher(ComboBox_SPItem.SelectedIndex) Case GunaRadioButton_SPMage.Checked : CommandTextSP &= SPMage(ComboBox_SPItem.SelectedIndex) Case GunaRadioButton_SPMartialArtist.Checked : CommandTextSP &= SPMartialArtist(ComboBox_SPItem.SelectedIndex) Case GunaCheckBox_SPWC.Checked : CommandTextSP &= SPWC(ComboBox_SPWC.SelectedIndex) End Select If ComboBox_SPUpgrade.SelectedItem.ToString <> "0" Then CommandTextSP &= " " & ComboBox_SPUpgrade.SelectedItem.ToString End If CommandTextSP &= ComboBox_SPWC.SelectedItem If GunaCheckBox_SPWC.Checked Then TextBox_SPCommand.Text = CommandTextSP & " " & ComboBox_SPWC.SelectedIndex End If If GunaCheckBox_SPE.Checked Then TextBox_SPCommand.Text = "$edit " + TextBox_SPName.Text + " " + CommandTextSP Else TextBox_SPCommand.Text = CommandTextSP End If If GunaCheckBox_SPCH.Checked Then TextBox_SPCommand.Text = "$ci 287" End If If GunaCheckBox_SPCH.Checked And GunaCheckBox_SPE.Checked Then TextBox_SPCommand.Text = "$edit " + TextBox_SPName.Text + " " + "$ci 287" End If End Sub Private Sub ComboBox_SPItem_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox_SPItem.SelectedIndexChanged CreateNewCommandTextSP() End Sub Private Sub ComboBox_SPUpgrade_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox_SPUpgrade.SelectedIndexChanged CreateNewCommandTextSP() End Sub Private Sub ComboBox_SPWC_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox_SPWC.SelectedIndexChanged CreateNewCommandTextSP() End Sub Private Sub GunaCheckBox_SPCH_CheckedChanged(sender As Object, e As EventArgs) Handles GunaCheckBox_SPCH.CheckedChanged If GunaCheckBox_SPCH.Checked Then TextBox_SPName.Clear() TextBox_SPCommand.Text = "$ci 287" Else GunaImageButton_ClipSP.Visible = False End If If GunaCheckBox_SPCH.Checked Then Label_SPUpgrade.Visible = False ComboBox_SPUpgrade.Visible = False Label_SPItem.Visible = False ComboBox_SPItem.Visible = False TextBox_SPCommand.Clear() Else Label_SPUpgrade.Visible = True ComboBox_SPUpgrade.Visible = True Label_SPItem.Visible = True ComboBox_SPItem.Visible = True TextBox_SPCommand.Clear() End If If GunaCheckBox_SPCH.Checked AndAlso GunaCheckBox_SPE.Checked Then TextBox_SPName.Clear() TextBox_SPCommand.Text = "$edit " + TextBox_SPName.Text + " " + "$ci 287 " Else TextBox_SPCommand.Clear() TextBox_SPName.Clear() CreateNewCommandTextSP() End If End Sub Private Sub GunaCheckBox_SPE_CheckedChanged(sender As Object, e As EventArgs) Handles GunaCheckBox_SPE.CheckedChanged If GunaCheckBox_SPE.Checked Then TextBox_SPName.Clear() Label_SPName.Visible = True TextBox_SPName.Visible = True Else TextBox_SPName.Clear() Label_SPName.Visible = False TextBox_SPName.Visible = False End If If GunaCheckBox_SPCH.Checked And GunaCheckBox_SPE.Checked Then TextBox_SPName.Clear() TextBox_SPCommand.Text = "$edit " + TextBox_SPName.Text + " " + "$ci 287 " Else CreateNewCommandTextSP() End If End Sub Private Sub TextBox_SPName_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPName.TextChanged If GunaCheckBox_SPCH.Checked AndAlso GunaCheckBox_SPE.Checked Then TextBox_SPCommand.Text = "$edit " + TextBox_SPName.Text + " " + "$ci 287 " Else CreateNewCommandTextSP() End If End Sub '######################################################## SHOW & HIDE SPECIALIST CARDS ICONS ######################################################## Private Sub TextBox_SPCommand_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPCommand.TextChanged 'When Empty don't show Clipboard Icon If TextBox_SPCommand.Text = "" Then GunaImageButton_ClipSP.Visible = False End If '<<<------>>> 'Show Clipboard Icon & Hide Checkmark Icon GunaImageButton_ClipSP.Visible = True GunaImageButton_CheckmarkSP.Visible = False '<<<------>>> End Sub Private Sub GunaImageButton_ClipSP_Click(sender As Object, e As EventArgs) Handles GunaImageButton_ClipSP.Click 'No SP Clipboard when TextBox is Empty If TextBox_SPCommand.Text = "" Then Exit Sub End If '<<<------>>> 'Clipboard Function Clipboard.SetText(TextBox_SPCommand.Text) '<<<------>>> End Sub Private Sub GunaImageButton_ClipSP_MouseClick(sender As Object, e As MouseEventArgs) Handles GunaImageButton_ClipSP.MouseClick 'SP Hide Clipboard Icon & Show Checkmark Icon GunaImageButton_ClipSP.Visible = False GunaImageButton_CheckmarkSP.Visible = True '<<<------>>> End Sub End Class