Imports System
Partial Class UserControl_JJCSC
    Inherits System.Web.UI.UserControl

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            'txtValidate.Value = 0
            'Response.Write(CreateMessageConfirm(Me, "Are you sure", "strkeyval"))
            'txtCountry.Focus()
            txtCountry.Text = "--Country--"
            txtState.Text = "--State--"
            txtCity.Text = "--City--"
            txtCountry.Attributes.Add("onkeyup", "return txtCountryKeyUp(this,event);")
            txtCountry.Attributes.Add("onkeypress", "return txtCountryKeyPress(this,event)")
            txtCountry.Attributes.Add("onfocus", "return txtCountryOnFocus(this);")
            txtCountry.Attributes.Add("onblur", "return txtCountryOnBlur(this);")
            txtCountry.Attributes.Add("onkeydown", "return txtCountryKeyDown(this,event);")

            txtState.Attributes.Add("onkeyup", "return txtStateKeyUp(this,event);")
            txtState.Attributes.Add("onkeypress", "return txtStateKeyPress(this,event);")
            txtState.Attributes.Add("onfocus", "return txtStateOnFocus(this);")
            txtState.Attributes.Add("onblur", "return txtStateOnBlur(this);")
            txtState.Attributes.Add("onkeydown", "return txtStateKeyDown(this,event);")

            txtCity.Attributes.Add("onkeyup", "return txtCityKeyUp(this,event);")
            txtCity.Attributes.Add("onkeypress", "return txtCityKeyPress(this,event);")
            txtCity.Attributes.Add("onfocus", "return txtCityOnFocus(this);")
            txtCity.Attributes.Add("onblur", "return txtCityOnBlur(this);")
            txtCity.Attributes.Add("onkeydown", "return txtCityKeyDown(this,event);")

            Div1.Style.Add("visibility", "hidden")

            td11.Style.Add("width", Width1)
            td12.Style.Add("width", Width1)
            td13.Style.Add("width", Width1)
            td11.Style.Add("padding-right", PaddingWidth1)
            td12.Style.Add("padding-right", PaddingWidth1)
            td13.Style.Add("padding-right", PaddingWidth1)

            td21.Style.Add("width", Width2)
            td22.Style.Add("width", Width2)
            td23.Style.Add("width", Width2)
            Div1.Style.Add("width", DivWidth)

        End If
    End Sub

    Public _PaddingWidth1 As String
    Public Property PaddingWidth1() As String
        Get
            Return _PaddingWidth1
        End Get
        Set(ByVal value As String)
            _PaddingWidth1 = value
        End Set
    End Property

    Public _Width1 As String
    Public Property Width1() As String
        Get
            Return _Width1
        End Get
        Set(ByVal value As String)
            _Width1 = value
        End Set
    End Property

    Public _Width2 As String
    Public Property Width2() As String
        Get
            Return _Width2
        End Get
        Set(ByVal value As String)
            _Width2 = value
        End Set
    End Property

    Public _DivWidth As String

    Public Property DivWidth() As String
        Get
            Return _DivWidth
        End Get
        Set(ByVal value As String)
            _DivWidth = value
        End Set
    End Property

End Class