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! Dieser Tipp wurde bereits 16.686 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
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. |
sevWizard für VB5/6 Professionelle Assistenten im Handumdrehen Erstellen Sie eigene Assistenten (Wizards) im Look & Feel von Windows 2000/XP - mit allem Komfort und zwar in Windeseile :-) Tipp des Monats Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung Access-Tools Vol.1 Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||||||||
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. |