✔ VB - Farben???!!!!

[s'quare]

Hi,
ich hab einfach nur versucht ScrollBars mit einem Shape zu verbinden:

Private Sub cmdOk_Click()
shpBox.FillColor = RGB(scrRot, scrGrün, scrBlau)
End Sub

Aber irgendwie sagt er: "Argument nicht optiona" und zeigt dabei auf scrRot. Ich verstehs einfach nicht!

Hoffentlich kann mir jemand helfen.
Mfg

 

[discoguide24.de]

schreib mal statt eine button_Click Sub folgendes in den quellcode, bei mir klappts dann (wieso beim button nicht geht weiss ich auch nicht):

-------------------
Private Sub scrblau_Change()
shpbox.FillColor = RGB(scrrot.Value, scrgrün.Value, scrblau.Value)
End Sub

Private Sub scrgrün_Change()
shpbox.FillColor = RGB(scrrot.Value, scrgrün.Value, scrblau.Value)
End Sub

Private Sub scrrot_Change()
shpbox.FillColor = RGB(scrrot.Value, scrgrün.Value, scrblau.Value)
End Sub
-------------------

einfach DIREKT auf die Scrollbarveränderung reagieren

viele grüsse

ciao

 

[discoguide24.de]

...

...ich vergass: vergess nicht die maximale scrollmöglichkeit auf 255 zu setzen, da dies ja der höchstmögliche farbwert ist..

also

scrXXX.Max = 255

xxx=rot, grün, oder blau (wenn du nicht mit indexen arbeiten willst)


ok ciao