Olá pessoal,
Estou querendo implementar dentro de um DataGrid um SlideShow. Estou tentando fazer como descrito abaixo, mas não está me retornando resultado algum.
1º) SlideService:
Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
' To allow this Web Service to be called from script, using ASP.NET AJAX, uncomment the following line.
' <System.Web.Script.Services.ScriptService()> _
<WebService(Namespace:="http://tempuri.org/")> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Public Class SlidesService
Inherits System.Web.Services.WebService
Private Imagem As MDI.objProdutosImagem
<WebMethod()> _
Public Function GetSlides(ByVal pProduto As WebControls.Label) As AjaxControlToolkit.Slide()
Dim Ds As Data.DataSet
Dim pTeste As String
Ds = Imagem.Consultar(" Produto_ID = " & pProduto.Text, "")
Dim MySlide(Ds.Tables(0).Rows.Count) As AjaxControlToolkit.Slide
For I As Integer = 0 To Ds.Tables(0).Rows.Count - 1
MySlide(I) = New AjaxControlToolkit.Slide("~/arquivos/" & _
Ds.Tables(0).Rows(0)("PImagem_Nome"),
Ds.Tables(0).Rows(0)("PImagem_Titulo"),
Ds.Tables(0).Rows(0)("PImagem_Comentario"))
pTeste = Ds.Tables(0).Rows(0)("PImagem_Nome")
Next
Return MySlide
End Function
End Class
2º) Página ASPX:
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="produtos.aspx.vb" Inherits="cliente_produtos" %>
<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title></title>
<link href="../estilos.css" rel="stylesheet" type="text/css" />
</head>
<body>
<form id="form1" runat="server">
<div>
<div style="margin-bottom:20px;"><h1>
<asp:ScriptManager ID="ScriptManager1" runat="server">
</asp:ScriptManager>
LISTA DE PRODUTOS</h1></div>
<div>
<div>Selecione uma categoria:</div>
<div style="margin-bottom:20px;"><asp:DropDownList ID="ddlCategoria" runat="server"
AutoPostBack="True" DataTextField="Categoria_Nome"
DataValueField="Categoria_ID" CssClass="campos1"></asp:DropDownList>
</div>
<div>
<asp:DataGrid ID="DataGrid1" runat="server" AutoGenerateColumns="False"
CssClass="grid">
<AlternatingItemStyle CssClass="grid alternate" />
<Columns>
<asp:TemplateColumn>
<ItemTemplate>
<div style="font-size:16px; font-weight:bold;">
</div>
<div style="padding:10px 0px 10px 10px;">
<table border="0" cellpadding="0" cellspacing="0" style="width:100%;">
<tr>
<td width="60%">
<asp:Label ID="gLbCodProduto" runat="server" Text='<%# DataBinder.Eval(Container, "DataItem.Produto_ID") %>' Visible="False"></asp:Label>
<div style="font:normal normal bold 16px; "><asp:Label ID="gLbProduto" runat="server" Text='<%# DataBinder.Eval(Container, "DataItem.PRODUTO") %>'></asp:Label></div>
</td>
<td>
<div style="width: 25px">
</div>
</td>
<td width="40%">
<div><asp:Image ID="Image1" runat="server" Height="300px"
style="border:solid 1px black; " Width="277px" /></div>
<div style="text-align:center;">
<asp:ImageButton ID="BtnPrimeiro" runat="server" ImageUrl="~/imagens/primeiro.png" />
<asp:ImageButton ID="BtnPlay" runat="server" ImageUrl="~/imagens/play.png" />
<asp:ImageButton ID="BtnProximo" runat="server" ImageUrl="~/imagens/proximo.png" />
</div>
<div><asp:SlideShowExtender ID="SlideShowExtender1" runat="server"
TargetControlID="Image1"
SlideShowServicePath="SlidesService.asmx"
SlideShowServiceMethod="GetSlides(gLbCodProduto)"
AutoPlay="true"
ImageDescriptionLabelID="gLbTituloImg"
NextButtonID="BtnProximo"
PreviousButtonID="BtnPrimeiro"
PlayButtonID="BtnPlay"
/>
</div>
</td>
</tr>
</table>
</div>
</ItemTemplate>
</asp:TemplateColumn>
</Columns>
</asp:DataGrid></div>
</div>
</div>
</form>
</body>
</html>
3º) Codigo VB:
Partial Class cliente_produtos
Inherits System.Web.UI.Page
Private Categoria As New MDI.objCategorias
Private Produto As New MDI.objProdutos
Private Imagem As New MDI.objProdutosImagem
Private Sub PovoaCategoria()
Dim Ds As Data.DataSet
Ds = Categoria.Consultar("", "")
ddlCategoria.DataSource = Ds
ddlCategoria.DataBind()
ddlCategoria.Items.Insert(0, New ListItem("--SELECIONE--", "0"))
End Sub
Private Sub PovoaProduto()
Dim Ds As Data.DataSet
Ds = Produto.Consultar(" Categoria_ID = " & ddlCategoria.SelectedValue, "")
DataGrid1.DataSource = Ds
DataGrid1.DataBind()
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
PovoaCategoria()
End If
End Sub
Protected Sub ddlCategoria_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlCategoria.SelectedIndexChanged
PovoaProduto()
End Sub
End Class
Como posso corrigir esse problema?
Grato,
Ilano.
