if then else i .NET VB

Well... Det er hensigten, at du laver dine sidespecifikke ting i dine contentpages (du kan angive alle de contentplaceholders du vil, og også give dem default content).
Mvh

Jeg ville gøre følgende:

Du har en side med een content placeholder. når siden loader er der 2 scenarier. 1) Siden har ikke en Querystring. 2) Siden har en Querystring og indhold skal vises/behandles derefter.

Lav f.eks 3 paneler (kan også bare være labels eller andre controls) og fyld dem med labels, tekstbokse, eller andet der måtte være behov for.

I page load på samme side (ikke din master) skjuler du alle paneler:

panel1.Visible = False
panel2.Visible = False
panel3.Visible = False

Efter panelerne er skjult skal der så testes på hvilken af dem der skal vises:

Dim pageString As String = "Def"
If Not (Request.QueryString("Page") = "") Then
pageString = Request.QueryString("Page").ToString
End If
If pageString = "Def" Then
panel1.Visible = False
panel2.Visible = False
panel3.Visible = False
Else
If pageString = "Page1" Then
  panel1.Visible = True
  panel2.Visible = False
  panel3.Visible = False
Else
If pageString = "Page2" Then
  panel1.Visible = False
  panel2.Visible = True
  panel3.Visible = False
Else
If pageString = "Page3" Then
  panel1.Visible = False
  panel2.Visible = False
  panel3.Visible = True
End If
End If

Hvis du forstår princippet i det er det let at udvide til f.eks at hente data i en database afhængigt af hvilken streng der er med i adresse kaldet.

Vh Nicki

Der er en fejl i koden, den skulle selvfølgelig være:

Dim pageString As String = "Def"
If Not (Request.QueryString("Page").ToString = "") Then
pageString = Request.QueryString("Page").ToString
End If
If pageString = "Def" Then
panel1.visible = False
panel2.visible = False
panel3.visible = False
Else
If pageString = "Page1" Then
  panel1.visible = True
  panel2.visible = False
  panel3.visible = False
Else
  If pageString = "Page2" Then
    panel1.visible = False
    panel2.visible = True
    panel3.visible = False
  Else
    If pageString = "Page3" Then
      panel1.visible = False
      panel2.visible = False
      panel3.visible = True
    End If
  End If
End If
End If


Hvis siden kaldes således: http://side.aspx , skjules alle paneler.
Hvis siden kaldes således: http://side.aspx?Page=Page1 , eller Page2 eller Page3, så vises panelet.

Vh Nicki

@Innercitydk

Mange tak...kigger lige på det lørdag har dog et spm. hvor sætter jeg så:
panel1.Visible = "Detter er en lille tekst om Ole" så den skriver det når Panel1 vises og hvad med var det er "Def" som skal vises. !?

Der hvor du initierer dine paneler kan du også fylde hvad som helst i dem. F.eks kan du bare fylde almindelig tekst i dem. Gå til designereren is VS, eller manipuler koden direkte. f.eks:

<asp:Panel ID="Panel1" runat="server">Dette er en lille tekst om Ole</asp:Panel>
<asp:Panel ID="Panel2" runat="server">Dette er en lille tekst om Hans</asp:Panel>
<asp:Panel ID="Panel3" runat="server">Dette er en lille tekst om Lotte</asp:Panel>

"Def" (default) gør ikke andet end at skjule alle panelerne. Du kan jo lege lidt med at indsætte et par link buttons eller lignende der så kalder en kodestump i codebehind filen, spom så henholdvis skjuler eller viser panelerne. Det smarte ved at bruge et panel, eller en contentplaceholder eller lignende er at man kan fylde dem med hvad som helst. Du kan fylde dem med tekstbokse, labels, buttons osv osv. Og så kan man jo skjule alle elementer bare ved at sætte .Visible=false. Alternativet var at man for hver control (labels, buttons etc.) skulle skjule dem enkeltvis.

Vh

skal min Code_behind ikke ligne dette eller har jeg lavet en fejl !? den siger noget om Sub og Dim

Imports Microsoft.VisualBasic

Partial Class CodeBehind_default_aspx
    Inherits System.Web.UI.Page

    Protected Sub Dim pageString As String = "Def"
        If Not (Request.QueryString("Page").ToString = "") Then
            pageString = Request.QueryString("Page").ToString
        End If
        If pageString = "Def" Then
            panel1.visible = False
            panel2.visible = False
            panel3.visible = False
        Else
            If pageString = "Page1" Then
                panel1.visible = True
                panel2.visible = False
                panel3.visible = False
            Else
                If pageString = "Page2" Then
                    panel1.visible = False
                    panel2.visible = True
                    panel3.visible = False
                Else
                    If pageString = "Page3" Then
                        panel1.visible = False
                        panel2.visible = False
                        panel3.visible = True
                    End If
                End If
            End If
        End If
    End Sub
End Class

rettelse til det ovenover

Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)

        Dim pageString As String = "Def"
        If Not (Request.QueryString("Page").ToString = "") Then
            pageString = Request.QueryString("Page").ToString
        End If

OSV. og så kommer denne fejl.
Content controls have to be top-level controls in a content page or a nested master page that references a master page.

Sry.. skulle have været:

If Not (Request.QueryString("Page") Is Nothing) Then ...

hmm ved ikke lige med den fejl du får

Jeg startede forfra i VWD2005EE og har nu fået den til at vise de asp panel
Men hvis siden er
http://localhost:4217/WebSite1/Default.aspx
så viser den alle de 3 Panel og hvis jeg laver den om til

