Hej hej. nu är jag här igen, med ännu fler frågor. Du kan inte ha en Function inne i en Sub .. :) jaha:) Jaa, Du har samma namn på din funktion och din label .. hehe .. döp den till lblRubrik eller nåt i den stilen istället. ah.. :) Du får nog posta hela koden igen, är inte med på vad du gjort riktigt nu på senaste. :)Skapa en egen funktion
Nu när mitt pagesystem fungerar, så tänkte jag göra som jag gjorde i PHP. Nämligen att jag med hjälp utav en egen funktion "översätter" det som finns i "?pageId=".
Min kod:
<script language="VB" runat="server">
Sub Page_Load()
Public Function MakeRubrik(ByVal strText as string) as string
strText.Replace("main","startsidan")
strText.Replace("info","information")
strText.Replace("spel","onlinespel")
strText.Replace("lenk","länkarkiv")
strText.Replace("gestbok","gästbok")
return strText
End Function
MakeRubik.text = MakeRubik(Request.Querystring("pageId"))
End Sub
</script>
och för att kalla på översättningen:
<asp:Label id="MakeRubik" runat="server" />
men!
error:
Description: An error occurred during the compilation of a resource required to service this request. Please review the following specific error details and modify your source code appropriately.
Compiler Error Message: BC30289: Statement cannot appear within a method body. End of method assumed.
Source Error:
Line 2: <script language="VB" runat="server">
Line 3: Sub Page_Load()
Line 4: Public Function MakeRubrik(ByVal strText as string) as string
Line 5: strText.Replace("main","startsidan")
Line 6: strText.Replace("info","information")
vad kan detta bero på?Sv: Skapa en egen funktion
Flytta bara funktionen utanför subben så ska du se att det funkar :)Sv:Skapa en egen funktion
fast.. nu fick jag lite error igen
<script language="VB" runat="server">
Public Function MakeRubrik(ByVal strText as string) as string
strText.Replace("main","startsidan")
strText.Replace("info","information")
strText.Replace("spel","onlinespel")
strText.Replace("lenk","länkarkiv")
strText.Replace("gestbok","gästbok")
return strText
End Function
Sub Page_Load()
MakeRubik.text = MakeRubik(Request.Querystring("pageId"))
End Sub
</script>
ger mig:
Description: An error occurred during the compilation of a resource required to service this request. Please review the following specific error details and modify your source code appropriately.
Compiler Error Message: BC30367: Class 'System.Web.UI.WebControls.Label' cannot be indexed because it has no default property.
Source Error:
Line 10: End Function
Line 11: Sub Page_Load()
Line 12: MakeRubik.text = MakeRubik(Request.Querystring("pageId"))
Line 13: End Sub
Line 14: </script>
kan du den med? :)Sv: Skapa en egen funktion
Sv:Skapa en egen funktion
fast.
strWriteRubrik = MakeRubik(Request.Querystring("pageId"))
ger mig error
Compiler Error Message: BC30451: Name 'MakeRubik' is not declared.
Source Error:
Line 10: End Function
Line 11: Sub Page_Load()
Line 12: Dim strWriteRubrik as string = MakeRubik(Request.Querystring("pageId"))
Line 13: End Sub
Line 14: </script>
jag tror jag skall sluta med .NET :PSv: Skapa en egen funktion
Tycker inte du ska sluta. Men du borde nog ta och läsa på lite mer. Googla på "Quickstart Tutorial" .. där finns mycket bra grundläggande tutorials om asp.net. Du hankar dig fram lite för mycket nu utan att ha nån förståelse för hur det funkar ;)Sv:Skapa en egen funktion
Jag har på tok för dåligt tålamod för att läsa kurser, fast det kan nog vara en bra idé trots allt. Fast det är mycket roligare att klara av någonting man skrivit själv, något man inte hittat i en artikel någonstans. Får väl bli lite utav en mix :)
default.aspx:
<%@ Page Language="VB" Inherits="PageIncluder" Src="include.aspx.vb" %>
<script language="VB" runat="server">
Public Function MakeRubrik(ByVal strText as string) as string
strText.Replace("main","startsidan")
strText.Replace("info","information")
strText.Replace("spel","onlinespel")
strText.Replace("lenk","länkarkiv")
strText.Replace("gestbok","gästbok")
return strText
End Function
Sub Page_Load()
If Not IsPostBack Then 'någon på webforum skrev att jag skulle ha denna här. så att funktionen inte skulle repeteras dubbelt
strWriteRubrik.text = MakeRubik(Request.Querystring("pageId"))
End If
End Sub
</script>
</script>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "DTD/xhtml1-transitional.dtd">
<html>
<head>
<title>tobie.se</title>
<style type="text/css">
@import "inc/css/tobie.css"
</style>
</head>
<body>
<center>
<div id="tobie">
<div id="nav">
<h1>navigation</h1>
<p>
startsidan<br />
information<br />
onlinespel<br />
länkar<br />
kontakt<br />
gästbok<br />
</p>
</div>
<h1>tobie:<asp:Label id="strWriteRubik" runat="server" /></h1>
<p>
<asp:placeholder id="ph" runat="server" />
</p>
</div>
<div id="footer">
<p>
hej
</p>
</div>
</body>
</center>
</html>