MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 19.11.2010, 15:08   #1
JohnDoe
MOF User
MOF User
Standard VBA - Progressbar die Farbe ändern

Hi zusammen,

hat jemand eine Idee wie ich bei der Progessbar die Farbe des Balkens ändern kann?

Vielen Dank
JohnDoe ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.11.2010, 15:21   #2
jinx
MS-Office-Forum Team MS-Office-Forum Team
Standard

Moin, JohnDoe,

meines Wissens gar nicht - sieh Dir doch bitte die Alternativen unter Progress Meters bei Andy Pope, die Beispiele bei Stephen Bullen oder den Code bei Tushar Mecta an (ich würde zu den Alternativen bei Andy Pope greifen).

__________________

cu
jinx


per 31.12.2010 ausgeschiedener User und ehemaliger Excel-

Folgende Tools werden zur optischen Aufbereitung eingesetzt: Code Converter; Excel Jeanie Html
Für die allgemeinen Hinweise: Netiquette; Fragen und Antworten in Foren

eingesetzte Betriebssysteme: XP Home, XP Media Center Edition, XP Professional, Vista Ultimate, 7/Seven
verwendete Programme: Excel97 SR-2, Office 2000 SP-3, Office2002/XP SP-3, Office 2003 Professional SP-3, Office 2007 Home & Student SP-3, Office 2007 Professional SP-3
jinx ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.11.2010, 16:19   #3
JohnDoe
Threadstarter Threadstarter
MOF User
MOF User
Standard

Thx jinx,

bei Pope gibts genau das was ich suche.
JohnDoe ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.11.2010, 20:44   #4
Nepumuk
MOF Profi
MOF Profi
Standard

Hi,

geht nicht gibt's nicht. Und was nicht geht bekommt Räder verpasst und wird gerollt.

' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit

Private Declare Function OleTranslateColor Lib "oleaut32.dll" ( _
    ByVal lOleColor As Long, _
    ByVal lHPalette As Long, _
    ByRef lColorRef As Long) As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _
    ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    ByVal lParam As Long) As Long
Private Declare Sub Sleep Lib "kernel32.dll" ( _
    ByVal dwMilliseconds As Long)

Private Const PBM_SETBARCOLOR = &H409&
Private Const PBM_SETBKCOLOR = &H2001&

Private Sub UserForm_Activate()
    
    Dim lngIndex As Long
    
    ProgressBar1.Max = 100
    
    Repaint
    
    For lngIndex = 1 To ProgressBar1.Max
        ProgressBar1.Value = lngIndex
        Call Sleep(10)
    Next
    
End Sub

Private Sub UserForm_Initialize()
    
    Dim lngBackColor As Long
    Dim lngBarColor As Long
    
    With ProgressBar1
        Call OleTranslateColor(vbWhite, 0&, lngBackColor) 'Hintergrundfarbe
        Call SendMessage(.hwnd, PBM_SETBKCOLOR, 0, lngBackColor)
        Call OleTranslateColor(vbGreen, 0&, lngBarColor) 'Balkenfarbe
        Call SendMessage(.hwnd, PBM_SETBARCOLOR, 0, lngBarColor)
    End With
    
End Sub

__________________

Gruß
Nepumuk
Nepumuk ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.06.2012, 08:43   #5
ab_cde
Standard

@nepumik: könntest du mir das evtl erklären wie ich das mit den Modulen mache ? Da das ganze bei mir nicht funktioniert...
 
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:27 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.