visual-basic - checkbox.capton = text1.text - Udvikleren.dk

Tags: visual-basic

Bruger #1966 @ 08.02.03 16:22

ups stave fejl i emne sry

hej jeg er gået i så i en stump kode:

ideen er at man ved hjælp af 4 check boxe skal kunne sætte en text streng sammen, udfra checkboxen's caption

Foreksempel:

Kode

 If check1 = Checked Then
  text1.text = check1.caption
   ElseIf   check1 = Unchecked Then
    'skal fjerne sin caption det der står i textboxen.
 end if
 If check2 = Checked Then
  text1.text = check2.caption
   ElseIf   check2 = Unchecked Then
    'skal fjerne sin caption det der står i textboxen.
 end if
  If check3 = Checked Then
   text1.text = check3.caption
    ElseIf   check3 = Unchecked Then
     'skal fjerne sin caption det der står i textboxen.
 end if
 If check4 = Checked Then
  text1.text = check4.caption
   ElseIf   check4 = Unchecked Then
    'skal fjerne sin caption det der står i textboxen.
 end if

Her kommer problemet:

Der kan kun stå en caption i text1 ad gangen!

resultat skulle meget gerne give at der i text1.text kommer til at stå.

check1.caption, check2.caption,check3.caption,check4.caption

og hvis jeg så foreksempel ikke "checker" check3 så skal linjen være

check1.caption, check2.caption,check4.caption

håber der er nogen der kan hjælpe mig.

0:::

|:::::::::::::><::::::::::::

|::::0
Det du ikke dør af, gør dig stærkere
0:::

|:::::::::::::><::::::::::::

|::::0[Redigeret d. 08/02-03 20:37:32 af composer][Redigeret d. 08/02-03 20:40:55 af composer]

4 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 3 karma

Sorter efter stemmer Sorter efter dato

Bruger #2165 @ 08.02.03 19:51

302

det er ikke den smarteste måde og langt fra den eneste, men det er hvad er lige hurtigt kan diske op med, brug det og giv mig nogen UP, eller vent på der kommer nogle smartere måder, for de findes helt sikkert!

Kode

Private Sub Check1_Click()
    textchange
End Sub

Private Sub Check2_Click()
    textchange
End Sub

Private Sub Check3_Click()
    textchange
End Sub

Private Sub Check4_Click()
    textchange
End Sub

Public Sub textchange()
    If Check1.Value = 1 Then
        If Check2.Value = 1 Then
            If Check3.Value = 1 Then
                If Check4.Value = 1 Then
                    Text1.Text = Check1.Caption & Check2.Caption & Check3.Caption & Check4.Caption
                Else
                    Text1.Text = Check1.Caption & Check2.Caption & Check3.Caption
                End If
            Else
                If Check4.Value = 1 Then
                    Text1.Text = Check1.Caption & Check2.Caption & Check4.Caption
                Else
                    Text1.Text = Check1.Caption & Check2.Caption
                End If
            End If
        Else
            If Check3.Value = 1 Then
                If Check4.Value = 1 Then
                    Text1.Text = Check1.Caption & Check3.Caption & Check4.Caption
                Else
                    Text1.Text = Check1.Caption & Check3.Caption
                End If
            Else
                If Check4.Value = 1 Then
                    Text1.Text = Check1.Caption & Check4.Caption
                Else
                    Text1.Text = Check1.Caption
                End If
            End If
        End If
    Else
        If Check2.Value = 1 Then
            If Check3.Value = 1 Then
                If Check4.Value = 1 Then
                    Text1.Text = Check2.Caption & Check3.Caption & Check4.Caption
                Else
                    Text1.Text = Check2.Caption & Check3.Caption
                End If
            Else
                If Check4.Value = 1 Then
                    Text1.Text = Check2.Caption & Check4.Caption
                Else
                    Text1.Text = Check2.Caption
                End If
            End If
        Else
            If Check3.Value = 1 Then
                If Check4.Value = 1 Then
                    Text1.Text = Check3.Caption & Check4.Caption
                Else
                    Text1.Text = Check3.Caption
                End If
            Else
                If Check4.Value = 1 Then
                    Text1.Text = Check4.Caption
                Else
                    Text1.Text = ""
                End If
            End If
        End If
    End If
End Sub

Bruger #2165 @ 08.02.03 19:54

302

check1.caption = text1.text

resultat skulle meget gerne give at der i text1.text kommer til at stå.

check1.caption, check2.caption,check3.caption,check4.caption

og hvis jeg så foreksempel ikke "checker" check3 så skal linjen være

check1.caption, check2.caption,check4.caption

Hvor er du dog svær at gøre sig klog på...

Først siger du at check1.caption = text1.text
Og senere text1.text = check1.caption???

Bruger #1966 @ 08.02.03 20:33

hmmm ja jeg kan godt se at jeg har gludret lidt i det sry... har lige rette det hurtig igennem.

jeg kigger lige på din kode i aften og så hvis den virker må du jo have poing *g*

hvis der er nogen der har en "mindre" eller smarter kode at så smid lige et hint til mig.

[Redigeret d. 08/02-03 20:38:31 af composer]

Bruger #1966 @ 09.02.03 03:04

Jeg har nu forsøgt med din kode, men jeg må jo sige at det satte sine begrænsninger, det er jo ikke muligt at " vidre udvikle" på den, uden at man selv skal sætte alle opstillings mulighederne, det bliver meget kode og meget kaffe, hvis man skal have 12 checkboxe på, som alle kan opstilles på forskellige måder.

Men okay du løse da den opgave jeg spurte om, så du får UP :-)

jeg fandt nu min ejen løsning:

Kode

dim cc, war, wes, gen as string

Private Sub check2_Click()

If check2 = Checked Then
cc = check2.Caption
ElseIf check2 = Unchecked Then
cc = ""
End If

End Sub

Private Sub check3_Click()
If check3 = Checked Then
war = check3.Caption
ElseIf check3 = Unchecked Then
war = ""
End If
End Sub

Private Sub check4_Click()

If check4 = Checked Then
wes = check4.Caption
ElseIf check4 = Unchecked Then
wes = ""
End If

End Sub


Private Sub OKButton_Click()

gen = (Action) & (Adventure) & (Ani) & (Comedy) & (Crime) & (Doc) & (Drama) & (fam) & (Fan) & (Horror) & (Musical) & (Mys) & (Rom) & (Sci) & (Thriller) & (war) & (wes)
Text1.Text = gen

End Sub

der må dog stadig væ´k være en smarter løsning end denne, vis nogen har en så smid mig lige en mail :-)

checkbox.capton = text1.text

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler