Begynder hjælp

1) Du er i den forkerte kategori. Dette er den "gamle" VB kategori. Du kører VB.NET og skal herover: http://www.eksperten.dk/spm/Programmering/Visual-Basic-NET/

2) Denne kode kan hjælpe dig på vej:
Den antager at du kun har de 12 checkboxe i formen, og at de hedder CheckBox1 til -12:

Hej Tjacob

Tak for hjælpen, det kræver jo lidt viden om hvad man skal slå op under for at kunne klare sig med bøger alene, men jeg kan se at du er selvlært så der´er måske håb forude. Hvis du har mod på det vil jeg gerne give dig 100 point mere for hvis du gider at uddybe koden lidt for mig, så jeg måske også selv fatter lidt af hvad der sker... Men ellers så får du bare de 30 hvis du ligger et indlæg ind som svar....

Der er ingen grund til at sætte points op. Jeg skal prøve at forklare koden:

1) For Each Ctrl In Me.Controls ......Next Ctrl
-Løber igennem alle kontroller i formen.

2) If TypeOf Ctrl Is CheckBox Then......End If
-Hvis kontrollen er en CheckBox, så...

3) Dim Cbox As CheckBox = DirectCast(Ctrl, CheckBox)
-Opret en instans af en CheckBox, og sæt den lig den aktuelle kontrol

4) If Cbox.Checked = True Then.......End If
-Hvis den er Checked, så...

5a) lCount += 1
-Forøg tælleren med 1

5b) If lCount > 4 Then Exit For
-Hvis der er flere end 4 CheckBoxe der er Checked behøver vi ikke tælle mere, og går ud af loopet.

5c) lVal(lCount) = CLng(Cbox.Name.Substring(9))
-Hvis der ikke er talt 4 endnu, skal CheckBoxens "Værdi" gemmes i lVal-arrayet. CheckBoxens "Værdi" er i dette tilfælde det tal der indgår i navnet. Cbox.Name.Substring(9) er alle karakterer i CheckBoxens navn fra karakter 9 og frem. Det er en string der konverteres til et tal med CLng().
-Dette er for i øvrigt en fejl fra min side. Der er ingen grund til at konvertere. Jeg lægger en ny version af koden nederst.

6) Nu er Loopet kørt, og vi har talt hvor mange CheckBoxe der er Checket. Vi har desuden gemt tallene fra disse CheckBoxe i Arrayet lVal.

7) If lCount = 4 Then....Else.....End If
-Hvis der er præcis 4 CheckBoxe der er Checket, så...

8) TextBox1.Text = CStr(lVal(1)) osv.
-Skriv værdierne fra lVal-arrayet til de 4 TextBoxe.

9) Under Else
-Hvis der er flere eller færre end 4 CheckBoxe der er Checket, så...

10) MsgBox("Der er ikke krydset korrekt antal checkboxe af")
-Giv bruger besked med en message box.

Tak for hjælpen...

Okay, koden skal bare modificeres lidt:

Koden lægges i knappen, og ændres til:

lVal(lCount) = Cbox.Name.Substring(9)

ændres til:

lVal(lCount) = Cbox.Tag

Nu kører det bare....
Tusind tak endnu en gang...