منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : تدوير الصورة
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
تاسلام عليكم.اخواني كيف يمكن بوسطة الباتون 1 استطيع تدوير الصورة زي التدوير بالوورد كمثال.اضغط على الباتون تدور لليمين اضغط ثاني تدور للشمال ثم اعلى و اسفل.شكرا اخواني
مارايك بالرابط التالي:
الرابط
شكرا استاذ سعود .هل يمكن اخلي الصورة اجلبها بالباتون1 و اقوم بالتدوير بالباتون 2 .اي صورة مو شرط bmp الله يرضى عليك.حاولت بس مت ضبطت
PHP كود :
Public Class Form1

    Dim bitmap1 
As Bitmap

    Private Sub Button1_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click

        Dim dlg 
As New OpenFileDialog
        dlg
.Title "Choose Desktop background image"
 
       dlg.Filter ""

 
       If dlg.ShowDialog Windows.Forms.DialogResult.OK Then

            bitmap1 
CType(Bitmap.FromFile(dlg.FileName), Bitmap)
 
           PictureBox1.SizeMode PictureBoxSizeMode.Zoom
            PictureBox1
.Image bitmap1

        End 
If

 
   End Sub

    Private Sub Button2_Click
(sender As ObjectAs EventArgsHandles Button2.Click
        If bitmap1 IsNot Nothing Then
            bitmap1
.RotateFlip(RotateFlipType.Rotate270FlipXY)
 
           PictureBox1.Image bitmap1
        End 
If
 
   End Sub
End 
Class 
(06-07-18, 04:02 PM)العيدروس كتب : [ -> ]شكرا استاذ سعود .هل يمكن اخلي الصورة اجلبها بالباتون1 و اقوم بالتدوير بالباتون 2 .اي صورة مو شرط bmp الله يرضى عليك.حاولت بس مت ضبطت

نعم اخى يمكنك ذلك

فقط فى كود الزر التدوير المرفق بردك
قم بتغغيره ليصبح الكود التالى
كود :
If PictureBox1.BackgroundImage IsNot Nothing Then
           bitmap1 = CType(PictureBox1.BackgroundImage, Bitmap)
           bitmap1.RotateFlip(RotateFlipType.Rotate90FlipXY)
           PictureBox1.Image = bitmap1
       Else
           MsgBox("Select Photo...")
       End If

مرفق السورس بعد تعديل الكود

تحياتى لك
وتمنياتى لك التوفيق
بارك الله استاذ algokr الان الصورة تدور تمام.الهي يرضى عليك بالدنيا و الاخرة
(06-07-18, 06:54 PM)العيدروس كتب : [ -> ]بارك الله استاذ algokr الان الصورة تدور تمام.الهي يرضى عليك بالدنيا و الاخرة

الهم امين ولنا جميعاً يارب


تحياتى لك
وتمنياتى لك التوفيق
قلب الصورة
كود :
Dim objImage as image = picbox.image
objImage.RotateFlip(RotateFlipType.Rotate90FlipNone)
PicBox.Image = objImage

تفضل اخي ..

تحياتي لك و للجميع