ASP.NET I / Web formularer / Øvelse 1 i VS.NET - VB

ASP.NET fjernundervisningskursus

- Vil du gerne på kursus NU?

- Vil du gerne lære i dit eget tempo?

- Har du ikke tid til at tage på kursus ude i byen?

Så køb et kursus i ASP.NET som fjernundervisning på www.it-fjernundervisning.dk

Kodeeksempel fra VS.NET skrevet i VB.NET

aspx filen

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="Ovelse1.aspx.vb" Inherits="Udvikling.Ovelse1"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
 <HEAD>
  <title>Øvelse1</title>
  <meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
  <meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1">
  <meta name="vs_defaultClientScript" content="JavaScript">
  <meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
 </HEAD>
 <body>
  <form id="Form1" method="post" runat="server">
   <h1>Et super stopur!!
   </h1>
   <p>
    <table>
     <tbody>
      <tr>
       <td>
        Konsulent:</td>
       <td>
        <asp:TextBox id="txtKonsulent" runat="server" Width="341px" Font-Names="Verdana"></asp:TextBox>
       </td>
      </tr>
      <tr>
       <td valign="top">
        Beskrivelse:
       </td>
       <td>
        <asp:TextBox id="txtBeskrivelse" runat="server" Width="339px" Font-Names="Verdana" Height="70px"
         TextMode="MultiLine"></asp:TextBox>
       </td>
      </tr>
     </tbody>
    </table>
    <!-- Insert content here -->
   </p>
   <p>
    <asp:Button id="btnSend" runat="server" Text="Send"></asp:Button>
   </p>
   <h2>Resultater:
   </h2>
   <p>
    Konsulent:
    <asp:Label id="lblKonsulent" runat="server"></asp:Label>
   </p>
   <p>
    Beskrivelse:
    <asp:Label id="lblBeskrivelse" runat="server" borderstyle="None"></asp:Label>
   </p>
  </form>
 </body>
</HTML>

Codebehind

Public Class Ovelse1
    Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents txtKonsulent As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtBeskrivelse As System.Web.UI.WebControls.TextBox
    Protected WithEvents btnSend As System.Web.UI.WebControls.Button
    Protected WithEvents lblKonsulent As System.Web.UI.WebControls.Label
    Protected WithEvents lblBeskrivelse As System.Web.UI.WebControls.Label

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
    End Sub

    Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
        lblKonsulent.Text = txtKonsulent.Text
        lblBeskrivelse.Text = txtBeskrivelse.Text
    End Sub
End Class