VBA & StatusBar

Her er noget jeg har brugt i VB, håber det kan hjælpe dig.


' sæt nul
ProgressBar1.Min = 0
'sæt max
ProgressBar1.Max = 10

For i = 1 to 10
  ' gør et eller andet
  '    fgfdhgfdhgh

  ' hæv progressbar med 1
  ProgressBar1.Value = ProgressBar1.Value + 1
Next


//akj

Det var så ikke lige en progressbar men en statusbar jeg var ude efter her!

DOOH sorry :o)

Svaret er åbenbart:

StatusBar01.Panels(1).Text = "Dette er den rigtige kommando"

Selvom jeg ikke fik den frem da jeg dottede mig frem?!

Hehe, den har jeg også lige fundet.

StatusBar1.Panels.Add 1
StatusBar1.Panels.Item(1).Text = "Et eller andet."

//akj