Hey everyone, new guy here. Also not that knowledgeable in coding.

I have a question:

In Apen I want to use a combobox to define and use a colorset for backgrounds and trendlines etc. I have made the combobox and I made Private Enum's for the colors. I am just struggling to comprehend how to make this all work.

I will share the code:


Private Enum windowcolors

doesnothing = 4079584 'rgb(224, 63, 62) RED
background1 = 11184810 'rgb(170, 170, 170) GREY
gridcolor = 5066061 'rgb(77, 77, 77) DGREY
noidea = 16203573 'rgb(53, 63, 247) BLUE
End Enum

Private Enum windowcolors2
doesnothing = 0 'rgb(0, 0, 0) BLACK
background1 = 0 'rgb(0, 0, 0) BLACK
gridcolor = 5066061 'rgb(77, 77, 77) DGREY
noidea = 16203573 'rgb(53, 63, 247) BLUE
End Enum



Private Sub cmdgrid_Click()
TrendPlot1.TrendChart.Grid.Show (True)
TrendPlot2.TrendChart.Grid.Show (True)
TrendPlot3.TrendChart.Grid.Show (True)
TrendPlot4.TrendChart.Grid.Show (True)
TrendPlot5.TrendChart.Grid.Show (True)
TrendPlot6.TrendChart.Grid.Show (True)
End Sub

Private Sub cmdgriduit_Click()
TrendPlot1.TrendChart.Grid.Show (False)
TrendPlot2.TrendChart.Grid.Show (False)
TrendPlot3.TrendChart.Grid.Show (False)
TrendPlot4.TrendChart.Grid.Show (False)
TrendPlot5.TrendChart.Grid.Show (False)
TrendPlot6.TrendChart.Grid.Show (False)
End Sub

Private Sub cmdkeus_Click()
Load mdi2
mdi2.Show

TrendPlot1.TrendChart.BackColor = windowcolors.doesnothing
TrendPlot1.TrendChart.Grid.BackColor = windowcolors.background1
TrendPlot1.TrendChart.Grid.gridcolor = windowcolors.gridcolor
TrendPlot1.Color = windowcolors.noidea

TrendPlot2.TrendChart.BackColor = windowcolors.doesnothing
TrendPlot2.TrendChart.Grid.BackColor = windowcolors.background1
TrendPlot2.TrendChart.Grid.gridcolor = windowcolors.gridcolor
TrendPlot2.Color = windowcolors.noidea
TrendPlot3.TrendChart.BackColor = windowcolors.doesnothing
TrendPlot3.TrendChart.Grid.BackColor = windowcolors.background1
TrendPlot3.TrendChart.Grid.gridcolor = windowcolors.gridcolor
TrendPlot3.Color = windowcolors.noidea

TrendPlot4.TrendChart.BackColor = windowcolors.doesnothing
TrendPlot4.TrendChart.Grid.BackColor = windowcolors.background1
TrendPlot4.TrendChart.Grid.gridcolor = windowcolors.gridcolor
TrendPlot4.Color = windowcolors.noidea

TrendPlot5.TrendChart.BackColor = windowcolors.doesnothing
TrendPlot5.TrendChart.Grid.BackColor = windowcolors.background1
TrendPlot5.TrendChart.Grid.gridcolor = windowcolors.gridcolor
TrendPlot5.Color = windowcolors.noidea
TrendPlot6.TrendChart.BackColor = windowcolors.doesnothing
TrendPlot6.TrendChart.Grid.BackColor = windowcolors.background1
TrendPlot6.TrendChart.Grid.gridcolor = windowcolors.gridcolor
TrendPlot6.Color = windowcolors.noidea


TrendPlot1.TrendChart.Grid.Show (False)
TrendPlot2.TrendChart.Grid.Show (False)
TrendPlot3.TrendChart.Grid.Show (False)
TrendPlot4.TrendChart.Grid.Show (False)
TrendPlot5.TrendChart.Grid.Show (False)
TrendPlot6.TrendChart.Grid.Show (False)


End Sub


Private Sub UserForm_Initialize()
cmboxserver.Clear
cmboxserver.AddItem ("NLRZA291") 'listnumber = 0
cmboxserver.AddItem ("NLRZA290") 'listnumber = 1
cmboxserver.AddItem ("BEEVA286") 'listnumber = 2
cmboxserver.AddItem ("NLRZA286") 'listnumber = 3
cmboxserver.AddItem ("BEBEAV133") 'listnumber = 4

cmboxserver.ListIndex = 0
colorset.Clear
colorset.AddItem ("K1") 'listnumber = 0
colorset.AddItem ("K2") 'listnumber = 1

colorset.ListIndex = 0
TrendPlot1.TrendChart.BackColor = windowcolors.doesnothing
TrendPlot1.TrendChart.Grid.BackColor = windowcolors.background1
TrendPlot1.TrendChart.Grid.gridcolor = windowcolors.gridcolor
TrendPlot1.Color = windowcolors.noidea

TrendPlot2.TrendChart.BackColor = windowcolors.doesnothing
TrendPlot2.TrendChart.Grid.BackColor = windowcolors.background1
TrendPlot2.TrendChart.Grid.gridcolor = windowcolors.gridcolor
TrendPlot2.Color = windowcolors.noidea
TrendPlot3.TrendChart.BackColor = windowcolors.doesnothing
TrendPlot3.TrendChart.Grid.BackColor = windowcolors.background1
TrendPlot3.TrendChart.Grid.gridcolor = windowcolors.gridcolor
TrendPlot3.Color = windowcolors.noidea

TrendPlot4.TrendChart.BackColor = windowcolors.doesnothing
TrendPlot4.TrendChart.Grid.BackColor = windowcolors.background1
TrendPlot4.TrendChart.Grid.gridcolor = windowcolors.gridcolor
TrendPlot4.Color = windowcolors.noidea

TrendPlot5.TrendChart.BackColor = windowcolors.doesnothing
TrendPlot5.TrendChart.Grid.BackColor = windowcolors.background1
TrendPlot5.TrendChart.Grid.gridcolor = windowcolors.gridcolor
TrendPlot5.Color = windowcolors.noidea

TrendPlot6.TrendChart.BackColor = windowcolors.doesnothing
TrendPlot6.TrendChart.Grid.BackColor = windowcolors.background1
TrendPlot6.TrendChart.Grid.gridcolor = windowcolors.gridcolor
TrendPlot6.Color = windowcolors.noidea


TrendPlot1.TrendChart.Grid.Show (False)
TrendPlot2.TrendChart.Grid.Show (False)
TrendPlot3.TrendChart.Grid.Show (False)
TrendPlot4.TrendChart.Grid.Show (False)
TrendPlot5.TrendChart.Grid.Show (False)
TrendPlot6.TrendChart.Grid.Show (False)


End Sub