title image


Smiley Das kann man per VBA mit der API "SendMessage" machen
Hi,



folgendes Coding in ein allgemeines Modul kopieren:





Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _

(ByVal hwnd As Long, ByVal wMsg As Long, _

ByVal wParam As Long, lParam As Any) As Long







Angenommen die ProgressBar hieße ocxProgBar1, und beim Öffnen des Formulares würde man die Hintergrundfarbe auf Rot und die Farbe des Fortschrittsbalkens auf Grün einstellen wollen. Das Formularmodul wäre dann noch um einige wenige Konstanten zu erweitern und könnte in etwa so aussehen:





Option Compare Database

Option Explicit



Const CCM_FIRST = &H2000

Const CCM_SETBKCOLOR = (CCM_FIRST + 1)

Const PBM_SETBKCOLOR = CCM_SETBKCOLOR

Const WM_USER = &H400

Const PBM_SETBARCOLOR = (WM_USER + 9)



Private Sub Form_Load()

SendMessage Me!ocxProgBar1.hwnd, PBM_SETBARCOLOR, 0, ByVal RGB(0, 255, 0)

SendMessage Me!ocxProgBar1.hwnd, PBM_SETBKCOLOR, 0, ByVal RGB(255, 0, 0)

End Sub







Schönen Gruß,

Eric

Spotlight-Kicktipp gestartet!

Steig ein und trete mit Deinem Bundesliga-Tipp gegen die Besten an! :o)

http://www.kicktipp.de/spotlight/



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: