<%@ Control Language=
"VB"
AutoEventWireup=
"false"
CodeFile=
"LabelTextBox.ascx.vb"
Inherits
=
"MyTools_WebUserControl"
%>
<script runat=
"server"
>
Partial
Class
MyTools_WebUserControl
Inherits
System.Web.UI.UserControl
Protected
currentColorIndex
As
Integer
= 0
Private
mLabel
As
String
Public
Property
LabelText()
As
String
Get
Return
mLabel
End
Get
Set
(
ByVal
value
As
String
)
mLabel = value
End
Set
End
Property
Private
mText
As
String
Public
Property
Text()
As
String
Get
Return
mText
End
Get
Set
(
ByVal
value
As
String
)
mText = value
End
Set
End
Property
Private
mWidth
As
Integer
Public
Property
Width()
As
Integer
Get
Return
mWidth
End
Get
Set
(
ByVal
value
As
Integer
)
mWidth = value
End
Set
End
Property
Protected
Sub
Page_Init(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
Me
.Init
Me
.MyLabel.Text = LabelText
Me
.MyTextBox.Text = Text
Me
.MyTextBox.Width = Width
End
Sub
End
Class
</script>
<asp:Table ID=
"Table1"
runat=
"server"
style=
"float: left;"
>
<asp:TableRow>
<asp:TableCell>
<asp:Label ID=
"MyLabel"
runat=
"server"
CssClass=
"Label"
Text=
"Label"
></asp:Label>
<br />
<asp:TextBox ID=
"MyTextBox"
Wrap=
"true"
Width=
"40px"
Text=
""
runat=
"server"
></asp:TextBox>
</asp:TableCell>
</asp:TableRow>
</asp:Table>