imagepickercontrol.ascx.vb

C#语言制作asp.net网上商店的


Partial Class Admin_Controls_ImagePickerControl
    Inherits System.Web.UI.UserControl
    Public _ImageFolder As String = "Image_Shop"
    Public _ImageSize As String = "120,120"


    <DefaultSettingValue("Image_Shop"), SettingsDescription("默认打开的文件夹子")> Public Property ImageFolder() As String
        Get
            Return _ImageFolder
        End Get
        Set(ByVal value As String)
            _ImageFolder = value
        End Set
    End Property

    <DefaultSettingValue("120,120"), SettingsDescription("缩略图的大小")> Public Property ImageSize() As String
        Get
            Return _ImageSize
        End Get
        Set(ByVal value As String)
            _ImageSize = value
        End Set
    End Property


    Public Function GetSelectedImage() As String
        Dim imgName As String = Request.Form(ClientID & "_imgHolder").ToString()
        Try
            If imgName.IndexOf(_ImageFolder) = -1 Then Return ""
            Return imgName.Substring(imgName.IndexOf(_ImageFolder))
        Catch ex As Exception
            Return ""
        End Try
    End Function

    Public Sub SetImage(ByVal imageUrl As String)
        '        imgPic.ImageUrl = String.Format("~/IHttpHandler/ImageHandler.ashx?Imagepath=~/{0}&size=150,150", imageUrl)
        If imageUrl.Length = 0 Then imageUrl = "Images/ImagePicker/noimage.gif"
        imgPic.ImageUrl = String.Format("~/{0}", imageUrl)
    End Sub
    Protected Function GetImage() As String
        Dim sImage As String = imgPic.ImageUrl
        'sImage = System.IO.Path.GetFileName(sImage)
        'Return String.Format("~/IHttpHandler/ImageHandler.ashx?Imagepath=~/{0}&size=100,100", sImage)
        Return sImage
    End Function


End Class