![]() |
|
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 ]
|
|
|
Vorheriger Tipp
Zum Seitenanfang 