[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