[مجاهد نصر]

السلام عليكم و رحمه الله و بركاته
لدي برنامج يسمح بعرض اكثر من صورة في AxImgThumbnail1  اريد التنقل بين الصور و عرضها في AxImgEdit1 و امتداد الصور  هو .tiff
كود زر import:-

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

الكود التالي موجود عند الضغط علي AxImgThumbnail1 و هي الشاشة التي تعرض عليها الصور مصغرة



Private Sub AxImgThumbnail1_ClickEvent(ByVal sender As System.Object, ByVal e As AxThumbnailLibCtl._DImgThumbnailEvents_ClickEvent) Handles AxImgThumbnail1.ClickEvent
'On Error Resume Next
Dim s As Object
'AxImgEdit1.ClearDisplay()
's = AxImgThumbnail1.SelectedThumbCount



AxImgEdit1.Image = AxImgThumbnail1.Image



'AxImgEdit1.Image = AxImgEdit1.DisplayBlankImage
AxImgEdit1.Display()
AxImgEdit1.FitTo(0)

AxImgEdit1.Refresh()


End Sub