Avatar billede tubber Juniormester
03. juli 2002 - 23:49 Der er 17 kommentarer og
1 løsning

Checkboxe

Jeg har 2 checkboxe.....
den ene får en værdi når jeg loader formen, så er det jeg vil at når jeg trykker på den der har en værdi skal beholde den, og når jeg trykker på den der ikke har skal den have en værdi og den anden skal miste den......
Jeg har prøvet følgende, men det virker ikke....

Private Sub chkJa_Click()
chkNej.Value = 0
chkJa.Value = 1
End Sub

Private Sub chkNej_Click()
chkNej.Value = 1
chkJa.Value = 0
End Sub

/Tubber
Avatar billede isdan Nybegynder
04. juli 2002 - 00:01 #1
Hvis kun en værdi skal kunne vælges af gangen, brug radio buttons
Avatar billede tubber Juniormester
04. juli 2002 - 04:21 #2
Jeg spurgte om hvordan problemet løses ved at blive ved med at bruge checkboxe....
Avatar billede capital Nybegynder
04. juli 2002 - 08:45 #3
Hej Isdan

Dette burde virke:

Private Sub Check2_Click()
  Check1.Value = 0
End Sub

Private Sub Form_Load()
  Check1.Value = 1
End Sub
Avatar billede capital Nybegynder
04. juli 2002 - 08:46 #4
Ups......det er jo tubber der spørger.......

:-)
Avatar billede mikker Nybegynder
04. juli 2002 - 11:16 #5
Capital>> Det virker, men man er nødt til at dobbeltklikke.

Tubber>> Får du også en 'out of stack space' ?
Avatar billede capital Nybegynder
04. juli 2002 - 11:56 #6
øhm.......dobbelklikke? hvad menes der helt præcist?
Avatar billede capital Nybegynder
04. juli 2002 - 11:59 #7
hvad med denne her...:
Private Sub Check1_Click()
  If Check1.Value = 1 Then Check2.Value = 0
End Sub

Private Sub Check2_Click()
  If Check2.Value = 1 Then Check1.Value = 0
End Sub
Avatar billede tubber Juniormester
04. juli 2002 - 13:20 #8
mikker: Ja gør jeg :O/

Capital: Chekker når jeg kommer hjem
Avatar billede mikker Nybegynder
04. juli 2002 - 18:11 #9
Capital>> Den giver 'out of stack space' :-(
Den var den jeg prøvede, nemlig. Jeg tænkte, at det kunne sgu da ikke være så svært.... Men det var det, godnat og sov godt :-)
out of stack space!!! HRMF
Avatar billede johs_j Novice
04. juli 2002 - 18:39 #10
Private Sub Check1_Click()
  If Check1.Value = 1 Then
    Check2.Value = 0
  Else
    Check1.Value = 1
    Check2.Value = 0
  End If
End Sub

Private Sub Check2_Click()
  If Check2.Value = 1 Then
    Check1.Value = 0
  Else
    Check2.Value = 1
    Check2.Value = 0
  End If
End Sub
Avatar billede mikker Nybegynder
05. juli 2002 - 07:44 #11
johs>> Virker ikke!

- Mikker
Avatar billede tubber Juniormester
05. juli 2002 - 12:24 #12
Johs_j>> Det giver ikke den store mening det du skriver, det skal virke som radiobuttons......
Altså der er kun en der må være chekked......men der SKAL også være en der er chekked.....
Avatar billede johs_j Novice
05. juli 2002 - 18:34 #13
Private Sub Check1_Click()
  If Check1.Value = 1 Then
    Check2.Value = 0
  Else
    Check1.Value = 1
    Check2.Value = 0
  End If
End Sub

Private Sub Check2_Click()
  If Check2.Value = 1 Then
    Check1.Value = 0
  Else
    Check2.Value = 1
    Check1.Value = 0
  End If
End Sub
Der var en fejl i den ene if else. Koden skulle være god nok men af en eller anden grund får jeg en Out of stack space fejl.
Avatar billede johs_j Novice
05. juli 2002 - 18:37 #14
Når man trykker på den der er makeret bliver den stående, og når man trykker på den anden forsvinder markeringen også, men man skal trykke igen før der bliver makeret - og det forstår jeg ikke rigtig. Jeg ville også bruge Option Buttons i stedet.
Avatar billede tubber Juniormester
05. juli 2002 - 20:21 #15
Det skal virke som option buttons, men laver jeg det sådan så kommer der stack overflow, grunden til det er at der skal være undemenuting, derfor virker optionbuttons ikke....
Avatar billede johs_j Novice
05. juli 2002 - 21:01 #16
'Denne skulle virke:

Private Sub Check1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Check1.Value = 1
    Check2.Value = 0
End Sub

Private Sub Check2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Check2.Value = 1
    Check1.Value = 0
End Sub
Avatar billede tubber Juniormester
06. juli 2002 - 02:32 #17
Det gør den også :O)

Hvad er det der gør forskellen ?
Avatar billede johs_j Novice
06. juli 2002 - 10:12 #18
Forskellen ligger tilsyneladende i at Private Sub Check1_Click()
har en indbygget funktion som enten bliver modarbejdet af - eller accelereret af Check1.value. Jeg har også prøvet Check1_MouseDown, men den virkede ikke godt nok.
Avatar billede 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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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