ModuleMaster/slideshow/slideshow.aspx.vb - main - ivan/ModMas

ModuleMaster/slideshow/slideshow.aspx.vb
66 строк3 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6
Imports System.Data
Imports sharedClasses.dbFunctions

Partial Class slideshow
    Inherits System.Web.UI.Page

    Protected Sub btnGo_Click(sender As Object, e As System.EventArgs) Handles btnGo.Click
        Dim sqlf As New SqlFunctions
        Dim dt As DataTable = sqlf.GetData("SELECT * FROM [UserModules].[user].[slide_show] WHERE Id = " & ddlSlideshowname.SelectedValue)
        If Not IsNothing(dt) Then
            For Each r As DataRow In dt.Rows
                Dim refreshrate As String = r("REFRESH_RATE")
                If IsNumeric(refreshrate) Then
                    Timer1.Interval = Convert.ToInt16(refreshrate) * 1000
                End If
                Dim resolution As String = r("SCREEN_RESOLUTION")
                If resolution.ToUpper.Contains("X") Then
                    Dim width As String = resolution.ToUpper.Split("X")(0)
                    Dim height As String = resolution.ToUpper.Split("X")(1)
                    If IsNumeric(width) Then
                        Image1.Width = Unit.Pixel(width)
                    End If
                    If IsNumeric(height) Then
                        Image1.Height = Unit.Pixel(height)
                    End If
                End If
            Next
        End If

        dt = sqlf.GetData("SELECT id FROM [UserModulesAttachments].[user].[slide_show] WHERE DELETED='N' and  parentId = " & ddlSlideshowname.SelectedValue & " ORDER BY id")
        Dim s As String = ""
        If Not IsNothing(dt) Then
            For Each r As DataRow In dt.Rows
                s &= r("ID") & ";"
            Next
        End If

        hfIdList.Value = s
        hfCurrentID.Value = s.Split(";")(0)
        Image1.ImageUrl = "http://serkweb.serk.lan:8080/ModuleMaster/handlers/getfile.ashx?storage=[UserModulesAttachments].[user].[SLIDE_SHOW]&id=" & hfCurrentID.Value
        Timer1.Enabled = True
        controlPanel.Visible = False
        btnStop.Visible = True
    End Sub

    Protected Sub Timer1_Tick(sender As Object, e As System.EventArgs) Handles Timer1.Tick
        Dim ss() As String = hfIdList.Value.Split(";")
        For Each s As String In ss
            If s <> "" Then
                If Convert.ToInt16(s) > Convert.ToInt16(hfCurrentID.Value) Then
                    hfCurrentID.Value = s
                    Exit For
                End If
            Else
                hfCurrentID.Value = ss(0)
            End If
        Next
        Image1.ImageUrl = "http://serkweb.serk.lan:8080/ModuleMaster/handlers/getfile.ashx?storage=[UserModulesAttachments].[user].[SLIDE_SHOW]&id=" & hfCurrentID.Value
    End Sub

    Protected Sub Button1_Click(sender As Object, e As System.EventArgs) Handles btnStop.Click
        Timer1.Enabled = False
        controlPanel.Visible = True
        btnStop.Visible = False
    End Sub
End Class