Article View: be.comp.programming
Article #469Re: VB.net: string omzetten naar juiste code
From: pom
Date: Mon, 24 Dec 2007 08:18
Date: Mon, 24 Dec 2007 08:18
47 lines
2609 bytes
2609 bytes
bertn wrote:
> Hallo,
>
> Mijn code:
>
> *******************************************
> Dim panel as string = ""
>
> For i = 0 To 7
> For j = 0 To 6
> panel = "pnl" + Convert.ToString(j) + "_" + Convert.ToString(i) +
> ".BackColor"
> If marrsSpelbord(j, i) Is "leeg" Then
> panel = Color.White
> End If
> If marrsSpelbord(j, i) Is "Speler1" Then
> panel = Color.Yellow
> End If
> If marrsSpelbord(j, i) Is "Speler2" Then
> panel = Color.Red
> End If
> Next
> Next
> *******************************************
>
> Dus in de string panel zal bv. het volgende te komen staan:
> pnl3_2.backcolor. Probleem is nu dat vb.net dit blijft aanzien als een
> string en niet als effectieve code. Hoe moet ik de string panel omzetten om
> dit te aanzien als code?
> Mvg, Tom
>
>
je moet je objecten in een array steken.
lang geleden dat ik nog basic heb geprogrammeerd maar het is zoiets:
ofwel een tweedimensionale array van 8x7 maar ik denk dat je raid
makkelijker met een gewone van 56 elementen werkt.
(index veld invullen en veld kopieren, ofwel uw frm files editen met
notepad, maar ik weet niet hoe dit werkt met .NET)
For i = 0 To 7
For j = 0 To 6
panelarray(i*7 + j).color = vbwhite
Technical Details
Message-ID:
<6XJbj.271697$Kl4.14205106@phobos.telenet-ops.be>Path:
arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!feeder3.cambrium.nl!feeder1.cambrium.nl!62.216.30.27.MISMATCH!newsgate.cistron.nl!xs4all!feeder5.cambrium.nl!feed.tweaknews.nl!68.142.88.75.MISMATCH!hwmnpeer01.ams!news.highwinds-media.com!kramikske.telenet-ops.be!nntp.telenet.be!kwabbernoot.telenet-ops.be!phobos.telenet-ops.be.POSTED!not-for-mailReferences:
<472a60ce$0$29263$ba620e4c@news.skynet.be>Show Full Headers
Complete Article Headers
X-Google-Thread: fcea4,a398e997403b3d5f X-Google-Attributes: gidfcea4,public,usenet X-Google-Language: DUTCH,ASCII-7-bit Path: arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!feeder3.cambrium.nl!feeder1.cambrium.nl!62.216.30.27.MISMATCH!newsgate.cistron.nl!xs4all!feeder5.cambrium.nl!feed.tweaknews.nl!68.142.88.75.MISMATCH!hwmnpeer01.ams!news.highwinds-media.com!kramikske.telenet-ops.be!nntp.telenet.be!kwabbernoot.telenet-ops.be!phobos.telenet-ops.be.POSTED!not-for-mail From: pom <i.read.the@group.invalid> User-Agent: Icedove 1.5.0.14pre (X11/20071020) MIME-Version: 1.0 Newsgroups: be.comp.programming Subject: Re: VB.net: string omzetten naar juiste code References: <472a60ce$0$29263$ba620e4c@news.skynet.be> In-Reply-To: <472a60ce$0$29263$ba620e4c@news.skynet.be> Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit Lines: 49 Message-ID: <6XJbj.271697$Kl4.14205106@phobos.telenet-ops.be> Date: Mon, 24 Dec 2007 08:18:10 GMT NNTP-Posting-Host: 84.197.183.31 X-Complaints-To: abuse@telenet.be X-Trace: phobos.telenet-ops.be 1198484290 84.197.183.31 (Mon, 24 Dec 2007 09:18:10 MET) NNTP-Posting-Date: Mon, 24 Dec 2007 09:18:10 MET Organization: Telenet Internet