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。

将包含文件夹中的所有图像加载到图像滑块

1 个答案: