[أبو خالد الشكري]

لا بأس أخي العزيز F.H.M
أرجو لك التوفيق في مشروعك ، وأن تكون سعيدا به .
تحياتي الخالصة  لك .

[F.H.M]

أخي العزيز أبوخالد الله يحفظك

إذا كان العقد به صفحات متعددة كيف أضيفهم مع الصورة الرئيسية بحيث يكون كل صورة في مجلد خاص بدل أن تكون الصورة بإسم ID بحيث أقوم بإضافة كذا صورة بنفس العقد سواء بإختيارها من الكمبيوتر أو بسحبها عن طريق السكينر أو تكون الصورة بصيغة PDF بحيث تستقبل كذا صفحة وإذا أمكن ذلك كيف أقوم بجعل السكينر يسحب كذا صورة مع بعض

هذا كود السكينر

كود :

Private Function ScanMe(ByVal myDPI As Integer, ByVal myHeight As Double, ByVal myWidth As Double, ByVal ShowSelectScanner As Boolean, ByVal ShowScanPreview As Boolean) As Byte()
   Dim CD As New WIA.CommonDialog
   Dim device As WIA.Device = CD.ShowSelectDevice(WIA.WiaDeviceType.ScannerDeviceType, ShowSelectScanner, False)
   If device Is Nothing Then Return Nothing
   Dim item As WIA.Item = device.Items(1)
   Try
       With item
           .Properties("Horizontal Resolution").Value = myDPI
           .Properties("Vertical Resolution").Value = myDPI
           .Properties("Horizontal Extent").Value = myDPI * myWidth
           .Properties("Vertical Extent").Value = myDPI * myHeight
       End With
       Dim F As WIA.ImageFile

       If ShowScanPreview Then
           F = CD.ShowAcquireImage(WiaDeviceType.ScannerDeviceType, WiaImageIntent.ColorIntent, WiaImageBias.MaximizeQuality, WIA.FormatID.wiaFormatBMP, False, True, False)
       Else
           F = CD.ShowTransfer(item, WIA.FormatID.wiaFormatPNG, False)
       End If

       Dim myBuffer As Byte() = F.FileData.BinaryData
       Return myBuffer
   Catch ex As Exception

       MsgBox(ex.Message)
       Return Nothing
   End Try
End Function
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
   Try
       Dim myMS As MemoryStream
       myMS = New MemoryStream(ScanMe(300, 11.6, 8.3, False, False))
       Car_Doc.Image = Image.FromStream(myMS)
       Car_Doc.SizeMode = PictureBoxSizeMode.Zoom
   Catch ex As Exception
       MessageBox.Show(ex.Message, "", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
   End Try
End Sub

[F.H.M]

هذا مشروع للسحب من السكانر وتحويله إلى PDF

[F.H.M]

الله يعطيك العافية أخ justforit

طيب ممكن تعدل على المثال السابق الذي قمت بتعديله

وهل يمكن للـ PictureBox أن يعرض صور متتالية بحيث أقلب بين الصور

[F.H.M]

الله يعطيك العافية أخي العزيز justforit

ظهر لي هذا الخطأ عند تشغيل البرنامج

[F.H.M]

عندي فكرة ربما تكون أسهل في البرمجة

فقط إجعل الصورة في مجلد وضع زر لفتح هذا المجلد

لاداعي لإضافة عدد من الصور

نفس التنسيق السابق بالضبط فقط زيادة زر فتح المجلد والصورة تحفظ في مجلد

وأنا أسحب الصور الباقية بالسكانر وأحولها PDF خارج البرنامج وأحفظها في نفس المجلد

[F.H.M]

لا مالك شغل بالسكانر إنت فقط عدل على المثال الأول وإحفظ الصورة في مجلد وزر فتح المجلد

بدل أن تكون اسم الصورة برقم الآيدي يكون المجلد برقم الآيدي

[bbbbbb@gmail.com]

يوجد اداه اسمها سبريد شت.  مثل الاكسل. تعتمد الامتداد وتحطهم في ملف  وتطلبهم وقت ماتريد

[F.H.M]

وجدت هذا الكود لإنشاء مجلد داخل مجلد الـ Images ولكن لم أعرف كيف أكمله

كود :

Dim folderPath As String = Path.Combine(Application.StartupPath, "\Images\")

If Not Directory.Exists(folderPath) Then
   ' Create folder with a unique ID
   Dim uniqueID As String = Guid.NewGuid().ToString()
   Dim newFolderPath As String = Path.Combine(folderPath, uniqueID)

   Directory.CreateDirectory(newFolderPath)
   Console.WriteLine("New folder created at: " & newFolderPath)
Else
   Console.WriteLine("Folder already exists at: " & folderPath)
End If

كيف أغير كود الصورة ليتوافق مع الكود السابق

كود :

Dim imagePath As String = folderPath & ID.ToString & ".jpg"


Dim ms As New MemoryStream
Car_Doc.Image.Save(ms, Car_Doc.Image.RawFormat)

[F.H.M]

هلا بالغالي justforit

نفس المثال بالمرفق إلي إنت عدلت عليه بالسابق وتعديلك 100% هو المطلوب فقط أريد زيادة مجلد قبل الصورة بحيث يكون بهذا الشكل images\1\1.jpg

و زر في البرنامج يفتح فولدر الصورة المعروضة في PictureBox

مثال على ذلك الصورة المعروضة في PictureBox هي 1.jpg فإذا ضغطت على الزر الصورة المعروضة يفتح لي المجلد 1

---

تكون بهذا الشكل

طبعاً هذي الصورة معدلة بالفوتوشوب

المطلوب ليس في تعديلك الأخير ولكن في تعديلك بالرابط التالي

http://vb4arb.com/vb/showthread.php?tid=...#pid200623

في الرد رقم ( 13 )