Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1
<script language="VB" Runat="server">
2
Sub MakeReadOnly(sItem as TextBox)
3
	sItem.borderwidth=unit.point(0) 
4
	sItem.Backcolor=System.Drawing.Color.FromARGB(&H78FFFAF0)
5
	sItem.BorderStyle=BorderStyle.None
6
	sItem.ReadOnly="True"
7
End Sub
8
 
9
Sub MakeEditable(sItem as TextBox)
10
	sItem.borderwidth=unit.point(1) 
11
	sItem.Backcolor=System.Drawing.Color.White
12
	sItem.BorderStyle=BorderStyle.Solid
13
	sItem.ReadOnly="False"
14
End Sub
15
 
16
Sub doChanged(Source as Object, E as EventArgs)
17
if chkEdit.Checked ="True" then
18
	MakeReadOnly(txtFname)
19
	MakeReadOnly(txtLname)
20
	chkEdit.Text="Make Editable"
21
else
22
	MakeEditable(txtFname)
23
	MakeEditable(txtLname)
24
	chkEdit.Text="Make Read-Only/Non-Editable"
25
End If 
26
End Sub
27
</script>
28
<html>
29
<head>
30
	<meta name="GENERATOR" Content="ASP Express 3.2">
31
	<title>Switch Between Editable and Read-Only</title>
32
</head>
33
<body>
34
<form id="form1" Runat="server">
35
	<div style="background:#FFFAF0" style="BORDER-RIGHT: #000000 1px solid; 
36
		BORDER-LEFT:#000000 1px solid; BORDER-TOP:#000000 1px solid;
37
		BORDER-BOTTOM:#000000 1px solid">
38
	&nbsp;<br>
39
 		&nbsp; First Name: <asp:TextBox id="txtFname" 
40
				Bordercolor="black"
41
				BorderWidth="1"
42
				Text="Tom"
43
				Runat="server" /><br> 
44
		&nbsp; Last Name: <asp:TextBox id="txtLName" 
45
				Bordercolor="black"
46
				BorderWidth="1"
47
				Text="Landry"
48
				Runat="server" /><p>
49
		<asp:Checkbox Text="Make Read-Only/Non-Editable" 
50
			id="chkEdit" 
51
			AutoPostBack="true" 
52
			OnCheckedChanged="doChanged" 
53
			Runat="server" /><br>&nbsp; 
54
 
55
	</div>
56
</form>
57
</body>
58
</html>