Keskustelu: Ohjelmointikysymykset: VB6: Progress Bar value

Minkä takia barrin koko ei isone jos kirjoitan Formiin Progressbar.Value 100

Progress Bar:

Public Sub Value(arvo As Long)
End Sub


Private Sub UserControl_Paint()
Line (0, 0)-(arvo, 100), RGB(255, 0, 0)
End Sub

Form:

Progressbar.Value 100

arvo 100 on tietääkseni täysi. Jos haluat liikuttaa progressbarin palkkia, niin pistä timeriin:

ProgressBar.Value = ProgressBar.Value + 1

ja form_loadiin

ProgressBar.Value = 0

EDIT: mutta otappas huomioon että arvo ei saa mennä yli täydestä ;)

joo tiedän, mutta vaikka laittaisin vaikka arvoski 10, niin baari ei reagoi arvoon mitenkaan....

Edit1: Baariin ei voi laittaa näin Progressbar.Value = 0 vaan se pitää laittaa Progressbar 0..Jos se on Progressbar = 0 tulee virhe ilmoitus "Argument not Optionl" tai jotain ton tyyppistä.

Tässä on siis nyt kyse mun omasta tekemästäni Progress baarista!

Arvo ei muutu, koska et koskaan tallenna annettua uutta arvoa mihinkään. Lisäksi joudut käskemään kontrollia piirtämään itsensä uusiksi tuossa arvonmuuttometodissa.

Tuollainen jäsenmetodihan on toki melko hassu tapa progressbarin arvon muuttamiseen, property olisi luontevampi.

Aloittelin joskus kirjoittamaan opasta userkontrolleista, mutta se ei koskaan valmistunut kokonaan, mitä ehdin kirjoittaa löytyy tuolta: http://pp.kpnet.fi/blaze/temp/ocxtut.zip Siitä saattais olla jotain apua.