[العيدروس]

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

[سعود]

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

[العيدروس]

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

[Done]

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 


[elgokr]

(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 الان الصورة تدور تمام.الهي يرضى عليك بالدنيا و الاخرة

[elgokr]

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

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

تحياتى لك

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

[YousefOkasha]

قلب الصورة

كود :

Dim objImage as image = picbox.image
objImage.RotateFlip(RotateFlipType.Rotate90FlipNone)
PicBox.Image = objImage

تفضل اخي ..

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