Rev 119 | Blame | Last modification | View Log | RSS feed
<script language="VB" Runat="server">Sub MakeReadOnly(sItem as TextBox)sItem.borderwidth=unit.point(0)sItem.Backcolor=System.Drawing.Color.FromARGB(&H78FFFAF0)sItem.BorderStyle=BorderStyle.NonesItem.ReadOnly="True"End SubSub MakeEditable(sItem as TextBox)sItem.borderwidth=unit.point(1)sItem.Backcolor=System.Drawing.Color.WhitesItem.BorderStyle=BorderStyle.SolidsItem.ReadOnly="False"End SubSub doChanged(Source as Object, E as EventArgs)if chkEdit.Checked ="True" thenMakeReadOnly(txtFname)MakeReadOnly(txtLname)chkEdit.Text="Make Editable"elseMakeEditable(txtFname)MakeEditable(txtLname)chkEdit.Text="Make Read-Only/Non-Editable"End IfEnd Sub</script><html><head><meta name="GENERATOR" Content="ASP Express 3.2"><title>Switch Between Editable and Read-Only</title></head><body><form id="form1" Runat="server"><div style="background:#FFFAF0" style="BORDER-RIGHT: #000000 1px solid;BORDER-LEFT:#000000 1px solid; BORDER-TOP:#000000 1px solid;BORDER-BOTTOM:#000000 1px solid"> <br> First Name: <asp:TextBox id="txtFname"Bordercolor="black"BorderWidth="1"Text="Tom"Runat="server" /><br> Last Name: <asp:TextBox id="txtLName"Bordercolor="black"BorderWidth="1"Text="Landry"Runat="server" /><p><asp:Checkbox Text="Make Read-Only/Non-Editable"id="chkEdit"AutoPostBack="true"OnCheckedChanged="doChanged"Runat="server" /><br> </div></form></body></html>