تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مثال] بمــناسبة تنشيط للموقع :)))
#1
Smile 
السلام عليكم ورحمة الله وبركاتة ايها الاعضاء الكرام Heart
Huh طبعا عشان ما فى اى مساعدة من العرب وكل شخص بيخلى كل شئ لنفسو
فا انا هنزلكم كل يوم ان شاء الله درس جديد عن الفيجوال بيسك Cool 10

Heart أســف لان الدروس لن تكون ابتدأئـــــيى  Heart 

المــــهم نخش ف الدرس الاول Smile
الدرس عبــارة عن صنع برنامج لتصوير الشاشة  Undecided 

اســف الدروس لن تكون فيديو Sad 

المهم احنا هنصمم الفورم على حسب ما احنا نريد بس المهم نحط  زر ل( التقاط الصورة )
وزر ل (حفظ)
وزر ل (الخروج) اذا بدك طبعا :Smile
وزر للمعلومات Shy Shy 
و PictureBox
وهنحظ Save File Dialog

يلا نبدا بمشيئة الله Heart Blush
هنخلى Picture Box على الفورم  كلو 
ونحط الازرار من فوق
ونسمى الازرار مثل ما قلتلكم فوق  Sleepy Sleepy 

المهم ندخل ف مرحلة الاكواد لان من رئيى مرحلة التصميم ما بتهمنى اوى Tongue 

اول هنحط الكود دا ف الفورم نفسو : Cool

Dim timp As New DateTime

كود التصوير : Big Grin
Me.Opacity = 0

        Me.ShowInTaskbar = False
        timp = Now()
        Dim bounds As Rectangle
        Dim screenshot As System.Drawing.Bitmap
        Dim graph As Graphics
        bounds = Screen.PrimaryScreen.Bounds
        screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
        graph = Graphics.FromImage(screenshot)
        graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
        PictureBox1.Image = screenshot
        Me.Opacity = 100
        Me.ShowInTaskbar = True

كود الحفظ Shy 
Dim filesavedialog1 As New SaveFileDialog
        SaveFileDialog1.Title = "حفظ الصورة "
        SaveFileDialog1.FileName = "scr" & timp.ToString("HH-mm-dd-MM-yyyy") & ".jpg"
        SaveFileDialog1.Filter = "JPEG File| .jpg"
        Try
            If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
                PictureBox1.Image.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try

وز المعلومات :]

(" اكتب معلومات عك هنا :]") msgbox


كود الخروج Big Grin


End

كلمة شكر تكفيـــنى أنتظر ردودكم وشكرا
اال
الرد }}}}
تم الشكر بواسطة: abulayth , Amir_alzubidy
#2
شكرا لك جعله الله في ميزان حسناتك

تابع

يعطيك العافية
شـــايـفـــك

الرد }}}}
تم الشكر بواسطة: AbdoSoliman
#3
جزاك الله خيرا وبانتظار ابداعاتك
الرد }}}}
تم الشكر بواسطة:
#4
thank u AbdoSoliman
Smile
سأعود قريباً ان شاء الله

الرد }}}}
تم الشكر بواسطة:


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


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