« Previous Entries
Next Entries »

ComboBox(HTML Input Radio Button): get selected value (VB.net)

Wednesday, July 8th, 2009

<%@ Page Language=VB Debug=true %>
<script runat=server>
Sub SubmitBtn_Click(Source As Object, E as EventArgs)
    MyMessage.InnerHTML = "You selected as your " _
        & "favorite meal: " & Meal.Value
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Allowing Input through the HTMLInputRadioButton Control</TITLE>
</HEAD>
<BODY>
<form runat="server">
<Span id="MyMessage" runat=server>
</Span>    
<BR>
Which is your favorite meal?  
<BR>
<select
    id="meal"
    runat="Server"
    multiple="False"
    size=1
>
    <option>Breakfast</option>
    <option>Lunch</option>
    <option>Dinner</option>
</select>
<BR>
<button 
    id="Button1"
    runat="server"
    onserverclick="SubmitBtn_Click" 
>
Submit
</button>
</Form>
</BODY>
</HTML>
           
       

Posted in Uncategorized | No Comments »

Deletion using SqlDataSource Control

Tuesday, July 7th, 2009

<%@ Page Language="C#" %>
<script runat="server">
    void deptSource_Deleted(object sender,SqlDataSourceStatusEventArgs e)
    {
      if (e.Exception == null)
      {
        if (e.AffectedRows == 1)
        {
          lblResult.Text = "Record deleted successfully.";
        }
        else
        {
          lblResult.Text = "An error occurred during the delete operation.";
        }
      }
      else
      {
        lblResult.Text = "An error occurred while attempting to delete the row." + e.Exception.Message;
        e.ExceptionHandled = true;
      }
    }
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>Deletion using SqlDataSource Control</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>        
        <asp:SqlDataSource ID="deptSource" runat="server"
            ProviderName="System.Data.SqlClient" 
            ConnectionString="<%$ ConnectionStrings:AdventureWorks %>"
            SelectCommand="Select DepartmentID, Name, GroupName, ModifiedDate from HumanResources.Department"
            DeleteCommand="Delete from HumanResources.Department Where DepartmentID=@original_DepartmentID"            
            OldValuesParameterFormatString="original_{0}" OnDeleted="deptSource_Deleted">
            <DeleteParameters>                
                <asp:Parameter Type="Int32" Name="DepartmentID"></asp:Parameter>
            </DeleteParameters>
        </asp:SqlDataSource>
        <asp:GridView ID="deptView" 
            AutoGenerateColumns="False" 
            runat="server" 
            DataSourceID="deptSource"
            HeaderStyle-HorizontalAlign="Center" 
            HeaderStyle-Font-Bold="True"
            HeaderStyle-BackColor="blue" 
            HeaderStyle-ForeColor="White"
            DataKeyNames="DepartmentID">
            <Columns>
                <asp:TemplateField HeaderText="Delete">
                    <ItemTemplate>
                        <asp:Button ID="btnDelete" Text="Delete" runat="server"
                            OnClientClick="return confirm(’Are you sure you want to delete this record?’);"
                            CommandName="Delete" />
                    </ItemTemplate>
                </asp:TemplateField>
                <asp:BoundField HeaderText="DepartmentID" DataField="DepartmentID" />
                <asp:BoundField HeaderText="Department Name" DataField="Name" />
                <asp:BoundField HeaderText="Group Name" DataField="GroupName" />
                <asp:BoundField HeaderText="Last Modified Date" DataField="ModifiedDate" />
            </Columns>
        </asp:GridView>            
        <asp:Label ID="lblResult" runat="server" ForeColor="DarkRed"/>
    </div>
    </form>
</body>
</html>

 

Posted in Uncategorized | No Comments »

Basic Wizard

Sunday, July 5th, 2009

