تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] مشكلة في screenshot
#1
ممكن اعرف ايه الخطا اللي في الكود 

PHP كود :
Dim bounds As Rectangle
        Dim screenshot 
As System.Drawing.Image
        Dim graph 
As Graphics
        bounds 
Screen.PrimaryScreen.Bounds
        screenshot 
= New System.Drawing.Bitmap(bounds.Widthbounds.HeightSystem.Drawing.Imaging.PixelFormat.Format32bppArgb)
 
       graph Graphics.FromImage(screenshot)
 
       graph.CopyFromScreen(bounds.Xbounds.Y00bounds.SizeCopyPixelOperation.SourceCopy)
 
       Me.Opacity 100
        Dim pb 
As New PictureBox
        pb
.Image screenshot
        
'pb.Image.Save("C:\Desktop\screenshoot\screenshoot.Jpg")
        Static Count As Integer
        Count += 1
        pb.Image.Save(("C:\Desktop\screenshoot" & Count.ToString & ".jpg"), System.Drawing.Imaging.ImageFormat.Jpeg) 
الرد }}}
تم الشكر بواسطة: asemshahen5
#2
الخطأ في السطر الاخير وتحدبدا في المسار الذي استخدمته لحفظ الصورة على سطح المكتب
فانت استخدمت pb.Image.Save(("C:\Desktop\screenshoot" & Count.ToString & ".jpg"), System.Drawing.Imaging.ImageFormat.Jpeg)
وهو مسار غير موجود لان سطح المكتب دائما يكون ضمن مجلد C:\Users\Username

يمكنك استبداله بهذا الكود 

كود :
   pb.Image.Save((My.Computer.FileSystem.SpecialDirectories.Desktop & "\screenshoot" & Count.ToString & ".jpg"), System.Drawing.Imaging.ImageFormat.Jpeg)

الرد }}}
تم الشكر بواسطة: مصمم هاوي , asemshahen5 , asemshahen5 , سعود , سعود , Hatem Zahran
#3
تمام الكود اشتغل الف شكر لحضرتك  Heart
الرد }}}
تم الشكر بواسطة: معاند الحظ , asemshahen5



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


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