Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 12 02 06:00:30

ASTUCE WINDOWS : DéPLACER LES FENêTRES PERDUES D'UN éCRAN INEXISTANT VERS MON éCRAN PRINCIPAL par cyril

TEAM SYSTEM DATABASE EDITION : VERSION FINALE DISPONIBLE DE CETTE NOUVELLE MISE à JOUR DE LA VERSION 2008 par christian

[LINQ TO WIQL] LES DESSOUS DU PROVIDER (PART 1: INTRODUCTION) par Miiitch

SHAREPOINT 2007 : ACTIVATION DE FEATURES ET ACTIVATIONDEPENDENCIES par phil

DOCUMENT W3C SUR L'ACCESSIBILITé DE SILVERLIGHT 2.0 par neodante

SSTAB ET MODIFIER LE RECORDSOURCE DE ADODC par tapageur99

VBA EXCEL USERFORM par flyersgoaler

RE : REBOND DE DEUX BALLES par Orohena

RE : GESTION DE STATION DE DISTRIBUTION DES CARBURANTS par jamal028

+ de logiciels à télécharger

1 301 179 membres
66 nouveaux aujourd'hui
14 547 membres club

Trouver une ressource

Trouvez une ressource parmi 39 071 codes, 1 208 000 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

TAGS HTML (HEAD BODY FORM) DYNAMIQUEMENT REMPLIS OU CREES

Information sur la source

Catégorie :VB.NET

Niveau : Débutant Date de création : 09/06/2002 Date de mise à jour : 09/01/2003 20:19:09 Vu : 6 814

Auteur : ErB

Site perso

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (0)

Ajouter un commentaire et/ou une note

Description

on peut demarrer une page aspx a zero, ici ce n'est pas tout a fait a zero mais le principe est le meme

Source

lapage.aspx (pour ceux qui n'utilisent pas visual studio remplacer codebehind par src)
-----------------------------------------------------------------------------------------------------
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="lapage.aspx.vb" Inherits="monespace.lapage"%>
<HTML>
<HEAD id="Head" runat="server">
<title id="title" runat="server"></title>
<meta name="keywords" content="" id="keywords" runat="server"></meta>
<meta name="description" content="" id="description" runat="server"></meta>
<meta name="robots" content="" id="robots" runat="server"></meta>
<meta HTTP-EQUIV="imagetoolbar" content="" id="imagetoolbar" runat="server"></meta>
<LINK href="" type='text/css' rel='stylesheet' id="Style_1" runat="server"></LINK>
</HEAD>
<BODY id="Body" runat="server">
<form id="Frm" method="post" runat="server">
</form>
</BODY>
</HTML>
-----------------------------------------------------------------------------------------------------
lapage.aspx.vb
-------------------------------------------------------------------------------------------------------
Imports System.Web.UI.HtmlControls
et dans le page load
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
title.InnerText = "un titre tres texto"
keywords.Attributes("content") = "des,mots,clefs"
description.Attributes("content") = "comment tout ca qu'on fait"
robots.Attributes("content") = "INDEX,FOLLOW"
imagetoolbar.Attributes("content") = "yes"
style_1.Attributes("href") = "Styles/Test.css"
Body.Attributes.Add("scroll", "no")
Dim plh As New PlaceHolder()
Frm.Controls.Add(plh)
Dim lit As New Literal()
Dim h As New System.Web.UI.HtmlControls.HtmlAnchor()
h.Name = "Haut"
lit.Text = title.InnerText + "<br/>"
Dim i As Int32
For i = 0 To 40
lit.Text += i.ToString + "<br/>"
Next
Dim hp As New HyperLink()
hp = CreeAncre()
plh.Controls.Add(h)
plh.Controls.Add(lit)
plh.Controls.Add(hp)
End Sub
Public Function CreeAncre(Optional ByVal Page As String = "default.aspx", Optional ByVal ou As Boolean = True) As HyperLink
Page = "tete.aspx"
Dim hp As New HyperLink()
Dim ancre As String
If ou Then
ancre = "Haut"
Else
ancre = "Bas"
End If
hp.NavigateUrl = Page + "#" + ancre
hp.Text = ancre ' dans la langue
Return hp
End Function

lapage.aspx (pour ceux qui n'utilisent pas visual studio remplacer codebehind par src)
-----------------------------------------------------------------------------------------------------
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="lapage.aspx.vb" Inherits="monespace.lapage"%>
<HTML>
	<HEAD id="Head" runat="server">
		<title id="title" runat="server"></title>
		<meta name="keywords" content="" id="keywords" runat="server"></meta>
		<meta name="description" content="" id="description" runat="server"></meta>
		<meta name="robots" content="" id="robots" runat="server"></meta>
		<meta HTTP-EQUIV="imagetoolbar" content="" id="imagetoolbar" runat="server"></meta>
		<LINK href="" type='text/css' rel='stylesheet' id="Style_1" runat="server"></LINK>
	</HEAD>
	<BODY id="Body" runat="server">
		<form id="Frm" method="post" runat="server">
		</form>
	</BODY>
</HTML>

-----------------------------------------------------------------------------------------------------
lapage.aspx.vb
-------------------------------------------------------------------------------------------------------
Imports System.Web.UI.HtmlControls


et dans le page load

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        title.InnerText = "un titre tres texto"
        keywords.Attributes("content") = "des,mots,clefs"
        description.Attributes("content") = "comment tout ca qu'on  fait"
        robots.Attributes("content") = "INDEX,FOLLOW"
        imagetoolbar.Attributes("content") = "yes"
        style_1.Attributes("href") = "Styles/Test.css"

        Body.Attributes.Add("scroll", "no")

        Dim plh As New PlaceHolder()
        Frm.Controls.Add(plh)

        Dim lit As New Literal()

        Dim h As New System.Web.UI.HtmlControls.HtmlAnchor()
        h.Name = "Haut"

        lit.Text = title.InnerText + "<br/>"

        Dim i As Int32
        For i = 0 To 40
            lit.Text += i.ToString + "<br/>"
        Next

        Dim hp As New HyperLink()
        hp = CreeAncre()

        plh.Controls.Add(h)
        plh.Controls.Add(lit)
        plh.Controls.Add(hp)

    End Sub


 Public Function CreeAncre(Optional ByVal Page As String = "default.aspx", Optional ByVal ou As Boolean = True) As HyperLink

        Page = "tete.aspx"
        Dim hp As New HyperLink()
        Dim ancre As String

        If ou Then
            ancre = "Haut"
        Else
            ancre = "Bas"
        End If

        hp.NavigateUrl = Page + "#" + ancre
        hp.Text = ancre ' dans la langue

        Return hp

    End Function