vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: Oberfläche · Effekte   |   VB-Versionen: VB4, VB5, VB620.07.01
Form Fade-Effekt

Ein Beispiel wie sich ein Fenster zur Laufzeit mit einem netten Fade-Effekt ausstatten lässt.

Autor:   Marcel ColleyBewertung:     [ Jetzt bewerten ]Views:  17.211 
go.to/gigawinSystem:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 Beispielprojekt auf CD 

Sie haben das bestimmt schon in anderen Anwendungen / Dialogfenstern gesehen. Da enthält ein Eingabefenster zunächst nur die wesentlichen Eingabe- und Einstellmöglichkeiten und per Button Erweitert wird das Fenster zur Laufzeit vergrößert, um alle/weitere Einstellungen vornehmen zu können.

Alles kein Problem: Klickt der Anwender auf den Button, so setzen Sie einfach die Form.Width oder Form.Height-Eigenschaft neu, um das Fenster zu vergrößern bzw. zu verkleinern.

Als kleine Spielerei hierzu, ist der nachfolgende Tipp gedacht. Hierbei wird das Fenster nicht in einem Zug auf die entsprechende neue Größe gebracht, sondern Schritt für Schritt - quasi eine Art Fade-Effekt erzeugt.

Option Explicit
Dim stdWidth As Long  ' Normale Breite der Form
Dim maxWidth As Long  ' Maximal-Breite der Form
 
Private Sub Form_Load()
  ' Vorgaben
  stdWidth = 6000
  maxWidth = 9000
End Sub
 
' Form vergrößern/verkleinern
Private Sub cmdMore_Click()  
  If Me.Width = stdWidth Then
    ' Form auf Maximal-Breite "faden"
    While Me.Width < maxWidth
      Me.Width = Me.Width + 5
    Wend
    cmdMore.Caption = "<< Normal"
  Else
    ' Form wieder auf Normalbreite "faden"
    While Me.Width > stdWidth
      Me.Width = Me.Width - 5
    Wend
    cmdMore.Caption = "Erweitert >>"
  End If
End Sub

Dieser Tipp wurde bereits 17.211 mal aufgerufen.

Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

Über diesen Tipp im Forum diskutieren
Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

Neue Diskussion eröffnen

nach obenzurück


Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
   

Druckansicht Druckansicht Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel