06-07-18, 02:47 PM
تاسلام عليكم.اخواني كيف يمكن بوسطة الباتون 1 استطيع تدوير الصورة زي التدوير بالوورد كمثال.اضغط على الباتون تدور لليمين اضغط ثاني تدور للشمال ثم اعلى و اسفل.شكرا اخواني
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
(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(06-07-18, 06:54 PM)العيدروس كتب : [ -> ]بارك الله استاذ algokr الان الصورة تدور تمام.الهي يرضى عليك بالدنيا و الاخرة
Dim objImage as image = picbox.image
objImage.RotateFlip(RotateFlipType.Rotate90FlipNone)
PicBox.Image = objImage