(ASP.Net AJAX SlideShow Extender control) - Khi cần trình diễn các hình ảnh cho một sản phẩm mới nào đó, người lập trình thường nghĩ ngay đến việc sử dụng Slideshow. Với một không gian phạm vi hẹp người xem vẫn có thể xem và chiêm ngưỡng được một loạt các hình ảnh ở những góc cạnh khác nhau. Hiện có rất nhiều các Plugin hay Jquery hỗ trợ công việc này, tuy nhiên hôm nay Thủ thuật lập trình sẽ giới thiệu với các bạn cách sử dụng AjaxControlToolkit để tạo các Slideshow. Với việc sử dụng Slideshow AjaxControlToolkit người lập trình có thể dễ dàng thiết lập thời gian tự động chuyển slide, có tự động lặp lại không hoặc có tự động chạy không?
- B1: Tạo Bảng SlideShows có cấu trúc phía dưới trong CSDL SQL Server.
STT | Tên trường | Kiểu trường | Ghi chú |
1 | ItemID | Int | Trường tự tăng |
2 | Title | nvarchar(250) | |
3 | Description | nvarchar(500) | Mô tả |
4 | URL | nvarchar(350) | |
5 | SortOrder | Int | Thứ tự sắp xếp |
6 | IsVisible | bit |
- B2: Nhập dữ liệu cho bảng SlideShows
- B3: Tạo stored procedure trong SQL Server
CREATE procedure[dbo].[Pro_SlideShow_List]
@IsVisible bit
as
declare@strSQL nvarchar(1000)
declare @strWhere nvarchar(500)
declare @strOrder nvarchar (50)
set @strSQL= 'Select * from SlideShows'
set @strWhere =' where 1=1'
if @IsVisible=0
set @strWhere= @strWhere +' and (IsVisible=0 Or IsVisible Is Null)'
set @strOrder =' Order by SortOrder, Title'
set @strSQL=@strSQL+@strWhere+@strOrder
print @strSQL
exec sp_executesql @strSQL
- B4: Tạo Project trong Microsoft Visual Studio 2010
Trong Visual Studio tạo 1 Class có tên: Utility và nhập đoạn Code phía dưới cho Class này.
Namespace DynamicAJAXSlideShow
Public Class SqlDataProvider
#Region "Membres Prives"
Shared _IsError As Boolean = False
Private _connectionString AsString
#End Region
#Region "Constructeurs"
Public Sub New()
Try
_connectionString = ConfigurationManager.ConnectionStrings("SiteSqlServer").ConnectionString
_IsError = False
Catch ex As Exception
_IsError = True
End Try
End Sub
#End Region
#Region "Proprietes"
Public ReadOnly Property ConnectionString() AsString
Get
Return _connectionString
End Get
End Property
#End Region
#Region "Functions"
Public FunctionFillTable(ByVal sql AsString) As DataTable
Try
Dim tb AsNew DataTable
Dim adap AsNew SqlDataAdapter(sql, _connectionString)
adap.Fill(tb)
Return tb
Catch ex As Exception
Return Nothing
End Try
End Function
Public FunctionFillTable(ByVal ProcName As String, ByVal ParamArrayPara() As ObjectPara) As DataTable
Try
Dim tb AsNew DataTable
Dim adap AsNew SqlDataAdapter(ProcName, _connectionString)
adap.SelectCommand.CommandType = CommandType.StoredProcedure
If NotPara Is NothingThen
For Eachp As ObjectParaIn Para
adap.SelectCommand.Parameters.Add(New SqlParameter(p.Name, p.Value))
Next
End If
adap.Fill(tb)
Return tb
Catch ex As Exception
Return Nothing
End Try
End Function
#End Region
End Class
Public Class ObjectPara
Dim _name As String
Dim _Value As Object
Sub New(ByVal Pname As String, ByVal PValue As Object)
_name = Pname
_Value = PValue
End Sub
Public PropertyName() As String
Get
Return _name
End Get
Set(ByVal value As String)
_name = value
End Set
End Property
Public PropertyValue() As Object
Get
Return _Value
End Get
Set(ByVal value As Object)
_Value = value
End Set
End Property
End Class
End Namespace
Chú ý: Thuộc tính SiteSqlServer chính là chuỗi Connect với SQL Server trong file Web.Config
- B5: Download thư viện AjaxControlToolkit tại địa chỉ:
http://ajaxcontroltoolkit.codeplex.com/downloads/get/116534
- B6: Giải nén AjaxControlToolkit.Binary.NET4, và References Ajaxcontroltoolkit.dll trong thư mục vừa giải nén vào Project
http://ajaxcontroltoolkit.codeplex.com/downloads/get/116534
- B6: Giải nén AjaxControlToolkit.Binary.NET4, và References Ajaxcontroltoolkit.dll trong thư mục vừa giải nén vào Project
- B7: Mở file Default.aspxdưới dạng HTML và nhập mã HTML
<%@ PageTitle="Dynamic ASP.Net AJAX SlideShow Extender Control" Language="vb" MasterPageFile="~/Site.Master" AutoEventWireup="false" CodeBehind="Default.aspx.vb" Inherits="DynamicAJAXSlideShow._Default" %>
<%@ RegisterAssembly="AjaxControlToolkit"Namespace="AjaxControlToolkit"TagPrefix="cc1"%>
<asp:Content ID="HeaderContent" runat="server" ContentPlaceHolderID="HeadContent">
<style type="text/css">
.slideTitle
{
font-weight:bold;
font-size:small;
font-style:italic;
}
.slideDescription
{
font-size:small;
font-weight:bold;
}
</style>
</asp:Content>
<asp:Content ID="BodyContent" runat="server" ContentPlaceHolderID="MainContent">
<cc1:ToolkitScriptManagerID="ToolkitScriptManager2"runat="server">
</cc1:ToolkitScriptManager>
<div style="text-align:center">
<asp:Label runat="Server"ID="imageTitle"CssClass="slideTitle"/><br /><br />
<asp:Image ID="imgSlide"runat="server"Width="450px"/>
<asp:Label runat="server"ID="imageDescription"CssClass="slideDescription"></asp:Label><br /><br />
<asp:Button runat="Server"ID="prevButton"Text="<<"Font-Size="Larger"/>
<asp:Button runat="Server"ID="playButton"Text="Play"Font-Size="Larger"/>
<asp:Button runat="Server"ID="nextButton"Text=">>"Font-Size="Larger"/>
<cc1:SlideShowExtender ID="slideshowextend1"runat="server"
TargetControlID="imgSlide"
SlideShowServiceMethod="ListImages"
AutoPlay="true"
PlayInterval="5000"
ImageTitleLabelID="imageTitle"
ImageDescriptionLabelID="imageDescription"
NextButtonID="nextButton"
PlayButtonText="Play"
StopButtonText="Stop"
PreviousButtonID="prevButton"
PlayButtonID="playButton"
Loop="true" />
</div>
</asp:Content>
- B8: Viết Code cho file Default.aspx
C# Code
using Microsoft.VisualBasic;
using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
using System.IO;
public class FileSystemItem
{
public FileSystemItem(FileInfo file)
{
this.Name = file.Name;
this.FullName = file.FullName;
this.Size = file.Length;
this.CreationTime = file.CreationTime;
this.LastAccessTime = file.LastAccessTime;
this.LastWriteTime = file.LastWriteTime;
}
public string Name { get; set; }
public string FullName { get; set; }
public Nullable<long> Size { get; set; }
public DateTime CreationTime { get; set; }
public DateTime LastAccessTime { get; set; }
public DateTime LastWriteTime { get; set; }
}
Imports System.IO
Imports System.Web.Services
Imports System.Web.Script.Services
Imports System.Collections.Generic
Imports AjaxControlToolkit
Namespace DynamicAJAXSlideShow
Public Class _Default
Inherits System.Web.UI.Page
#Region "WebServices"
<WebMethod()> _
<ScriptMethod()> _
Public Shared Function ListImages() AsSlide()
Dim slides As New List(Of Slide)()
Dim objSQL As New SqlDataProvider
Dim objBind As DataTable = objSQL.FillTable("Pro_SlideShow_List", New ObjectPara("@IsVisible", 1))
Dim sPath As String = ""
If Not objBind Is Nothing Then
If objBind.Rows.Count > 0 Then
For Eachrow As DataRowIn objBind.Rows
sPath = row("URL").ToString()
If sPath.EndsWith("\") Then
sPath = sPath.Remove(sPath.Length - 1)
End If
slides.Add(New Slide() With { _
.Name = row("Title").ToString(), _
.Description = row("Description").ToString(), _
.ImagePath = sPath})
Next
End If
End If
Return slides.ToArray()
End Function
#End Region
End Class
End Namespace
Chúc các bạn thành công!
Quang Bình
0 comments Blogger 0 Facebook
Post a Comment