(15-09-15, 02:41 PM)أبو عمر كتب : طيب ليه ما لضيفهم في imagelist وبعدين تتعامل معاهم زي ما تحب
PHP كود :
Me.OpenFileDialog1.Multiselect = True
OpenFileDialog1.Filter = "Image Files(*.BMP;*.JPG;*.GIF;png)|*.BMP;*.JPG;*.GIF;*.png|All files (*.*)|*.*"
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
For Each file In OpenFileDialog1.FileNames
ImageList1.Images.Add(Image.FromFile(file))
Next
مشكور اخي ابو عمر علي سرعة الرد اولا الصور هي غير ثابتة
ثانيا كنت اريد الكود للاستخدام داخل اداة ImgAdmin1 الموضوح في هذا الرابط
http://vb4arb.com/vb/thread-13208.html
لدي هذا الكود
ممكن تعملي احضار الصور باستخدام مصفوفة
Dim intFileType As Integer
Dim iResponse, i As Integer
Dim filname As String
Dim strPathName As String
'AxImgThumbnail1.DisplayThumbs()
AxImgEdit1.ClearDisplay()
Me.ofd.Multiselect = True
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
'AxImgThumbnail1.ClearThumbs()
For Each strfile In ofd.FileNames
'ImgAdmin1.CancelError = False
ImgAdmin1.Image = strfile
'ImgThumbArray(i).Image = ImgAdmin1.Image
'ImgAdmin1.Append(strfile, i, 1)
AxImgThumbnail1.Image = ImgAdmin1.Image
'AxImgThumbnail1.AutoSelect = True
'AxImgThumbnail1.EnableDragDrop = 15
'Get the thumbnail page count
'AxImgThumbnail1.DisplayThumbs()
'AxImgThumbnail1.DeselectAllThumbs()
i += 1
Next
Else
MessageBox.Show(AxImgEdit1.PageCount.ToString())
AxImgThumbnail1.SelectAllThumbs()
If Err.Number = CANCEL_PRESSED Then '32755 = Cancel pressed
Exit Sub
ElseIf ImgAdmin1.StatusCode <> 0 Then
MsgBox(Err.Description & " (ImgAdmin error " & _
Hex(ImgAdmin1.StatusCode) & ")", vbCritical)
Exit Sub
End If
AxImgEdit1.Refresh()
End If