图片跑马灯

在IE浏览时，图片跑马是很流畅的，但在生成动画时，有点跳。

本功能应用Jquery喔，另外Insus.NET把它写在一个用户控件上，在页面需要显示时，拉进去即可。

aspx:

View Code <%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>

<%@ Register Src="SiteControls/SlideMarquee.ascx" TagName="SlideMarquee" TagPrefix="uc1" %>



    
    


    

用户控件有写了三个属性，Speed设置跑马灯的滑动速度，Width跑马灯图片的宽度，Height是跑马灯图片的高度。

用户控件：

View Code <%@ Control Language="VB" AutoEventWireup="false" CodeFile="SlideMarquee.ascx.vb"
    Inherits="SiteControls_SlideMarquee" %>

    *
    {
        margin: 0;
        padding: 0;
    }

    img
    {
        border: none;
    }

    #slide
    {
        overflow: hidden;
    }

    ul
    {
        list-style: none;
    }

    li
    {
        float: left;
    }

    .slideul1
    {
        width: 3999px;
    }


    
                   
                           
            
    

从上面的代码中，Insus.NET有用了两个asp:Literal 控件，作为可传入参数。一个将是显示图片，另一个是传入跑马灯滑动速度。

xxx.asc.vb:

View Code imports System.IO
imports System.Web.UI.HtmlControls
imports System.Xml
imports Insus.NET

Partial Class SiteControls_SlideMarquee
    Inherits System.Web.UI.UserControl
    Private _Speed As Integer = 10
    Private _Width As Integer = 80
    Private _Height As Integer = 60

    Public WriteOnly Property Speed() As Integer
        Set(value As Integer)
            _Speed = value
        End Set
    End Property

    Public WriteOnly Property Width() As Integer
        Set(value As Integer)
            _Width = value
        End Set
    End Property

    Public WriteOnly Property Height() As Integer
        Set(value As Integer)
            _Height = value
        End Set
    End Property

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        Me.LiteralJsCode.Text = _Speed

        Dim di As New DirectoryInfo(HttpContext.Current.Server.MapPath(Insusbase.SlideMarqueeImageDirectory))
        Dim fiArray As FileInfo() = di.GetFiles()
        Dim s As String = ""
        For i As Integer = 0 To fiArray.Length - 1
            s &= "