<!-- This example demonstrates how to set property values for the
BorderColor, BorderStyle, and BorderWidth properties, and how to
change the property values at run time. -->
...
<%@ Page language="VB" AutoEventWireup="true" %>
<%@ Import Namespace="System.Drawing" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
Private Sub Page_Load(sender As Object, e As System.EventArgs)
' Determine whether this is the first time the page is loaded;
' if so, load the drop-down lists with data.
If Not Page.IsPostBack Then
' Create a ListItemCollection and add names of colors.
Dim colors As New ListItemCollection()
colors.Add(Color.Black.Name)
colors.Add(Color.Blue.Name)
colors.Add(Color.Green.Name)
colors.Add(Color.Orange.Name)
colors.Add(Color.Purple.Name)
colors.Add(Color.Red.Name)
colors.Add(Color.White.Name)
colors.Add(Color.Yellow.Name)
' Bind the colors collection to the borderColorList.
borderColorList.DataSource = colors
borderColorList.DataBind()
' Create a ListItemCollection and the add names of
' the BorderStyle enumeration values.
Dim styles As New ListItemCollection()
Dim styleType As Type = GetType(BorderStyle)
Dim s As String
For Each s In [Enum].GetNames(styleType)
styles.Add(s)
Next s
' Bind the styles collection to the borderStyleList.
borderStyleList.DataSource = styles
borderStyleList.DataBind()
' Create a ListItemCollection and add width values
' expressed in pixels (px).
Dim widths As New ListItemCollection()
Dim i As Integer
For i = 0 To 10
widths.Add(i.ToString() & "px")
Next i
' Bind the widths collection to the borderWidthList.
borderWidthList.DataSource = widths
borderWidthList.DataBind()
End If
End Sub
' This method handles the SelectedIndexChanged event for borderColorList.
Public Sub ChangeBorderColor(sender As Object, e As System.EventArgs)
' Convert the color name string to an object of type Color,
' and set the Color as the new border color for Label1.
Label1.BorderColor = Color.FromName(borderColorList.SelectedItem.Text)
End Sub
' This method handles the selectedIndexChanged event for boderStyleList.
Public Sub ChangeBorderStyle(sender As Object, e As System.EventArgs)
' Convert the style name string to a BorderStyle enumeration value,
' and set the BorderStyle as the new border style for Label1.
Dim styleType As Type = GetType(BorderStyle)
Label1.BorderStyle = [Enum].Parse(styleType, borderStyleList.SelectedItem.Text)
End Sub
' This method handles the SelectedIndexChanged event for borderWidthList.
Public Sub ChangeBorderWidth(sender As Object, e As System.EventArgs)
' Convert the border width string to a object of type Unit,
' and set the Unit as the new border width for Label1.
Label1.BorderWidth = Unit.Parse(borderWidthList.SelectedItem.Text)
End Sub
</script>
<html >
<head>
<title> Border Properties Example </title>
</head>
<body>
<form id="form1" runat="server">
<h3> Border Properties Example </h3>
<table border="0" cellpadding="6">
<tr>
<td>
<asp:Label Runat="server" BorderColor="Black"
BorderStyle="Solid" BorderWidth="4px" ID="Label1"
Text="Border Properties Example" Height="75"
Width="200"><center><br />Border Properties Example
</center></asp:Label>
</td>
<td>
<asp:DropDownList Runat="server" ID="borderColorList"
OnSelectedIndexChanged="ChangeBorderColor" AutoPostBack="True"
EnableViewState="True"></asp:DropDownList>
<br />
<br />
<asp:DropDownList Runat="server" ID="borderStyleList"
OnSelectedIndexChanged="ChangeBorderStyle" AutoPostBack="True"
EnableViewState="True"></asp:DropDownList>
<br />
<br />
<asp:DropDownList Runat="server" ID="borderWidthList"
OnSelectedIndexChanged="ChangeBorderWidth" AutoPostBack="True"
EnableViewState="True"></asp:DropDownList>
</td>
</tr>
</table>
</form>
</body>
</html>