Массив Picturebox част 2

[mirqobil]

Здраствуйти я на етом форуме увидел тему Массив Picturebox я заинтирисавался и сделал токую веш которий указивайеш папку и он мне все картинки витаскивайет от туда, ошибак нет но йесли в том указином папке многа картинок то на ета уходит очен многа времини и памити, мне интересно можнали ета сделат какта падругому или изминит етот код штоби она работала бистрейе

Код: Выделить всё

Try

            If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
                Dim _dirInfo As New System.IO.DirectoryInfo(FolderBrowserDialog1.SelectedPath)
                Dim _Files() As System.IO.FileInfo = _dirInfo.GetFiles(ExFiles)
                Dim _file As System.IO.FileInfo
                Dim bit As Bitmap

                If Not (_Files Is Nothing) Then
                    For Each _file In _dirInfo.GetFiles("*.jpg")
                        Dim _pic As System.Windows.Forms.PictureBox

                        Static x As Integer
                        Static y As Integer

                        _pic = New PictureBox

                        _pic.SetBounds(x, y, 100, 100)
                        _pic.BorderStyle = BorderStyle.Fixed3D
                        _pic.SizeMode = PictureBoxSizeMode.StretchImage
                        _pic.Image = Image.FromFile(_file.FullName)

                        bit = New Bitmap(_file.FullName)
                        _pic.Name = _file.FullName
                        y += 100
                        If _pic.Bounds.Y >= Me.Height Then
                            x += 100
                            y = 0
                        End If
                        Me.Controls.Add(_pic)
                        AddHandler _pic.DoubleClick, AddressOf _click
                    Next
                    Me.AutoScroll = True

                End If
            End If
        Catch ex As Exception
            Exit Sub
        End Try

[vvs_adm]

А это программы такие специальные есть для изменения текста до неузнаваемости или долгие годы упорной тренировки дали о себе знать? Тогда почему текст программы не в таком же стиле?

[GSerg]

mirqobil, если русский язык для тебя не родной, укажи это в профиле. Иначе забаним нафиг.

[Sebas]

GSerg

Плюс зажал внаглую!
Сносить над такие темы.

[mirqobil]

у меня возникла проблема и я решил што может ктонибут мне паможет а ви здес гаварите о какихта громатических ошибках и всё такойе но вит смысл теми панятен но йесли вапше не панятно то вазмите Код и паставте в обработчик и всё паймёте

[GSerg]

mirqobil, я ещё раз говорю, если русский язык для тебя не родной, сходи в свой профиль на этом форуме и заполни графу "Откуда". Это позволит избежать массы проблем типа этой.

А в коде каждая картинка загружается автором кода два раза. Видимо, ему так надо.