ASP.NET I / Datavalidering / Øvelse 6 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="Ovelse6.aspx.vb" Inherits="Udvikling.Ovelse6"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
 <HEAD>
  <title>Ovelse6</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" Width="341px" Font-Names="Verdana"></asp:TextBox>
        <asp:RequiredFieldValidator id="RequiredFieldValidator1" runat="server" ErrorMessage="SKAL udfyldes" Display="Dynamic"
         ControlToValidate="txtKonsulent"></asp:RequiredFieldValidator>
       </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>
      <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">
        Krsel</td>
       <td>
        <asp:CheckBox id="chkKorsel" runat="server"></asp:CheckBox>
       </td>
      </tr>
     </tbody>
    </table>
   </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>
    Krsel:
    <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

Imports System.Data
Imports System.Data.OleDb
Public Class Ovelse6
    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 RequiredFieldValidator1 As System.Web.UI.WebControls.RequiredFieldValidator
    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
        If Not Page.IsPostBack Then

            ' Databind the filter dropdown on the first request only
            ' (viewstate will restore these values on subsequent postbacks).

            ' TODO: update the ConnectionString and CommandText values for your application
            Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\stopur.mdb;Persist Security Info=False"
            Dim CommandText As String = "select intAktivitetsID as ID, txtBeskrivelse as Beskrivelse from tblAktiviteter"


            Dim myConnection As New OleDbConnection(ConnectionString)
            Dim myCommand As New OleDbCommand(CommandText, myConnection)

            ' TODO: Update the DataTextField value
            drpAktivitet.DataTextField = "Beskrivelse"

            myConnection.Open()

            drpAktivitet.DataSource = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
            drpAktivitet.DataBind()

            ' insert an "All" item at the beginning of the list
            drpAktivitet.Items.Insert(0, "-- Vlg en aktivitet --")

        End If
        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 krer - 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 krte " & 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 krer 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