![]() |
Tipp 0018
|
Grafik drehen und spiegeln
|
 |
|
Autor/Einsender: Datum: |
|
Michael Werner 15.09.2003 |
|
Entwicklungsumgebung: |
|
VB.Net 2002 |
Framework: |
|
1.0 |
|
|
Um ein Bild zu drehen oder zu spiegeln, sind in VB die API-Funktion BitBlt bzw. die daraus
abgeleitete Methode PaintPicture mit recht aufwendigen Parametern zu bemühen.
|
In VB.Net wird das nun ganz einfach. Ein Bitmap-Objekt kennt die RotateFlip-Methode
(System.Drawing-Namespace). Diese Methode dreht und/oder kippt das Image-Objekt mit
sofort verständlichen Members der RotateFlipType-Enumeration.
|
|
|
Public Class Form1
Inherits System.Windows.Forms.Form Vom Windows Form Designer generierter Code
Dim b As Bitmap
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
b = PictureBox1.Image
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
b.RotateFlip(RotateFlipType.Rotate180FlipX)
PictureBox1.Image = b
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button2.Click
b.RotateFlip(RotateFlipType.Rotate90FlipXY)
PictureBox1.Image = b
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub
End Class
|
|
|
|
|
Windows-Version |
98/SE |
 |
|
ME |
 |
|
NT |
 |
|
2000 |
 |
|
XP |
 |
|
Vista |
 |
|
Win
7 |
 |
|
|
|
Download (50,9 kB)
|
Downloads bisher: [ 1284 ]
|
|
|