HiI’ve previously posted in the forum regarding this errand but canceled it because of uncertainty regarding an error or not. Unfortunately I must return on the issue.
I have a “Slide Image Control” passing images in declared interval of seconds, with automatic start and a continuously loop.
I’m using a repeater to populate the viewer; data regarding variables controlling the control itself is passed from the SQL-server. All works fine, no issues at all, that far…
However something odd occurs. Without reporting any errors, the slide viewer halts as expected according to declared interval in seconds, on each image in the presentation sorting order that has an odd value. But each image that represents an even value in the sorting order jumps immediately to the next image with an odd value.
I’ve tried to figure out what the reason is but is not able to find a conclusion. To me the code attached are pretty straight forward but complex in the matter of getting images from the web server and “meta-data” from the SQL-server as well as using variables in the html-context.
As I can’t find any errors, and have had a deep analyze into it before posting this errand, I suspect that it might be a bug-fix, alternatively an understanding issue out of my scope right now.
Please advise a hint on how to find a work around.
Thanks!
Best regards,
ITMA___________________
<%@ Control Language="VB" AutoEventWireup="false" CodeFile="Slide.ascx.vb" Inherits="Controls_Default_Slide" %>
<link id="lnk" runat="server" href="~/Styles01.css" rel="stylesheet" type="text/css" />
<div>
<asp:TextBox ID="txtColID" runat="server" Enabled="False" Visible="false"></asp:TextBox>
<asp:TextBox ID="txtHeading" runat="server" Enabled="False" Visible="false"></asp:TextBox>
<asp:TextBox ID="txtUsp" runat="server" Enabled="False" Visible="false"></asp:TextBox>
<asp:TextBox ID="txtUrl" runat="server" Enabled="False" Visible="false"></asp:TextBox>
<asp:TextBox ID="txtEditor" runat="server" Enabled="False" Visible="false"></asp:TextBox>
<asp:TextBox ID="txtHeight" runat="server" Enabled="False" Visible="False"></asp:TextBox>
</div>
<eo:Slide runat="server" ID="Slide1" NavPanelStyle="slide_nav_panel"
ItemNumberStyle="slide_item_number" BigItemPanelStyle="slide_big_item_panel"
Width="100%" BigItemHeight="0">
<BigItemTemplate>
<div id="divImage" runat="server" style='<%#Eval("divImageStyle")%>' >
<img src='<%#ResolveUrl(Eval("image").ToString())%>' alt='<%#Eval("title")%>' width='<%#Eval("WebImageWidth")%>px' height='<%#Eval("WebImageHeight")%>px' />
</div>
<div id="divPanel" runat="server" style='<%#Eval("divPanelStyle")%>' >
<asp:Panel ID="Panel1" runat="server" ScrollBars="auto" Width='<%#Eval("WebPanelWidth").ToString()%>' Height='<%#Eval("WebPanelHeight").ToString()+20%>' >
<div>
<p class="hs2"><%#Eval("title")%></p>
<p class="ps2"><%#Eval("summary")%></p>
</div>
</asp:Panel>
</div>
<div id="divLinks" runat="server" style="padding-right:1%;" visible='<%#Eval("GetUrl")%>'>
<div id="divGetDocu" runat="server" visible='<%#Eval("GetUrl")%>' class="tbStyle02td00" style="height:15px;float:left;">
<asp:HyperLink ID="hplGetDocu" runat="server" ForeColor="DarkViolet" ToolTip='<%#Eval("TextDoc")%>' Text='<%#Eval("TextDoc")%>' NavigateUrl='<%#Eval("TextUrl")%>'></asp:HyperLink>
</div>
</div>
</BigItemTemplate>
</eo:Slide>
_____________________________________
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports System.Linq
Imports EO.Web
Partial Class Controls_Default_Slide
Inherits System.Web.UI.UserControl
Dim db_A01 As New A01_UsersNavigateContext
Dim useAppClass00 As New AppClass_00
Public xWidth, xHeight, xPnlHeight As Integer
Public xGetDocu, xUrlDocu As Boolean
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Try
Dim xWebSlideNameID = (From a In db_A01.Y01NavPagesStructures Where a.FolderID = CDec(Session("LoadPart")) AndAlso a.ColumnID = txtColID.Text Select a.WebSlideName_ID).First
'Pamphlet show
Dim PrelSlideShow = (From a In db_A01.X03WebSlideDatas Where a.WebSlideName_ID = xWebSlideNameID Select a).First
Session("WebSlideNameID") = xWebSlideNameID
If CBool(Session("ImageViewer")) = False Or Len(Session("ImageViewer")) = 0 Or PrelSlideShow.ddl = 80 Then
Try
xHeight = CInt(Left(txtHeight.Text, InStr(txtHeight.Text, ",") - 1))
xWidth = CInt(Session("MidWidth"))
Catch ex As Exception
Err.Clear()
xHeight = 0
xWidth = 0
End Try
Dim SlideMeta = (From a In db_A01.X03WebSlideNames Where a.WebSlideName_ID = xWebSlideNameID Select a).First
Slide1.AutoLoop = SlideMeta.WebSlideLoop = 1
Slide1.AutoStart = SlideMeta.WebSlideStart = 1
Slide1.Interval = 1000 * SlideMeta.WebSlideSeconds
Slide1.BigItemHeight = xHeight - 20
Slide1.BigItemWidth = xWidth
Dim SlideShow = From a In db_A01.X03WebSlideDatas Where a.WebSlideName_ID = xWebSlideNameID Select a Order By a.NewSortOrder
Slide1.DataSource = SlideShow
Slide1.DataBind()
Else
Slide1.Visible = False
End If
Catch ex As Exception
Err.Clear()
End Try
End Sub
End Class
_______________________________________
//ITMA