ASP.NET I / Kontrolstrukturer / Øvelse 5 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 i VB

aspx filen

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="Ovelse5.aspx.vb" Inherits="Udvikling.Ovelse5"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
 <HEAD>
  <title>Ovelse5</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>
        Projekt/aktivitet</td>
       <td>
        <asp:DropDownList id="drpAktivitet" runat="server" AutoPostBack="True">
         <asp:ListItem Value="Grafisk design">Grafisk design</asp:ListItem>
         <asp:ListItem Value="ASP.NET udvikling">ASP.NET udvikling</asp:ListItem>
         <asp:ListItem Value="Diverse r&#229;dgivning">Diverse r&#229;dgivning</asp:ListItem>
        </asp:DropDownList>
       </td>
      </tr>
      <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" Selected="True">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="btnAction" runat="server" Text="Start"></asp:Button>
    &nbsp;
    <asp:Button id="btnPause" runat="server" Text="Pause" Visible="False"></asp:Button>
   </p>
   <p>
    <asp:Label id="lblBesked" runat="server"></asp:Label>
   </p>
   <h2>Resultater:
   </h2>
   <p>
    Projekt/aktivitet:
    <asp:Label id="lblAktivitet" runat="server"></asp:Label>
   </p>
   <p>
    Konsulent:
    <asp:Label id="lblKonsulent" runat="server"></asp:Label>
   </p>
   <p>
    Beskrivelse:
    <asp:Label id="lblBeskrivelse" runat="server"></asp:Label>
   </p>
   <p>
    Afdeling:
    <asp:Label id="lblAfdeling" runat="server"></asp:Label>
   </p>
   <p>
    Faktura:
    <asp:Label id="lblFaktura" runat="server"></asp:Label>
   </p>
   <p>
    Kørsel:
    <asp:Label id="lblKorsel" runat="server"></asp:Label>
   </p>
   <p>
    Start tid:
    <asp:Label id="lblStart" runat="server"></asp:Label>
   </p>
   <p>
    Slut tid:
    <asp:Label id="lblSlut" runat="server"></asp:Label>
   </p>
   <p>
    Total tid:
    <asp:Label id="lblTotal" runat="server"></asp:Label>
   </p>
  </form>
 </body>
</HTML>

Codebehind

Public Class Ovelse5
    Inherits System.Web.UI.Page

    Dim dtStart, dtSlut, dtTemp As DateTime
    Dim dtTotalTid As TimeSpan


#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 drpAktivitet As System.Web.UI.WebControls.DropDownList
    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 btnAction As System.Web.UI.WebControls.Button
    Protected WithEvents btnPause As System.Web.UI.WebControls.Button
    Protected WithEvents lblBesked As System.Web.UI.WebControls.Label
    Protected WithEvents lblAktivitet As System.Web.UI.WebControls.Label
    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
    Protected WithEvents lblStart As System.Web.UI.WebControls.Label
    Protected WithEvents lblSlut As System.Web.UI.WebControls.Label
    Protected WithEvents lblTotal 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
        lblKonsulent.Text = txtKonsulent.Text
        lblBeskrivelse.Text = txtBeskrivelse.Text
        lblAfdeling.Text = rbtAfdeling.SelectedItem.Value
        lblFaktura.Text = chkFaktura.Checked
        lblKorsel.Text = chkKorsel.Checked
        lblAktivitet.Text = drpAktivitet.SelectedItem.Value
    End Sub

    Private Sub btnAction_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAction.Click
        If btnAction.Text = "Start" Then
            btnAction.Text = "Stop"
            btnPause.Visible = True
            dtStart = Now()
            lblStart.Text = dtStart
            lblBesked.Text = "Uret kører - og blev startet " & dtStart
        Else
            btnAction.Text = "Start"
            btnPause.Visible = False
            dtSlut = Now()
            lblSlut.Text = dtSlut
            dtTotalTid = dtSlut.Subtract(lblStart.Text)
            If lblTotal.Text = "" Then
                dtTemp = #12:00:00 AM#
            Else
                dtTemp = lblTotal.Text
            End If
            lblTotal.Text = dtTemp.Add(dtTotalTid)
            lblBesked.Text = "Uret er stoppet - og kørte " & lblTotal.Text
        End If
    End Sub

    Private Sub btnPause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPause.Click

        If lblBesked.Text = "Uret holder pause" Then
            lblStart.Text = Now()
            lblBesked.Text = "Uret kører igen!"
        Else
            lblBesked.Text = "Uret holder pause"
            dtTotalTid = Now().Subtract(lblStart.Text)
            If lblTotal.Text = "" Then
                dtTemp = #12:00:00 AM#
            Else
                dtTemp = lblTotal.Text
            End If
            lblTotal.Text = dtTemp.Add(dtTotalTid)
        End If

    End Sub
End Class