VB.net: string omzetten naar juiste code

Thread View: be.comp.programming

3 messages

[T] Back to Threads [V] Tree View [G] Group Articles

3 total messages Started by bertn Thu, 01 Nov 2007 23:27

#395

Author: bertn
Date: Thu, 01 Nov 2007 23:27

29 lines
1969 bytes

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

Re: VB.net: string omzetten naar juiste code

#396

Author: 100.00Mbps
Date: Sat, 03 Nov 2007 01:07

15 lines
1376 bytes

Kan niet.
Select case misschien?

select case j
    case 0    pnl3_2.backcolor=white
    case 1    pnl3_2.backcolor=....




> 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?

Re: VB.net: string omzetten naar juiste code

#469

Author: pom
Date: Mon, 24 Dec 2007 08:18

47 lines
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

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads