Chexbox und Variable

Snipero · 2. Dezember 2004

Hallo Leute,
ich habe ein Problem.
Ich habe eine Variable namens "variable1" deklariert!

Code:

Private variable1 As Integer

Nun möchte ich mit einer Checkbox (check4) die Variable verändern
Wenn aktiv dann variable1 = 15
Wenn inaktiv dann variable1 = 0

Code:

If Check4  = 1 Then Private variable1 = 15 Else variable1 = 0

Aber das klappt nicht!
Könnt ihr mir helfen was ich da falsch mache?
Ich bedanke mich schon im vorraus!

MFG
Snipero

Merlin_78 · 2. Dezember 2004

Hi Snipero,

probier es mal so:

Code:

Private Sub Check4_Click()
  If Check4.Value = 0 Then
	variable1 = 0
  Else
	variable1 = 15
  End If
End Sub

Snipero · 2. Dezember 2004

Hey Super klappt!
Vielen Dank nocheinmal!

Snipero