<%
dim strNav as String = Request.QueryString("nav")
dim sArray as String
dim sArray2 as String

Select Case strNav
Case "kontakt"
----> sArray() As String = {"Mailformulär", "Telefon & Fax", "Adress & Karta"}
sArray2() As String = {"mailformular.gif", "telefon.gif", "adress.gif"}
End Select

%>





felmess:
Expression is not a method

Nedanstående borde fungera...

<code>
Dim strNav as String = Request.QueryString("nav")
Dim sArray() as String
Dim sArray2() as String

Select Case strNav
Case "kontakt"
sArray() = {"Mailformulär", "Telefon & Fax", "Adress & Karta"}
sArray2() = {"mailformular.gif", "telefon.gif", "adress.gif"}
End Select
</code>

Mvh,
Thomas

<code>
'Borde inte:
sArray() = {"Mailformulär", "Telefon & Fax", "Adress & Karta"}
'Vara:
sArray() = New String() {"Mailformulär", "Telefon & Fax", "Adress & Karta"}
'?
</code>

wooops ju helt rätt, förstår inte varför jag sätter formatet två ggr.

tackar

nu får jag detta fel istället



Expression is not an array or a method, and cannot have an argument list

Ta bort () efter variabel-namnet

nej det spelar ingen roll..

varför kan man inte deklarera en array på ett ställe och tilldela dess värde
på ett annat??

det måste finnas en vettig förklaring till detta - nån som har den ? =D



om jag deklarerar samt tillsätter värdena samtidigt så har den inga klagomål.
men detta vill jag inte göra då värder i arrayen ska tilldelas med en select sats.

Är inte säker eftersom jag inte testat nu, men tror det ska vara som följer...

<code>
sArray.AddRange(New String() {"Mailformulär", "Telefon & Fax", "Adress & Karta"})
</code>

Mvh,
Thomas

'AddRange' is not a member of 'System.Array'.



Detta är ju inte sant, är det verkligen ingen som vet varför
man inte kan deklarera en array och sedan fylla den på
något annat ställe??

Markus,

Nu har ni varit närma ett tag så här kommer ett fungerande exempel. Inte så roligt men det visar hur man deklarerar en string array och fyller den senare

Module Module1

    Sub Main()

        Dim Texts As String()

        ' Byta till denna raden för att få
        ' engelsk text.
        'Dim Language As String = "Eng"
        Dim Language As String = "Swe"

        Select Case (Language)
            Case "Eng"
                Texts = New String() {"Hello", "Bye", "Welcome"}
            Case "Swe"
                Texts = New String() {"Hej", "Hejdå", "Välkommen"}
        End Select

        Dim Text As String
        For Each Text In Texts
            Console.WriteLine(Text)
        Next

        Console.ReadLine()

    End Sub

End Module