ModuleMaster/usercontrols/gridactioncontrol.ascx.vb - main - ivan/ModMas

ModuleMaster/usercontrols/gridactioncontrol.ascx.vb
101 строка3 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6
Partial Class UserControls_gridActionControl
    Inherits System.Web.UI.UserControl
    Public Property actionType As String
        Set(ByVal value As String)
            Select Case value
                Case "IMAGE"
                    Image1.Visible = True
                Case "BUTTON"
                    Button1.Visible = True
                Case "IMAGEBUTTON"
                    ImageButton1.Visible = True
                Case "LINKBUTTON"
                    LinkButton1.Visible = True
            End Select
        End Set
        Get
            If Button1.Visible Then
                Return "BUTTON"
            ElseIf ImageButton1.Visible Then
                Return "IMAGEBUTTON"
            ElseIf LinkButton1.Visible Then
                Return "LINKBUTTON"
            ElseIf Image1.Visible Then
                Return "IMAGE"
            Else
                Return "UNKNOWN"
            End If
        End Get
    End Property

    Public Property Enabled As Boolean
        Set(value As Boolean)
            Image1.Enabled = True
            Button1.Enabled = value
            ImageButton1.Enabled = value
            LinkButton1.Enabled = value
        End Set
        Get
            Return Button1.Enabled
        End Get
    End Property

    Public Property Text As String
        Set(ByVal value As String)
            Image1.ToolTip = value
            Button1.Text = value
            ImageButton1.AlternateText = value
            LinkButton1.Text = value
        End Set
        Get
            Return Button1.Text
        End Get
    End Property

    Public Property ImageUrl As String
        Set(ByVal value As String)
            ImageButton1.ImageUrl = value
            Image1.ImageUrl = value
        End Set
        Get
            Return ImageButton1.ImageUrl
        End Get
    End Property

    Public Property CommandName As String
        Set(ByVal value As String)
            Button1.CommandName = value
            LinkButton1.CommandName = value
            ImageButton1.CommandName = value
            Image1.Attributes.Add("commandname", value)
        End Set
        Get
            Return Button1.CommandName
        End Get
    End Property

    Public Property CommandArgument As String
        Set(ByVal value As String)
            Button1.CommandArgument = value
            LinkButton1.CommandArgument = value
            ImageButton1.CommandArgument = value
            Image1.Attributes.Add("commandargument", value)
        End Set
        Get
            Return Button1.CommandArgument
        End Get
    End Property

    Public Property Description As String
        Set(value As String)
            Button1.ToolTip = value
            ImageButton1.ToolTip = value
            LinkButton1.ToolTip = value
            Image1.ToolTip = value
        End Set
        Get
            Return Button1.ToolTip
        End Get
    End Property

End Class