ProgressBar anden farve?

Højreklik med musen på skrivebordet - vælg egenskaber - vælg udseende ... nu kan du ændre alle de farver du vil ... god fornøjelse :-)

ARGH doh du har ikke fattet en "skid" jeg har lavet et program. og jeg er træt at at det hele skal være blåt og gråt. så har ændret en del farver. jeg vil også gerne have ændret progressbaren i mit projekt. jeg kan jo ikke sige til folk der får programmet at di skal ændre udseende!

Det kan du ikke udmidbart! Men der findes et alternavtiv:

Lav en picturebox, og inde i den laver du en shape i den farve du vil have progressbaren til at være...

Så skal du dog ændre lidt på din kode, så det blir noget i retningen af:

shape1.width = val(shape1.width) + 1

Men det KAN lade sig gøre! ;)

hmm ok tak for svaret kan godt nok ikke lige bruge det men du får lidt point alligevel!

Hej.

Jeg har samme synspunkt som dellevela.  Mit 'Splash-vindue' for demoversioner er det mest overskuelige, der viser metoden.  Ifald du vil have formen også (den er hurtig at lave) må du oplyse en mailadresse.

Jeg bruger ikke en pictureboks med to labels på samme position, hvor den ene er transparent og den anden skifter størrelse.


Private Sub Form_Activate()
  a = 0
  Y = 3200
End Sub

Private Sub Form_Click()
  If vent = 0 Then vent = 1 Else vent = 0
End Sub

Private Sub Form_Load()
  frmdemo.Left = (Screen.Width - frmdemo.Width) \ 2
  frmdemo.Top = (Screen.Height - frmdemo.Height) \ 2
  bar = 3200
End Sub

Private Sub labbar0_Click()

End Sub

Private Sub timerluk_Timer()
  If frmdemo.Visible = False Then Exit Sub
  If vent = 1 Then Exit Sub
  a = a + 1
  If bar > 30 Then bar = bar - 30
  labbar1.Width = bar
  labbar1.Caption = Int(bar / 300) & " sek."
  If a = 30 Then labhoer.Visible = True
  If a = 100 Then End
End Sub

Med venlig hilsen  Jørn

Hej.

Ikke 'med' - MEN to labels, skulle ser stå.