Загрузите все изображения в папке содержимого в слайдер изображений

Question

Так что я беру на себя чужую работу, мне нужна помощь по загрузке всего изображения в слайдер изображений.Поэтому я помещаю все изображения в одну папку и хочу, чтобы ползунок изображения показывал все изображения в этой папке один за другим.Я могу заставить слайдер показывать только одно изображение, когда я отлаживаю код, проблема в том, что он всегда получает имя последнего изображения в папке.

В Dim str_filename я всегда получаю только имя последнего изображения.Спасибо за любую помощь.

Function Setup_Slider_photo(ByVal str_path As String, ByVal str_slider As String) As String
    Dim str_html As String = ""

    If str_path.StartsWith("file:") Then
        str_path = str_path.Remove(0, 5)
    End If
    str_path = str_path.Replace("/", "\")

    If impersonateValidUser("reportingserver", "carsem", "password") Then
        Dim file_all As ArrayList = folder_bll.show_file_list(str_path)

        Dim file_list As New ArrayList
        str_html += "<div class='camera_wrap' id='camera_wrap_1' style='height:450px;'>"
        If file_all.Count > 0 Then

            For index As Integer = 1 To 12
                file_list.Add(file_all(0).ToString.Trim)
                Dim str_file_name As String = file_list.Item(file_list.Count - 1).ToString.Trim.Substring(0, file_list.Item(file_list.Count - 1).ToString.Trim.Length - 4).Trim
                str_html += "<div data-src='" & str_path.Replace("\\carsem.com.my\filesvr\CSSFILE1\", "..\CSSFILE1\") & file_list.Item(file_list.Count - 1).ToString & "'>"
                str_html += "<div class='col-md-3 col-sm-3 col-xs-6'><a href='../Event/Event_Image.aspx?e=" & str_slider & "' target='_self' style='text-decoration: none; cursor:hand' class='btn btn-sm animated-button victoria-two'>Click To View More</a></div>"
                str_html += "</div>"
            Next



        End If
        str_html += "</div>"

        undoImpersonation()
    End If
    Return str_html
End Function

Answer 1

Вы должны использовать index вместо file_list.Count - 1 внутри цикла.