DevTrain Startseite SharePoint Camp ? In 5 Tagen zum SharePoint Profi!  
  
  
SUCHEN:  
ARTIKEL ONLINE: 525   

Kategorien
.NET
Datenbanken
Web
XML

Allgemein
Camp
Foren
Events
Persönliche Einstellungen
Registrieren
Prämien Shop
Kontakt
Impressum
Über DevTrain

Autoren


   Autor: Hannes Preishuber Artikel Drucken
        
Muttertag Windows Herzform

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.

 

 


DevTrain Camp - Schneller zum .NET 3.5 Developer
 
Verwandte Artikel      Verlinkte Dokumente
    Keine verknüpften Dokumente
    Keine Links vorhanden

  Erfasst am: 12.05.2003
  Gültig bis: 10.08.2003
15 Ratings
Bewertung: 76,0%
schlecht    sehr gut  

 
© Copyright 2007 ppedv AG