<%@ Page Language="C#" AutoEventWireup="true" CodeFile="Default.aspx.cs" Inherits="BasicWizard" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>Untitled Page</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
       <asp:Wizard ID="Wizard1" 
                   runat="server" 
                   Width="467px" 
                   BackColor="#EFF3FB" 
                   BorderColor="#B5C7DE" 
                   BorderWidth="1px" 
                   Font-Names="Verdana"
                   CellPadding="5" 
                   ActiveStepIndex="0" 
                   Font-Size="Small" 
                   OnFinishButtonClick="Wizard1_FinishButtonClick">
              <WizardSteps>
                <asp:WizardStep ID="WizardStep1" runat="server" Title="Personal">
                  <h3>Personal Profile</h3>
                  Preferred Programming Language:
                  <asp:DropDownList ID="lstLanguage" runat="server">
                    <asp:ListItem>C#</asp:ListItem>
                    <asp:ListItem>VB .NET</asp:ListItem>
                    <asp:ListItem>J#</asp:ListItem>
                    <asp:ListItem>Java</asp:ListItem>
                    <asp:ListItem>C++</asp:ListItem>
                    <asp:ListItem>C</asp:ListItem>         
                  </asp:DropDownList>
                  <br />
                </asp:WizardStep>
                <asp:WizardStep ID="WizardStep2" 
                                runat="server" 
                                Title="Company">
                  <h3>Comany Profile</h3>
                  Number of Employees: <asp:TextBox ID="txtEmpCount" runat="server"></asp:TextBox><br />
                  Number of Locations: &nbsp;<asp:TextBox ID="txtLocCount" runat="server"></asp:TextBox>
                </asp:WizardStep>
                <asp:WizardStep ID="WizardStep3" 
                                runat="server" 
                                Title="Software">
                  <h3>Software Profile</h3>
                  Licenses Required:
                  <asp:CheckBoxList ID="lstTools" runat="server">
                    <asp:ListItem>Visual Studio</asp:ListItem>
                    <asp:ListItem>Office</asp:ListItem>
                    <asp:ListItem>Windows 2003 Server</asp:ListItem>
                    <asp:ListItem>SQL Server 2005</asp:ListItem>
                    <asp:ListItem>BizTalk 2004</asp:ListItem>
                  </asp:CheckBoxList>
                </asp:WizardStep>
                <asp:WizardStep ID="Complete" runat="server" Title="Complete " StepType="Complete">
                Summary: <asp:Label ID="lblSummary" runat="server" Text="Label"></asp:Label>

                </asp:WizardStep>
              </WizardSteps>
           <SideBarStyle VerticalAlign="Top" />
             
            </asp:Wizard>
    </div>
    </form>
</body>
</html>

File: Default.aspx.cs

using System;
using System.Data;
using System.Configuration;
using System.Collections;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;
using System.Text;

public partial class BasicWizard : System.Web.UI.Page
{
  protected void Wizard1_FinishButtonClick(object sender, WizardNavigationEventArgs e)
  {
    StringBuilder sb = new StringBuilder();
    sb.Append("<b>You chose: <br />");
    sb.Append("Programming Language: ");
    sb.Append(lstLanguage.Text);
    sb.Append("<br />Total Employees: ");
    sb.Append(txtEmpCount.Text);
    sb.Append("<br />Total Locations: ");
    sb.Append(txtLocCount.Text);
    sb.Append("<br />Licenses Required: ");
    foreach (ListItem item in lstTools.Items)
    {
      if (item.Selected)
      {
        sb.Append(item.Text);
        sb.Append(" ");
      }
    }
    sb.Append("</b>");
    lblSummary.Text = sb.ToString();
  }
}

 

Posted in Uncategorized | No Comments »

Select case for asp:radiobuttonlist (VB.net)

Saturday, July 4th, 2009

<script language="vb" runat="server">
Sub Page_Load()
  If Page.IsPostBack Then
    Select Case(Destination.SelectedItem.Value)
      Case "Barcelona":
        Message.Text = "Barcelona"
      Case "Oslo":
        Message.Text = "Oslo"
      Case "Lisbon": 
        Message.Text = "Lisbon"
      Case else
        Message.Text = "you did not select a destination we travel to"
    End Select
  End If
End Sub
</script>

<html>
<head></head>
<body>
  <form runat="server">
  Select your choice of destination:
  <br><br>
  <asp:radiobuttonlist id="destination" runat="server">
    <asp:listitem>Barcelona</asp:listitem>
    <asp:listitem>Oslo</asp:listitem>
    <asp:listitem>Lisbon</asp:listitem>
  </asp:radiobuttonlist>
  <br><br>
  <input type="submit" value="Submit Choice">
  <br><br>
  <asp:label id="message" runat="server"/>
</form>
</body>
</html>

           
       

Posted in Uncategorized | No Comments »

Get all exe files (VB)

Saturday, July 4th, 2009

<%@ Page Language="VB" %>
<%@ import Namespace="System.IO" %>
<script runat="server">
  Sub Page_Load(Sender As Object, E As EventArgs)
    If Not IsPostBack Then

      Dim FileCollection As String()
      Dim myFileInfo As FileInfo
      Dim i as integer
      
      FileCollection = Directory.GetFiles("C:\WINNT","*.exe")
      For i = 0 To FileCollection.Length - 1
        myFileInfo = New FileInfo(FileCollection(i))
        FileListBox.Items.Add(new ListItem(myFileInfo.Name.ToString()))
      Next
    End If
  End Sub
</script>
<html>
  <head>
  </head>
  <body>
<form runat="server">
  EXE Files in Folder C:\WINNT:
  <asp:ListBox id="FileListBox" Runat="Server" />
</form>
  </body>
</html>

 

Posted in Uncategorized | No Comments »

« Previous Entries
Next Entries »