VB - Farben???!!!!

  • Themenstarter Themenstarter s'quare
  • Beginndatum Beginndatum
S

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
 
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
 
...

...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
 
Zurück