lotrointerface.com
Search Downloads

LoTROInterface SVN MyUi-BuildyourUIupdate

[/] [trunk/] [Ui Maker/] [WindowsApplication2/] [Builder.vb] - Rev 15

Compare with Previous | Blame | View Log

Public Class Builder
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'Start by looking for the MyDocuments folder
        Dim Ui As String
        Ui = My.Computer.FileSystem.SpecialDirectories.MyDocuments + "\The Lord of the Rings Online\ui\skins\MyUi\"

        'Now, begin the combine. First name the target file - whilst debugging this has an odd name
        Dim Final As String
        Final = "SkinDefinition.xml"
        'Now begin the file
        My.Computer.FileSystem.WriteAllText(Ui + Final, System.IO.File.ReadAllText(Ui + "open.xml"), False)

        'Here goes everything else!
        'Define a temp text holder
        Dim TempText As String

        'Toolbar
        TempText = "Null.xml"
        If Me.ToolBar.Text = "DaimonUI Universal MOM" Then
            TempText = "toolbars\dmnuiuniMOM.xml"
        ElseIf Me.ToolBar.Text = "DaimonUI Universal SOM" Then
            TempText = "toolbars\dmnuiuniSOM.xml"
        ElseIf Me.ToolBar.Text = "Small Bar" Then
            If Me.Resolution.Text = "800x600" Then
                TempText = "toolbars\SmallBar800.xml"
            ElseIf Me.Resolution.Text = "1024x768" Then
                TempText = "toolbars\SmallBar1024.xml"
            ElseIf Me.Resolution.Text = "1152x768" Then
                TempText = "toolbars\SmallBar1152.xml"
            ElseIf Me.Resolution.Text = "1280x720" Then
                TempText = "toolbars\SmallBar1280.xml"
            ElseIf Me.Resolution.Text = "1280x1024" Then
                TempText = "toolbars\SmallBar1280.xml"
            ElseIf Me.Resolution.Text = "1366x768" Then
                TempText = "toolbars\SmallBar1366.xml"
            ElseIf Me.Resolution.Text = "1440x900" Then
                TempText = "toolbars\SmallBar1440.xml"
            ElseIf Me.Resolution.Text = "1600x900" Then
                TempText = "toolbars\SmallBar1600.xml"
            ElseIf Me.Resolution.Text = "1680x1024" Then
                TempText = "toolbars\SmallBar1680.xml"
            ElseIf Me.Resolution.Text = "1680x1050" Then
                TempText = "toolbars\SmallBar1680.xml"
            ElseIf Me.Resolution.Text = "1920x1080" Then
                TempText = "toolbars\SmallBar1920.xml"
            ElseIf Me.Resolution.Text = "1920x1200" Then
                TempText = "toolbars\SmallBar1920.xml"
            ElseIf Me.Resolution.Text = "2048x1080" Then
                TempText = "toolbars\SmallBar2048.xml"
            ElseIf Me.Resolution.Text = "2048x1536" Then
                TempText = "toolbars\SmallBar2048.xml"
            ElseIf Me.Resolution.Text = "2560x1600" Then
                TempText = "toolbars\SmallBar2560.xml"
            ElseIf Me.Resolution.Text = "2560x2048" Then
                TempText = "toolbars\SmallBar2560.xml"
            End If
        ElseIf Me.ToolBar.Text = "Jackdaws" Then
            If Me.Resolution.Text = "1024x768" Then
                TempText = "toolbars\JackdawsToolbar1024.xml"
            ElseIf Me.Resolution.Text = "1152x768" Then
                TempText = "toolbars\JackdawsToolbar1152.xml"
            ElseIf Me.Resolution.Text = "1280x720" Then
                TempText = "toolbars\JackdawsToolbar1280.xml"
            ElseIf Me.Resolution.Text = "1280x1024" Then
                TempText = "toolbars\JackdawsToolbar1280.xml"
            ElseIf Me.Resolution.Text = "1366x768" Then
                TempText = "toolbars\JackdawsToolbar1366.xml"
            ElseIf Me.Resolution.Text = "1440x900" Then
                TempText = "toolbars\JackdawsToolbar1440.xml"
            ElseIf Me.Resolution.Text = "1600x900" Then
                TempText = "toolbars\JackdawsToolbar1600.xml"
            ElseIf Me.Resolution.Text = "1680x1024" Then
                TempText = "toolbars\JackdawsToolbar1680.xml"
            ElseIf Me.Resolution.Text = "1680x1050" Then
                TempText = "toolbars\JackdawsToolbar1680.xml"
            ElseIf Me.Resolution.Text = "1920x1080" Then
                TempText = "toolbars\JackdawsToolbar1920.xml"
            ElseIf Me.Resolution.Text = "1920x1200" Then
                TempText = "toolbars\JackdawsToolbar1920.xml"
            ElseIf Me.Resolution.Text = "2048x1080" Then
                TempText = "toolbars\JackdawsToolbar2048.xml"
            ElseIf Me.Resolution.Text = "2048x1536" Then
                TempText = "toolbars\JackdawsToolbar2048.xml"
            ElseIf Me.Resolution.Text = "2560x1600" Then
                TempText = "toolbars\JackdawsToolbar2560.xml"
            ElseIf Me.Resolution.Text = "2560x2048" Then
                TempText = "toolbars\JackdawsToolbar2560.xml"
            End If
        ElseIf Me.ToolBar.Text = "Arty Bar, 0ne row" Then
            If Me.Resolution.Text = "800x600" Then
                TempText = "toolbars\Toolbar1800.xml"
            ElseIf Me.Resolution.Text = "1024x768" Then
                TempText = "toolbars\Toolbar11024.xml"
            ElseIf Me.Resolution.Text = "1152x768" Then
                TempText = "toolbars\Toolbar11152.xml"
            ElseIf Me.Resolution.Text = "1280x720" Then
                TempText = "toolbars\Toolbar11280.xml"
            ElseIf Me.Resolution.Text = "1280x1024" Then
                TempText = "toolbars\Toolbar11280.xml"
            ElseIf Me.Resolution.Text = "1366x768" Then
                TempText = "toolbars\Toolbar11366.xml"
            ElseIf Me.Resolution.Text = "1440x900" Then
                TempText = "toolbars\Toolbar11440.xml"
            ElseIf Me.Resolution.Text = "1600x900" Then
                TempText = "toolbars\Toolbar11600.xml"
            ElseIf Me.Resolution.Text = "1680x1024" Then
                TempText = "toolbars\Toolbar11680.xml"
            ElseIf Me.Resolution.Text = "1680x1050" Then
                TempText = "toolbars\Toolbar11680.xml"
            ElseIf Me.Resolution.Text = "1920x1080" Then
                TempText = "toolbars\Toolbar11920.xml"
            ElseIf Me.Resolution.Text = "1920x1200" Then
                TempText = "toolbars\Toolbar11920.xml"
            ElseIf Me.Resolution.Text = "2048x1080" Then
                TempText = "toolbars\Toolbar12048.xml"
            ElseIf Me.Resolution.Text = "2048x1536" Then
                TempText = "toolbars\Toolbar12048.xml"
            ElseIf Me.Resolution.Text = "2560x1600" Then
                TempText = "toolbars\Toolbar12560.xml"
            ElseIf Me.Resolution.Text = "2560x2048" Then
                TempText = "toolbars\Toolbar12560.xml"
            End If
        ElseIf Me.ToolBar.Text = "Arty Bar, Two Rows" Then
            If Me.Resolution.Text = "800x600" Then
                TempText = "toolbars\Toolbar2800.xml"
            ElseIf Me.Resolution.Text = "1024x768" Then
                TempText = "toolbars\Toolbar21024.xml"
            ElseIf Me.Resolution.Text = "1152x768" Then
                TempText = "toolbars\Toolbar21152.xml"
            ElseIf Me.Resolution.Text = "1280x720" Then
                TempText = "toolbars\Toolbar21280.xml"
            ElseIf Me.Resolution.Text = "1280x1024" Then
                TempText = "toolbars\Toolbar21280.xml"
            ElseIf Me.Resolution.Text = "1366x768" Then
                TempText = "toolbars\Toolbar21366.xml"
            ElseIf Me.Resolution.Text = "1440x900" Then
                TempText = "toolbars\Toolbar21440.xml"
            ElseIf Me.Resolution.Text = "1600x900" Then
                TempText = "toolbars\Toolbar21600.xml"
            ElseIf Me.Resolution.Text = "1680x1024" Then
                TempText = "toolbars\Toolbar21680.xml"
            ElseIf Me.Resolution.Text = "1680x1050" Then
                TempText = "toolbars\Toolbar21680.xml"
            ElseIf Me.Resolution.Text = "1920x1080" Then
                TempText = "toolbars\Toolbar21920.xml"
            ElseIf Me.Resolution.Text = "1920x1200" Then
                TempText = "toolbars\Toolbar21920.xml"
            ElseIf Me.Resolution.Text = "2048x1080" Then
                TempText = "toolbars\Toolbar22048.xml"
            ElseIf Me.Resolution.Text = "2048x1536" Then
                TempText = "toolbars\Toolbar22048.xml"
            ElseIf Me.Resolution.Text = "2560x1600" Then
                TempText = "toolbars\Toolbar22560.xml"
            ElseIf Me.Resolution.Text = "2560x2048" Then
                TempText = "toolbars\Toolbar22560.xml"
            End If
        ElseIf Me.ToolBar.Text = "Arty Bar, Three rows" Then
            If Me.Resolution.Text = "800x600" Then
                TempText = "toolbars\Toolbar3800.xml"
            ElseIf Me.Resolution.Text = "1024x768" Then
                TempText = "toolbars\Toolbar31024.xml"
            ElseIf Me.Resolution.Text = "1152x768" Then
                TempText = "toolbars\Toolbar31152.xml"
            ElseIf Me.Resolution.Text = "1280x720" Then
                TempText = "toolbars\Toolbar31280.xml"
            ElseIf Me.Resolution.Text = "1280x1024" Then
                TempText = "toolbars\Toolbar31280.xml"
            ElseIf Me.Resolution.Text = "1366x768" Then
                TempText = "toolbars\Toolbar31366.xml"
            ElseIf Me.Resolution.Text = "1440x900" Then
                TempText = "toolbars\Toolbar31440.xml"
            ElseIf Me.Resolution.Text = "1600x900" Then
                TempText = "toolbars\Toolbar31600.xml"
            ElseIf Me.Resolution.Text = "1680x1024" Then
                TempText = "toolbars\Toolbar31680.xml"
            ElseIf Me.Resolution.Text = "1680x1050" Then
                TempText = "toolbars\Toolbar31680.xml"
            ElseIf Me.Resolution.Text = "1920x1080" Then
                TempText = "toolbars\Toolbar31920.xml"
            ElseIf Me.Resolution.Text = "1920x1200" Then
                TempText = "toolbars\Toolbar31920.xml"
            ElseIf Me.Resolution.Text = "2048x1080" Then
                TempText = "toolbars\Toolbar32048.xml"
            ElseIf Me.Resolution.Text = "2048x1536" Then
                TempText = "toolbars\Toolbar32048.xml"
            ElseIf Me.Resolution.Text = "2560x1600" Then
                TempText = "toolbars\Toolbar32560.xml"
            ElseIf Me.Resolution.Text = "2560x2048" Then
                TempText = "toolbars\Toolbar32560.xml"
            End If
        End If
        text_combine(Ui + TempText, Ui + Final)

        'Player Vitals
        TempText = "Null.xml"
        If Me.PlayerVit.Text = "Buffs Above" Then
            TempText = "Vitals\PlayerVitals.xml"
        ElseIf Me.PlayerVit.Text = "Thin" Then
            TempText = "Vitals\ThinPlayerVitals.xml"
        ElseIf Me.PlayerVit.Text = "Clear" Then
            TempText = "Vitals\ClearVitals.xml"
        ElseIf Me.PlayerVit.Text = "Azure+Champ" Then
            TempText = "Vitals\AzureChampPl.xml"
        ElseIf Me.OppVit.Text = "DaimonUI Mini MOM" Then
            TempText = "Vitals\dmnuiminiplmom.xml"
        ElseIf Me.OppVit.Text = "DaimonUI Mini SOM" Then
            TempText = "Vitals\dmnuiminiplsom.xml"
        ElseIf Me.OppVit.Text = "Ultra Mini Vitals" Then
            TempText = "Vitals\UltraMiniVitals.xml"
        End If
        text_combine(Ui + TempText, Ui + Final)

        'Opponent Vitals
        TempText = "Null.xml"
        If Me.OppVit.Text = "Buffs Above" Then
            TempText = "Vitals\OpponentVitals.xml"
        ElseIf Me.OppVit.Text = "Clear" Then
            TempText = "Vitals\ClearOppVitals.xml"
        ElseIf Me.OppVit.Text = "Champ" Then
            TempText = "Vitals\Champ.xml"
        ElseIf Me.OppVit.Text = "Azure+Champ" Then
            TempText = "Vitals\AzureChampOp.xml"
        ElseIf Me.OppVit.Text = "DaimonUI Mini MOM" Then
            TempText = "Vitals\dmnuiminioppmom.xml"
        ElseIf Me.OppVit.Text = "DaimonUI Mini SOM" Then
            TempText = "Vitals\dmnuiminioppsom.xml"
        End If
        text_combine(Ui + TempText, Ui + Final)

        'Mail
        TempText = "Null.xml"
        If Me.Mail.Text = "Brygard" Then
            TempText = "Mail\BrygardMail.xml"
        ElseIf Me.Mail.Text = "Firefern" Then
            TempText = "Mail\firefernmail.xml"
        End If
        text_combine(Ui + TempText, Ui + Final)

        'Graphics
        TempText = "Null.xml"
        If Me.Box.Checked = True Then
            TempText = "Graphics\Box.xml"
        End If
        text_combine(Ui + TempText, Ui + Final)
        TempText = "Null.xml"
        If Me.Scrollbar.Checked = True Then
            TempText = "Graphics\Scrollbar.xml"
        End If
        text_combine(Ui + TempText, Ui + Final)

        'Crafting
        TempText = "Null.xml"
        If Me.Craft.Text = "Tallcraft" Then
            TempText = "Crafting\Tallcraft.xml"
        ElseIf Me.Craft.Text = "Widecraft" Then
            TempText = "Crafting\Widecraft.xml"
        ElseIf Me.Craft.Text = "Supercraft" Then
            TempText = "Crafting\Supercraft.xml"
        ElseIf Me.Craft.Text = "Fireferns" Then
            TempText = "Crafting\Fireferns.xml"
        ElseIf Me.Craft.Text = "Amalises" Then
            TempText = "Crafting\AmaliseCraft.xml"
        End If
        text_combine(Ui + TempText, Ui + Final)

        'Minimap
        TempText = "Null.xml"
        If Me.Minimap.Text = "Modified1" Then
            TempText = "Minimap\Minimap.xml"
        ElseIf Me.Minimap.Text = "Modified2" Then
            TempText = "Minimap\Minimap2.xml"
        ElseIf Me.Minimap.Text = "DaimonUI" Then
            TempText = "Minimap\dmnui_minimap.xml"
        End If
        text_combine(Ui + TempText, Ui + Final)

        'Bags
        TempText = "Null.xml"
        If Me.Bags.Text = "Sexy" Then
            TempText = "Bags\Bags.xml"
        ElseIf Me.Bags.Text = "Ultra Mini" Then
            TempText = "Bags\Mini.xml"
        ElseIf Me.Bags.Text = "Ultra Mini Locked" Then
            TempText = "Bags\MiniLocked.xml"
        ElseIf Me.Bags.Text = "Amalise" Then
            TempText = "Bags\AmaliseBag.xml"
        End If
        text_combine(Ui + TempText, Ui + Final)

        'Dressup
        TempText = "Null.xml"
        If Me.Dressing.Text = "BDRX" Then
            If Me.BDRXRes.Text = "800x600" Then
                TempText = "Dressup\bdrx800x600.xml"
            ElseIf Me.BDRXRes.Text = "1024x768" Then
                TempText = "Dressup\bdrx1024x768.xml"
            ElseIf Me.BDRXRes.Text = "1152x768" Then
                TempText = "Dressup\bdrx1152x768.xml"
            ElseIf Me.BDRXRes.Text = "1280x720" Then
                TempText = "Dressup\bdrx1280x720.xml"
            ElseIf Me.BDRXRes.Text = "1280x1024" Then
                TempText = "Dressup\bdrx1280x1024.xml"
            ElseIf Me.BDRXRes.Text = "1366x768" Then
                TempText = "Dressup\bdrx1366x768.xml"
            ElseIf Me.BDRXRes.Text = "1440x900" Then
                TempText = "Dressup\bdrx1440x900.xml"
            ElseIf Me.BDRXRes.Text = "1600x900" Then
                TempText = "Dressup\bdrx1600x900.xml"
            ElseIf Me.BDRXRes.Text = "1680x1024" Then
                TempText = "Dressup\bdrx1680x1024.xml"
            ElseIf Me.BDRXRes.Text = "1680x1050" Then
                TempText = "Dressup\bdrx1680x1050.xml"
            ElseIf Me.BDRXRes.Text = "1920x1080" Then
                TempText = "Dressup\bdrx1920x1080.xml"
            ElseIf Me.BDRXRes.Text = "1920x1200" Then
                TempText = "Dressup\bdrx1920x1200.xml"
            ElseIf Me.BDRXRes.Text = "2048x1080" Then
                TempText = "Dressup\bdrx2048x1080.xml"
            ElseIf Me.BDRXRes.Text = "2048x1536" Then
                TempText = "Dressup\bdrx2048x1536.xml"
            ElseIf Me.BDRXRes.Text = "2560x1600" Then
                TempText = "Dressup\bdrx2560x1600.xml"
            ElseIf Me.BDRXRes.Text = "2560x2048" Then
                TempText = "Dressup\bdrx2560x2048.xml"
            End If
        ElseIf Me.Dressing.Text = "Fireferns" Then
            TempText = "Dressup\fireferndress.xml"
        End If
        text_combine(Ui + TempText, Ui + Final)

        'Auction
        TempText = "Null.xml"
        If Me.largeauction.Checked = True Then
            TempText = "Auction\largeauction.xml"
        End If
        text_combine(Ui + TempText, Ui + Final)

        'DamonBio
        TempText = "Null.xml"
        If Me.DaimonBio.Checked = True Then
            TempText = "dmnBioPanel\Bio.xml"
        End If
        text_combine(Ui + TempText, Ui + Final)

        'IA
        TempText = "Null.xml"
        If Me.itemAdvancement.Checked = True Then
            TempText = "IA\LargeIA.xml"
        End If
        text_combine(Ui + TempText, Ui + Final)

        'Stable Master
        TempText = "Null.xml"
        If Me.BlackStable.Checked = True Then
            TempText = "Stablemaster\BlackStablemaster.xml"
        End If
        text_combine(Ui + TempText, Ui + Final)

        'QuestLog
        TempText = "Null.xml"
        If Me.FirefernQuestLog.Checked = True Then
            TempText = "Quest\firefernquest.xml"
        End If
        text_combine(Ui + TempText, Ui + Final)

        'Vendor
        TempText = "Null.xml"
        If Me.firefernvendor.Checked = True Then
            TempText = "Vendor\firefernvendor.xml"
        End If
        text_combine(Ui + TempText, Ui + Final)

        'Barter
        TempText = "Null.xml"
        If Me.ExtendedBarter.Checked = True Then
            TempText = "Barter\TheoldoneBarter.xml"
        End If
        text_combine(Ui + TempText, Ui + Final)

        'Skirmish
        TempText = "Null.xml"
        If Me.Skirmish.Checked = True Then
            TempText = "Skirmish\WorldJoin.xml"
        End If
        text_combine(Ui + TempText, Ui + Final)

        'Now to close the file
        text_combine(Ui + "end.xml", Ui + Final)

        MsgBox("Done!")
    End Sub
    Sub CheckBoxes()
        'covert the checkbox ticks into images in the boxes
        If Me.Scrollbar.Checked = True Then
            ScrollbarImageBox.Image = My.Resources.FadedScrollbar
        Else
            ScrollbarImageBox.Image = My.Resources.DefaultScrollbar
        End If

        If Me.Box.Checked = True Then
            FrameImageBox.Image = My.Resources.Frame
        Else
            FrameImageBox.Image = My.Resources.DefaultFrame
        End If
    End Sub

    Private Sub Scrollbar_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Scrollbar.CheckedChanged
        CheckBoxes()
    End Sub

    Private Sub Box_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Box.CheckedChanged
        CheckBoxes()
    End Sub

    Private Sub Bags_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bags.SelectedIndexChanged
        'Bag Image
        If Me.Bags.Text = "Amalise" Then
            BagImageBox.Image = My.Resources.AmaliseBag
        ElseIf Me.Bags.Text = "Ultra Mini" Then
            BagImageBox.Image = My.Resources.Minibag
        ElseIf Me.Bags.Text = "Ultra Mini Locked" Then
            BagImageBox.Image = My.Resources.Minibag
        ElseIf Me.Bags.Text = "Sexy" Then
            BagImageBox.Image = My.Resources.SexyBags
        Else
            BagImageBox.Image = My.Resources.DefaultBags
        End If
    End Sub

    Private Sub Craft_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Craft.SelectedIndexChanged
        'Display Image of Crafting Frame
        If Me.Craft.Text = "Tallcraft" Then
            CraftingImageBox.Image = My.Resources.Tallcraft
        ElseIf Me.Craft.Text = "Widecraft" Then
            CraftingImageBox.Image = My.Resources.widecraft
        ElseIf Me.Craft.Text = "Supercraft" Then
            CraftingImageBox.Image = My.Resources.Supercraft
        ElseIf Me.Craft.Text = "Fireferns" Then
            CraftingImageBox.Image = My.Resources.firefernscraft
        ElseIf Me.Craft.Text = "Amalises" Then
            CraftingImageBox.Image = My.Resources.Amalisecraft
        Else
            CraftingImageBox.Image = My.Resources.DefaultCraft
        End If

    End Sub

    Private Sub PlayerVit_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlayerVit.SelectedIndexChanged
        'Display Image of Player Vitals
        If Me.PlayerVit.Text = "Buffs Above" Then
            PlayerVitalsImageBox.Image = My.Resources.PlayerBuffsAboveNameBelow
        ElseIf Me.PlayerVit.Text = "Thin" Then
            PlayerVitalsImageBox.Image = My.Resources.ThinPlayerVitals
        ElseIf Me.PlayerVit.Text = "Clear" Then
            PlayerVitalsImageBox.Image = My.Resources.ClearPlayerVitals
        ElseIf Me.PlayerVit.Text = "Azure+Champ" Then
            PlayerVitalsImageBox.Image = My.Resources.Enfieldchampp
        ElseIf Me.PlayerVit.Text = "DaimonUI Mini MOM" Then
            PlayerVitalsImageBox.Image = My.Resources.PVitMOM
        ElseIf Me.PlayerVit.Text = "DaimonUI Mini SOM" Then
            PlayerVitalsImageBox.Image = My.Resources.PVitSOM
        ElseIf Me.PlayerVit.Text = "Ultra Mini Vitals" Then
            PlayerVitalsImageBox.Image = My.Resources.UltraMiniVitals
        Else
            PlayerVitalsImageBox.Image = My.Resources.DefaultPlayerVitals
        End If
    End Sub

    Private Sub OppVit_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OppVit.SelectedIndexChanged
        'Display Image of Opponent Vitals
        If Me.OppVit.Text = "Buffs Above" Then
            OppVitalsImageBox.Image = My.Resources.OpponentBuffsAboveNameBelow
        ElseIf Me.OppVit.Text = "Clear" Then
            OppVitalsImageBox.Image = My.Resources.ClearOpponentVitals
        ElseIf Me.OppVit.Text = "Champ" Then
            OppVitalsImageBox.Image = My.Resources.Champ
        ElseIf Me.OppVit.Text = "Azure+Champ" Then
            OppVitalsImageBox.Image = My.Resources.Enfieldchampv
        ElseIf Me.OppVit.Text = "DaimonUI Mini MOM" Then
            OppVitalsImageBox.Image = My.Resources.OppVitMOM
        ElseIf Me.OppVit.Text = "DaimonUI Mini SOM" Then
            OppVitalsImageBox.Image = My.Resources.OppVitSOM
        Else
            OppVitalsImageBox.Image = My.Resources.DefaultOpponentVitals
        End If
    End Sub

    Private Sub ToolBar_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolBar.SelectedIndexChanged
        'Display Image of bar
        If Me.ToolBar.Text = "Small Bar" Then
            ToolbarImageBox.Image = My.Resources.SmallBar
        ElseIf Me.ToolBar.Text = "Arty Bar, 0ne row" Then
            ToolbarImageBox.Image = My.Resources.Artybar1
        ElseIf Me.ToolBar.Text = "Arty Bar, Two Rows" Then
            ToolbarImageBox.Image = My.Resources.Artybar2
        ElseIf Me.ToolBar.Text = "Arty Bar, Three rows" Then
            ToolbarImageBox.Image = My.Resources.Artybar3
        ElseIf Me.ToolBar.Text = "Jackdaws" Then
            ToolbarImageBox.Image = My.Resources.JackdawsToolbar
        ElseIf Me.ToolBar.Text = "DaimonUI Universal MOM" Then
            ToolbarImageBox.Image = My.Resources.DaimonUIUniMOM
        ElseIf Me.ToolBar.Text = "DaimonUI Universal SOM" Then
            ToolbarImageBox.Image = My.Resources.DaimonUIUniSOM
        Else
            ToolbarImageBox.Image = My.Resources.DefaultToolbar
        End If
    End Sub

    Private Sub Minimap_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Minimap.SelectedIndexChanged
        'MiniMap Image
        If Me.Minimap.Text = "Modified1" Then
            MiniMapImageBox.Image = My.Resources.MiniMap
        ElseIf Me.Minimap.Text = "Modified2" Then
            MiniMapImageBox.Image = My.Resources.MiniMap2
        ElseIf Me.Minimap.Text = "DaimonUI" Then
            MiniMapImageBox.Image = My.Resources.dmnui_minimap
        Else
            MiniMapImageBox.Image = My.Resources.DefaultMap
        End If
    End Sub

    Private Sub About_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles About.Click
        Dim myForm As New About

        myForm.ShowDialog()

    End Sub

    Private Sub Beta_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Beta.CheckedChanged
        If Me.Beta.Checked = True Then
        Else
        End If
    End Sub
End Class

Compare with Previous | Blame


All times are GMT -5. The time now is 06:32 AM.


Our Network
EQInterface | EQ2Interface | Minion | WoWInterface | ESOUI | LoTROInterface | MMOUI | Swtorui