تدوير الصورة - نسخة قابلة للطباعة

تدوير الصورة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تدوير الصورة (/showthread.php?tid=25642)

تدوير الصورة - العيدروس - 06-07-18

تاسلام عليكم.اخواني كيف يمكن بوسطة الباتون 1 استطيع تدوير الصورة زي التدوير بالوورد كمثال.اضغط على الباتون تدور لليمين اضغط ثاني تدور للشمال ثم اعلى و اسفل.شكرا اخواني

RE: تدوير الصورة - سعود - 06-07-18

مارايك بالرابط التالي:
الرابط

RE: تدوير الصورة - العيدروس - 06-07-18

شكرا استاذ سعود .هل يمكن اخلي الصورة اجلبها بالباتون1 و اقوم بالتدوير بالباتون 2 .اي صورة مو شرط bmp الله يرضى عليك.حاولت بس مت ضبطت

RE: تدوير الصورة - Done - 06-07-18

PHP كود :

Public Class Form1

    Dim bitmap1 As Bitmap

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 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 Object, e As EventArgs) Handles Button2.Click
        If bitmap1 IsNot Nothing Then
            bitmap1.RotateFlip(RotateFlipType.Rotate270FlipXY)
            PictureBox1.Image = bitmap1
        End If
    End Sub
End Class 

RE: تدوير الصورة - elgokr - 06-07-18

(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

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

تحياتى لك

وتمنياتى لك التوفيق

RE: تدوير الصورة - العيدروس - 06-07-18

بارك الله استاذ algokr الان الصورة تدور تمام.الهي يرضى عليك بالدنيا و الاخرة

RE: تدوير الصورة - elgokr - 06-07-18

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

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

تحياتى لك

وتمنياتى لك التوفيق

RE: تدوير الصورة - YousefOkasha - 06-07-18

قلب الصورة

كود :

Dim objImage as image = picbox.image

objImage.RotateFlip(RotateFlipType.Rotate90FlipNone)

PicBox.Image = objImage

تفضل اخي ..

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