1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
Namespace BasicWM
Public Class ColorPicker
Public Color As Color
Public oldcolor As Color
Private Sub btnwhite_Click(sender As Object, e As EventArgs) Handles btnwhite.Click, btnblack.Click, btngray.Click, btnred.Click, btngreen.Click, btnblue.Click, btnyellow.Click, btnorange.Click, btnpink.Click, btnpurple.Click, btnbrown.Click
Color = sender.backcolor
lbselectedcolor.Text = "Selected color: " & Color.ToKnownColor.ToString
End Sub
Private Sub btnok_Click(sender As Object, e As EventArgs) Handles btnok.Click
Me.Close()
End Sub
Private Sub btncancel_Click(sender As Object, e As EventArgs) Handles btncancel.Click
Color = oldcolor
Me.Close()
End Sub
Private Sub ColorPicker_Load(sender As Object, e As EventArgs) Handles MyBase.Load
loadcolors()
End Sub
Public Sub loadcolors()
If boughtgray Then btngray.Show()
If boughtred Then btnred.Show()
If boughtgreen Then btngreen.Show()
If boughtblue Then btnblue.Show()
If boughtyellow Then btnyellow.Show()
If boughtorange Then btnorange.Show()
If boughtpink Then btnpink.Show()
If boughtpurple Then btnpurple.Show()
If boughtbrown Then btnbrown.Show()
End Sub
End Class
End Namespace
|
