User796787171 posted
Good evening ASP experts,
I have created a control, an ASCX file, and created several properties so that I can change the text of several lavels in the control. This is all working well. My problem is that I need to add a property to change the location of the control
on the webpage. The control is wrapped in a <div> and its CSS has ; top:0px: left:0px. this locks the control in the upper left corner of the webpage. I don't know how to add a property that will let me modify the top
and left values. Any assistance would be greatly appreciated.
Here is the control:
<%@ Control Language="VB" AutoEventWireup="false" CodeFile="NumberFamily.ascx.vb"
Inherits="UserControls_NumberFamily" %>
<style type="text/css">
.family
{
font-family: Symbol;
font-size: 80px;
;
top: 0px;
left: 0px;
}
.op1
{
;
z-index: 1;
left: 45px;
top: -8px;
text-align: center;
width: 70px;
}
.op2
{
;
z-index: 1;
left: 185px;
top: -8px;
text-align: center;
width: 70px;
}
.rslt
{
;
z-index: 1;
left: 115px;
top: 120px;
text-align: center;
width: 70px;
}
.oper
{
;
z-index: 1;
left: 115px;
top: 45px;
text-align: center;
font-weight: bold;
font-family: Symbol;
width: 70px;
}
.img
{
;
top: 0px;
left: 0px;
}
.lbl
{
width: 70px;
font-size: 70px;
}
</style>
<div id="Family" class="family">
<div id="Labels" class="lbl">
<asp:Label ID="lbl1" runat="server" Text="a" CssClass="op1"></asp:Label>
<asp:Label ID="lbl2" runat="server" Text="a" CssClass="op2"></asp:Label>
<asp:Label ID="lbl3" runat="server" Text="a" CssClass="rslt"></asp:Label>
<asp:Label ID="lbl4" runat="server" Text="a" CssClass="oper"></asp:Label>
</div>
<asp:Image ID="img1" runat="server" CssClass="img" ImageUrl="~/UserControls/Famly.png" />
</div>
and the code behind.
Imports System.Drawing
Partial Class UserControls_NumberFamily
Inherits System.Web.UI.UserControl
''' <summary>
''' This control displays either an Addition or Multiplication family. The family consists of 2 operands,
''' a resultant and an operation, either addition or multiplication. The operands and resultant are strings
''' that can be read or written as control properties.
''' </summary>
''' <remarks></remarks>
'''
Enum FamilyType
Addition
Multiplication
End Enum
Dim Mult As String = "´"
Dim Plus As String = "+"
Dim _Location As Point = New Point(0, 0)
''' <summary>
''' Reads and Writes the value of Operand1.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property Operand1() As String
Get
Return lbl1.Text
End Get
Set(ByVal value As String)
lbl1.Text = value
End Set
End Property
''' <summary>
''' Reads and Writes the value of Operand2.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property Operand2() As String
Get
Return lbl2.Text
End Get
Set(ByVal value As String)
lbl2.Text = value
End Set
End Property
''' <summary>
''' Reads and Writes the value of the Resultant.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property Resultant() As String
Get
Return lbl3.Text
End Get
Set(ByVal value As String)
lbl3.Text = value
End Set
End Property
''' <summary>
''' Reads and Writes the value of Operation.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property Operation() As FamilyType
Get
If lbl4.Text = Plus Then
Return FamilyType.Addition
Else
Return FamilyType.Multiplication
End If
End Get
Set(ByVal value As FamilyType)
If value = FamilyType.Addition Then
lbl4.Text = Plus
Else
lbl4.Text = Mult
End If
End Set
End Property
''' <summary>
''' Reads and writes the Location of the NumberFamily control
''' </summary>
''' <value>Location as a point</value>
''' <returns></returns>
''' <remarks></remarks>
Public Property Location() As Point
Get
Return _Location
End Get
Set(ByVal value As Point)
_Location = value
' *** what goes here to modify the CSS?
End Set
End Property
Public WriteOnly Property Op1Color() As Color
Set(ByVal value As Color)
lbl1.ForeColor = value
End Set
End Property
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsCallback Then
End If
End Sub
End Class
