|
Koristim VB10express i napravio sam formu sa vise dugmadi na kojima mjenjam Back Color dugmeta.
Ovo je kod koji sam koristio za promjenu boje jednog dugmeta :
Public Class Form1
Dim ClickCount As Integer = 1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Not ClickCount = 4 Then
ClickCount += 1
Else
ClickCount = 1
End If
Select Case ClickCount
Case Is = 1
Button1.BackColor = Color.ForestGreen
Case Is = 2
Button1.BackColor = Color.Red
Case Is = 3
Button1.BackColor = Color.Silver
Case Is = 4
Button1.BackColor = Color.BlueViolet
End Select
End Sub
Kako da spremim Back Color tako da ostane boja koja je bila zadnja pri zatvaranju programa i da se
ona pojavi nakon novog pokretanja programa.
|