http://localhost:4217/WebSite1/Default.aspx?Page=2
så viser den også alle sammen !??

har kørt en Error list i VWD2005EE og den finder nu ikke nogle fejl i det du har lavet den vil dog kun vise alle..


Default.aspx

<%@ Page Language="VB" MasterPageFile="~/MasterPage.master" Title="Untitled Page" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
<asp:Panel ID="Panel1" runat="server">Dette er en lille tekst om Ole 1</asp:Panel>
<asp:Panel ID="Panel2" runat="server">Dette er en lille tekst om Hans 2</asp:Panel>
<asp:Panel ID="Panel3" runat="server">Dette er en lille tekst om Lotte 3</asp:Panel>
</asp:Content>


Default.aspx.vb

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)

        Dim pageString As String = "Def"
        If Not (Request.QueryString("Page") Is Nothing) Then
            pageString = Request.QueryString("Page").ToString
        End If
        If pageString = "Def" Then
            Panel1.Visible = False
            Panel2.Visible = False
            Panel3.Visible = False
        Else
            If pageString = "Page1" Then
                Panel1.Visible = True
                Panel2.Visible = False
                Panel3.Visible = False
            Else
                If pageString = "Page2" Then
                    Panel1.Visible = False
                    Panel2.Visible = True
                    Panel3.Visible = False
                Else
                    If pageString = "Page3" Then
                        Panel1.Visible = False
                        Panel2.Visible = False
                        Panel3.Visible = True
                    End If
                End If
            End If
        End If
    End Sub
End Class

Det skal dog siges at den viser dem det rigtige sted på min master men fejlen er nu kun at den viser alle 3 ligemeget hvad..

Det er fordi du som det første i pageload, inden alt andet, skal skjule alle dine paneler.

<%@ Page Language="VB" MasterPageFile="~/MasterPage.master" Title="Untitled Page" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
<asp:Panel ID="Panel1" runat="server">Dette er en lille tekst om Ole 1</asp:Panel>
<asp:Panel ID="Panel2" runat="server">Dette er en lille tekst om Hans 2</asp:Panel>
<asp:Panel ID="Panel3" runat="server">Dette er en lille tekst om Lotte 3</asp:Panel>
</asp:Content>


Default.aspx.vb

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)

Panel1.Visible = False
            Panel2.Visible = False
            Panel3.Visible = False

        Dim pageString As String = "Def"
        If Not (Request.QueryString("Page") Is Nothing) Then
            pageString = Request.QueryString("Page").ToString
        End If
        If pageString = "Def" Then
            Panel1.Visible = False
            Panel2.Visible = False
            Panel3.Visible = False
        Else
            If pageString = "Page1" Then
                Panel1.Visible = True
                Panel2.Visible = False
                Panel3.Visible = False
            Else
                If pageString = "Page2" Then
                    Panel1.Visible = False
                    Panel2.Visible = True
                    Panel3.Visible = False
                Else
                    If pageString = "Page3" Then
                        Panel1.Visible = False
                        Panel2.Visible = False
                        Panel3.Visible = True
                    End If
                End If
            End If
        End If
    End Sub
End Class

Alternativt kan du i html koden for Panel tagget sætte visible = false.

Hmm går jeg som du har gjort i 03/12-2006 10:44:40 så vises alle stadigvæk og gør jeg som du skriver derefter omkring visible:

<%@ Page Language="VB" MasterPageFile="~/MasterPage.master" Title="Untitled Page" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
<asp:Panel Visible="false" ID="Panel1" runat="server">Dette er en lille tekst om Ole 1</asp:Panel>
<asp:Panel Visible="false" ID="Panel2" runat="server">Dette er en lille tekst om Hans 2</asp:Panel>
<asp:Panel Visible="false" ID="Panel3" runat="server">Dette er en lille tekst om Lotte 3</asp:Panel>
</asp:Content>

så vises ingen men der vises heller ikke nogle hvis jeg skriver:
http://localhost:4014/WebSite1/Default.aspx?Page=Page1

hvor den jo skulle vise noget..

har prøvet flere gange nu og ikke fået det til at virke og fået andre til at kigge på det som mener det ser rigtigt ud. har prøvet at debugge hele dagen men løste det selv som jeg gerne ville have det men det ligher meget det gamle men virker fint.

....:: Default.aspx ::....
<%@ Page Language="VB" MasterPageFile="~/MasterPage.master" Title="Untitled Page" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
<%
    Dim pageString As String = "Def"
    If Not (Request.QueryString("Page") Is Nothing) Then
        pageString = Request.QueryString("Page").ToString
    End If
    If pageString = "Def" Then
        Response.Write("")
    Else
        If pageString = "Page1" Then
            writeOlePage()
        Else
            If pageString = "Page2" Then
                writeHansPage()
            Else
                If pageString = "Page3" Then
                    writeLottePage()
                End If
            End If
        End If
    End If
%>
</asp:Content>


....:: Default.aspx.vb ::....
Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub writeOlePage()
        Response.Write("Dette er en lille tekst om Ole 1")
    End Sub

    Protected Sub writeHansPage()
        Response.Write("Dette er en lille tekst om Hans 2")
    End Sub

    Protected Sub writeLottePage()
        Response.Write("Dette er en lille tekst om Lotte 3")
    End Sub

End Class


men du prøvede, så vil du have point for din tid !? så giver jeg dem gerne til dig.

Vi kan da dele dem :)

Jeg er stadig ikke med på hvad det er du gerne vil, og som du ikke kan løse med blot at lave et sæt contentpages, og så bare linke til dem.
Mvh

ok Innercitydk og tak ;)