+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] التنقل بين الصور المصغرات باستخدام اداه axImgadmin (/showthread.php?tid=13208)
التنقل بين الصور المصغرات باستخدام اداه axImgadmin - مجاهد نصر - 12-09-15
السلام عليكم و رحمه الله و بركاته
لدي برنامج يسمح بعرض اكثر من صورة في 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
RE: التنقل بين الصور المصغرات باستخدام اداه axImgadmin - hassan - 12-09-15
للاسف لم تمر علي هاذي الاكواد او التعامل معه لاكن اخوي هل بحثت في جوجل ؟؟؟
RE: التنقل بين الصور المصغرات باستخدام اداه axImgadmin - أبو عمر - 13-09-15
حصلت هذا المرجع ان شاء الله يفيدك
http://www.alliancegroup.co.uk/files/devguide.pdf
وان لم يفدك يكفني شرف المحاولة
RE: التنقل بين الصور المصغرات باستخدام اداه axImgadmin - الطالب - 13-09-15
سلام
يمكن لو وضعت مشروع صغير يشمل الاداه لتجربتها
ولو كان استغلالك الاداه فقط لانها تعرض مصغرات فهذه سهله يمكن عملها بدون هذه الاداه
- - اقصد كود يعرض مصغرات صور من مجلد واستعراضها
موفقين
RE: التنقل بين الصور المصغرات باستخدام اداه axImgadmin - مجاهد نصر - 15-09-15
(12-09-15, 10:29 PM)hassan كتب : للاسف لم تمر علي هاذي الاكواد او التعامل معه لاكن اخوي هل بحثت في جوجل ؟؟؟
بحثت في قوقل و جابلي نتائج باللغه الصينية و ترجمتها تقريبا معظم الاكواد دي من قوقل
مشكووووور
(13-09-15, 01:44 AM)أبو عمر كتب : حصلت هذا المرجع ان شاء الله يفيدكمشكور اخي ابو عمر حملت هذا الكتاب من زماااان بس ما لقيت فيه المطلوب
http://www.alliancegroup.co.uk/files/devguide.pdf
وان لم يفدك يكفني شرف المحاولة
RE: التنقل بين الصور المصغرات باستخدام اداه axImgadmin - مجاهد نصر - 15-09-15
(13-09-15, 10:18 AM)الطالب كتب : سلام
يمكن لو وضعت مشروع صغير يشمل الاداه لتجربتها
ولو كان استغلالك الاداه فقط لانها تعرض مصغرات فهذه سهله يمكن عملها بدون هذه الاداه
- - اقصد كود يعرض مصغرات صور من مجلد واستعراضها
موفقين
هي فيها ادوات كتيييرة جدا
هي بتعرض مصغرات بس مشكلتي التنقل بين الصور المصغرة و المشكلة الثانية هي اختيار مجموعة من الصور في المرة الواحدة
ممكن اختار مجموعة مكن الصور بس في العرض بتعرض اخر صورة مختارة تلقائيا
****كيف اخليها تعرض كل الصور المختارة مع بعض***
رابط الاداة و البرنامج في المرفقات
RE: التنقل بين الصور المصغرات باستخدام اداه axImgadmin - مجاهد نصر - 17-09-15
شباااااااب ساعدووووني