تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] التنقل بين الصور المصغرات باستخدام اداه axImgadmin
#1
السلام عليكم و رحمه الله و بركاته
لدي برنامج يسمح بعرض اكثر من صورة في 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


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#2
للاسف لم تمر علي هاذي الاكواد او التعامل معه لاكن اخوي هل بحثت في جوجل ؟؟؟
لحمد لله رب العالمين على كل شي
الرد
تم الشكر بواسطة: الطالب
#3
حصلت هذا المرجع ان شاء الله يفيدك
http://www.alliancegroup.co.uk/files/devguide.pdf
وان لم يفدك يكفني شرف المحاولة
Smile
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد
تم الشكر بواسطة: الطالب , مجاهد نصر
#4
سلام


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

ولو كان استغلالك الاداه فقط لانها تعرض مصغرات فهذه سهله يمكن عملها بدون هذه الاداه
- - اقصد كود يعرض مصغرات صور من مجلد واستعراضها


موفقين
متغيب
الرد
تم الشكر بواسطة:
#5
(12-09-15, 10:29 PM)hassan كتب : للاسف لم تمر علي هاذي الاكواد او التعامل معه لاكن اخوي هل بحثت في جوجل ؟؟؟

بحثت في قوقل و جابلي نتائج باللغه الصينية و ترجمتها تقريبا معظم الاكواد دي من قوقل
مشكووووور

(13-09-15, 01:44 AM)أبو عمر كتب : حصلت هذا المرجع ان شاء الله يفيدك
http://www.alliancegroup.co.uk/files/devguide.pdf
وان لم يفدك يكفني شرف المحاولة
Smile
مشكور اخي ابو عمر حملت هذا الكتاب من زماااان بس ما لقيت فيه المطلوب
Sad
الرد
تم الشكر بواسطة:
#6
(13-09-15, 10:18 AM)الطالب كتب : سلام


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

ولو كان استغلالك الاداه فقط لانها تعرض مصغرات فهذه سهله يمكن عملها بدون هذه الاداه
- - اقصد كود يعرض مصغرات صور من مجلد واستعراضها


موفقين

هي فيها ادوات كتيييرة جدا
هي بتعرض مصغرات بس مشكلتي التنقل بين الصور المصغرة و المشكلة الثانية هي اختيار مجموعة من الصور في المرة الواحدة 
ممكن اختار مجموعة مكن الصور بس في العرض بتعرض اخر صورة مختارة تلقائيا 
****كيف اخليها تعرض كل الصور المختارة مع بعض***
رابط الاداة و البرنامج في المرفقات


الملفات المرفقة
.rar   images.rar (الحجم : 279.35 ك ب / التحميلات : 52)
الرد
تم الشكر بواسطة:
#7
شباااااااب ساعدووووني
Sad Sad Sad
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود زر التالي والسابق في مستعرض الصور معاذ العامري 1 28 منذ 1 ساعه مضت
آخر رد: boudyonline
  [VB.NET] كود او طريقة تثبيت الفريمورك اذا كان غير موجود باستخدام الساتب فاكتوري larbihamri 9 141 أمس, 07:40 PM
آخر رد: elgokr
  [VB.NET] كيفية حذف جزء معين من الصور او اخفائه الماجيك مسعد 7 306 10-07-18, 04:07 PM
آخر رد: الماجيك مسعد
Star اخذ النصوص من الصور | OCR YousefOkasha 7 323 08-07-18, 07:19 AM
آخر رد: elgokr
  كود عرض الصور والتاريخ ZaerAllail 11 279 29-06-18, 02:30 PM
آخر رد: ZaerAllail
  [سؤال] OCR استخراج الكتابة من الصور mohamed haroon 5 743 20-06-18, 02:18 AM
آخر رد: YousefOkasha
  [VB.NET] اريد فتح موقع معين اكتر من مرة لحسابات مختلفة او تبديل الكوكاييز باستخدام selenium d الماجيك مسعد 5 124 18-06-18, 04:37 AM
آخر رد: الماجيك مسعد
  إضافة الصور في الداتا بيس ZaerAllail 3 118 15-06-18, 11:22 AM
آخر رد: ZaerAllail
  عند التحزيم باستخدام Setup Factory لا يستطيع تسجيل ملف OCX على حاسبة المستخدم لكن ... alaa.altunsi 4 99 13-05-18, 11:48 PM
آخر رد: elgokr
  تصدير البيانات الى PDF باستخدام ITextSharp لايدعم اللغة العربية فاطمة غ 9 1,366 12-05-18, 12:51 AM
آخر رد: han

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم