vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2019
 
zurück
Rubrik: Grafik und Font   |   VB-Versionen: VB.NET11.12.06
Threadsichere Gif-Animation

Darstellung einer Gif-Animation in einer PictureBox während bspw. eine Datenbankabfrage läuft

Autor:   Bacik Harald / Zero-G.Bewertung:     [ Jetzt bewerten ]Views:  14.424 
www.intelli-soft.atSystem:  WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10 Beispielprojekt auf CD 

Manchmal hat man z.B. bei Datenbankabfragen eine längere Wartezeit. Um dem User aber zu zeigen, dass das Programm nicht abgesürzt ist, oder die Datenbankabfrage noch läuft, kann man in einer PictureBox eine immerwiederkehrende Gif-Animation laufen lassen. Bsp. ist das mySQL Control Center oder auch der mySQL Query Browser.

Der Code ist eine Klasse, die sehr einfach ist:

#Region " GIF Animation in einer Picturebox "
Public Class Animation
  Private AniPictureBox As PictureBox
  Private AniImage As Bitmap
 
  ' Ani_Starten ist die Sub, die vom neuen Thread aufgerufen wird
  ' und in dem die Animation gesetzt wird
  Private Sub Ani_Starten()
    PBoxProperty.Image = ImageProperty
  End Sub
 
  ' Die Eigenschaft für die PictureBox
  Private Property PBoxProperty() As PictureBox
    Get
      Return AniPictureBox
    End Get
    Set(ByVal value As PictureBox)
      AniPictureBox = value
    End Set
  End Property
 
  ' Die Eigenschaft für das Bitmap / Gif-Animation
  Private Property ImageProperty() As Bitmap
    Get
      Return AniImage
    End Get
    Set(ByVal value As Bitmap)
      AniImage = value
    End Set
  End Property
 
  Public Sub Animation(ByVal PBox As PictureBox, ByVal AnimationImage As Bitmap)
    Dim AniProperty As New Animation
 
    AniProperty.PBoxProperty = PBox
    AniProperty.ImageProperty = AnimationImage
 
    ' Ausführung des Threads
    Dim _Thread As New Threading.Thread(AddressOf AniProperty.Ani_Starten)
    If _Thread.IsAlive = False Then
      _Thread.Start()
    Else
      _Thread.Abort()
      PBox.Image = AnimationImage
    End If
  End Sub
End Class
#End Region

So, innerhalb des Codes kann man dann mit folgendem Befehl die Klasse aufrufen:

Dim Animation As New Animation
Animation.Animation(PictureBox1, _
  New Bitmap(Application.StartupPath & "\myAniGif.gif"))
 
' Hier wird dann z.B. die Datenbankabfrage gestaltet
 
' ...
 
' Nochmal die Animation aufrufen, damit sie wider gestoppt wird
Animation.Animation(PictureBox1, Nothing)

So, das war es auch schon!
Viel Spass beim Probieren

Dieser Tipp wurde bereits 14.424 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.

Aktuelle Diskussion anzeigen (1 Beitrag)

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-2019 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