Zum Muttertag schenken wir unseren Müttern, was sie sich schon immer gewünscht und mit VB6 nie bekommen haben: eine Applikation in Herzform.

Zunächst erstellt Kind mit einem klassischen Malprogramm ein Bildchen in Herzform und BMP Format. Der Rand des Herzen färbt Ihr mit einer beliebigen Farbe z.B. Weiss oder Blau. Merkt euch diese Farbe gut!

Als nächstes nehmen wir unsere Bastelkiste (Visual Studio) und schneiden aus ein paar Blatt Papier eine Windows Form Anwendung. Auf das leere Blatt (Form) kleben wir dann als Hintergrund das Herzbildchen. Dazu schreibt Ihr den Namen in "Backgroundimage".
Mit einer Bastelschere schneidet Ihr nun die Ränder weg. Achtet dabei auf keinen Formborderstyle.
Um das hässliche grau des Blattes des Blattes wegzuradieren, nehmt ihr den wahren TransparencyKey. Das ist die Farbe die Ihr um euer Herz rumgemalt habt.

Dann könnt ihr auf euren Blatt weiterarbeiten. Dazu nehmt aus der Bastelkiste ein paar Knöpfe und Anstecker und klebt diese mit festen Druck auf das Papier

.

Vielleicht holt Ihr für die nächsten Arbeitsschritte euren Papa.
Der kann dann seine wahre Liebe ausdrücken indem er ein paar Zeilen eurem Papier beilegt. Wenn Ma dann auf die Knöpfe drückt sollte was passieren.

private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Button1.Visible = False         Button2.Visible = False         Label2.Visible = True         Label2.Text = "VB" End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         Button1.Visible = False         Button2.Visible = False         Label2.Visible = True         Label2.Text = "C#" End Sub

Wenn Papa es aufrichtig meint, denkt er auch an die bewegten Herzen. Das ist selbst für Papa nicht ganz einfach, deshalb haben wir das in der Bastelanleitung auch etwas genauer erklärt.
Wenn die eine Maus vorbeiläuft und man dann auf diese drückt ( eher auf der linken Seite) muss man sich die genaue Position merken.

Public Class Form1     Inherits System.Windows.Forms.Form     Private mouseOffset As Point     Private isMouseDown As Boolean = False Private Sub Form1_MouseDown(ByVal sender As Object, _     ByVal e As MouseEventArgs) Handles MyBase.MouseDown         Dim xOffset As Integer         Dim yOffset As Integer        If e.Button = MouseButtons.Left Then             xOffset = -e.X - SystemInformation.FrameBorderSize.Width             yOffset = -e.Y - SystemInformation.CaptionHeight - _                     SystemInformation.FrameBorderSize.Height             mouseOffset = New Point(xOffset, yOffset)             isMouseDown = True         End If End Sub

Wenn man die Maus fest drück, kann man sie dann auch woanders hin bewegen. Dabei folgt das Blatt mit dem Herz immer.

Private Sub Form1_MouseMove(ByVal sender As Object, _         ByVal e As MouseEventArgs) Handles MyBase.MouseMove         If isMouseDown Then             Dim mousePos As Point = Control.MousePosition             mousePos.Offset(mouseOffset.X, mouseOffset.Y)             Location = mousePos         End If End Sub

Wenn Mama dann draufkommt, das die Maus noch lebt, wird diese mit einem lauten Schrei losgelassen.

Private Sub Form1_MouseUp(ByVal sender As Object, _         ByVal e As MouseEventArgs) Handles MyBase.MouseUp          If e.Button = MouseButtons.Left Then             isMouseDown = False         End If End Sub

Wenn Papa das ganze nicht ganz rafft und euer Herz nicht der Maus folgt, klebt es einfach mit Uhu am Fell fest.