ASP.NET I / Web formularer / Øvelse 2 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

Kode eksempel fra VS.NET i VB

aspx filen

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="Ovelse2.aspx.vb" Inherits="Udvikling.Ovelse2"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
 <HEAD>
  <title>Ovelse2</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" Font-Names="Verdana" Width="341px"></asp:TextBox>
       </td>
      </tr>
      <tr>
       <td valign="top">
        Beskrivelse:
       </td>
       <td>
        <asp:TextBox id="txtBeskrivelse" runat="server" Font-Names="Verdana" Width="339px" TextMode="MultiLine"
         Height="70px"></asp:TextBox>
       </td>
      </tr>
      <tr>
       <td valign="top">
        Afdeling
       </td>
       <td>
        <asp:RadioButtonList id="rbtAfdeling" runat="server" RepeatDirection="Horizontal">
         <asp:ListItem Value="Grafik">Grafik</asp:ListItem>
         <asp:ListItem Value="Teknik">Teknik</asp:ListItem>
         <asp:ListItem Value="Ledelse">Ledelse</asp:ListItem>
        </asp:RadioButtonList>
       </td>
      </tr>
      <tr>
       <td valign="top">
        Faktura&nbsp;</td>
       <td>
        <asp:CheckBox id="chkFaktura" runat="server"></asp:CheckBox>
       </td>
      </tr>
      <tr>
       <td valign="top">
        Kørsel</td>
       <td>
        <asp:CheckBox id="chkKorsel" runat="server"></asp:CheckBox>
       </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>
   <p>
    Afdeling:
    <asp:Label id="lblAfdeling" runat="server" borderstyle="None"></asp:Label>
   </p>
   <p>
    Faktura:
    <asp:Label id="lblFaktura" runat="server" borderstyle="None"></asp:Label>
   </p>
   <p>
    Kørsel:
    <asp:Label id="lblKorsel" runat="server" borderstyle="None"></asp:Label>
   </p>
  </form>
 </body>
</HTML>

codebehind

Public Class Ovelse2
    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 rbtAfdeling As System.Web.UI.WebControls.RadioButtonList
    Protected WithEvents chkFaktura As System.Web.UI.WebControls.CheckBox
    Protected WithEvents chkKorsel As System.Web.UI.WebControls.CheckBox
    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
    Protected WithEvents lblAfdeling As System.Web.UI.WebControls.Label
    Protected WithEvents lblFaktura As System.Web.UI.WebControls.Label
    Protected WithEvents lblKorsel 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
        lblAfdeling.Text = rbtAfdeling.SelectedItem.Value
        lblFaktura.Text = chkFaktura.Checked
        lblKorsel.Text = chkKorsel.Checked
    End Sub
End Class