Notifikationer

Markér alle som læst Log ud

micwar Mester

08. august 2012 - 08:03 Der er 5 kommentarer og
1 løsning

Skifte faver på commandButton

Hej
Jeg har en lille opgave til jer. Jeg vil have en UserForm hvor der er 3 commandButten. X, XX og XXX. X skal have faven grøn og xx og xxx skal være grå. Hvis jeg trykker XX ind (måske skal det laves med ToggleButten) skal X blive rød og XX grøn. Det samme skal ske hvis XXX bliver trykket på så bliver X rød og XXX grøn. Når man så trykker på X igen bliver den grøn og XX eller XXX grå igen.
Er det til at forstå :)

Synes godt om

store-morten Ekspert

08. august 2012 - 08:58 #1

Private Sub UserForm_Initialize()
CommandButton1.BackColor = 65280 'Grøn
CommandButton2.BackColor = -2147483633 'Grå
CommandButton3.BackColor = -2147483633 'Grå
End Sub

Private Sub CommandButton1_Click()
CommandButton1.BackColor = 65280 'Grøn
CommandButton2.BackColor = -2147483633 'Grå
CommandButton3.BackColor = -2147483633 'Grå
End Sub

Private Sub CommandButton2_Click()
CommandButton1.BackColor = 255 'Rød
CommandButton2.BackColor = 65280 'Grøn
CommandButton3.BackColor = -2147483633 'Grå
End Sub

Private Sub CommandButton3_Click()
CommandButton1.BackColor = 255 'Rød
CommandButton2.BackColor = -2147483633 'Grå
CommandButton3.BackColor = 65280 'Grøn
End Sub

Synes godt om

micwar Mester

08. august 2012 - 09:08 #2

Fedt, lige som jeg ønskede det. Tak for hjælpen.

Synes godt om

store-morten Ekspert

08. august 2012 - 09:17 #3

Velbekomme

Synes godt om

micwar Mester

08. august 2012 - 09:44 #4

Er du der endnu morten.
Jeg havde glemt at skrive at den skal gemme de indstillenger men har trykket. Så hvis XX er Grøn og X er Rød, så skal man kunne lukke userformen ned og når man starter den igen så er det som man lukkede det ned. Den må gerne gemme informationerne på Ark 1 f.eks. Håer du kan hjælpe igen

Synes godt om

store-morten Ekspert

08. august 2012 - 10:57 #5

Private Sub UserForm_Initialize()
CommandButton1.BackColor = Worksheets(1).Range("A1").Value 'Grøn
CommandButton2.BackColor = Worksheets(1).Range("A2").Value 'Grå
CommandButton3.BackColor = Worksheets(1).Range("A3").Value 'Grå
End Sub

Private Sub CommandButton1_Click()
CommandButton1.BackColor = 65280 'Grøn
Worksheets(1).Range("A1").Value = CommandButton1.BackColor
CommandButton2.BackColor = -2147483633 'Grå
Worksheets(1).Range("A2").Value = CommandButton2.BackColor
CommandButton3.BackColor = -2147483633 'Grå
Worksheets(1).Range("A3").Value = CommandButton3.BackColor
End Sub

Private Sub CommandButton2_Click()
CommandButton1.BackColor = 255 'Rød
Worksheets(1).Range("A1").Value = CommandButton1.BackColor
CommandButton2.BackColor = 65280 'Grøn
Worksheets(1).Range("A2").Value = CommandButton2.BackColor
CommandButton3.BackColor = -2147483633 'Grå
Worksheets(1).Range("A3").Value = CommandButton3.BackColor
End Sub

Private Sub CommandButton3_Click()
CommandButton1.BackColor = 255 'Rød
Worksheets(1).Range("A1").Value = CommandButton1.BackColor
CommandButton2.BackColor = -2147483633 'Grå
Worksheets(1).Range("A2").Value = CommandButton2.BackColor
CommandButton3.BackColor = 65280 'Grøn
Worksheets(1).Range("A3").Value = CommandButton3.BackColor
End Sub

Synes godt om

micwar Mester

08. august 2012 - 11:34 #6

Super. Tak fordi du hjalp igen. Den virker som den skal nu.
Nu må jeg se om jeg har husket det hele :)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic	5	29/08/202512:28	04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic	0	05/08/202510:10	-
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic	0	16/05/202512:31	-
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic	1	22/04/202514:55	25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic	12	10/07/202417:34	12/07/202414:34

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS