Mulla on tällänen aliohjelma:
Sub chanse() If optTausta.Value = True Then Tila.BackColor = RGB(hsRed, hsGreen, hsBlue) RGBt.Caption = "Red: " & hsRed & " Green: " & hsGreen & " Blue: " & hsBlue End If If optTeksti.Value = True Then Tila.ForeColor = RGB(hsRed, hsGreen, hsBlue) RGBt.Caption = "Red: " & hsRed & " Green: " & hsGreen & " Blue: " & hsBlue End If End Sub
ja heittää errorii:
run-time error'9': Subscript out of range
se se "DEbug" kohta:
Tila.BackColor = RGB(hsRed, hsGreen, hsBlue)
Katso, että muuttujien varaukset (Dim-käsky) on kunnossa, ja että ne on varattu globaaleiksi muuttujiksi, joita voidaan käsitellä eri aliohjelmissa. Sitten toinen hyvä juttu on katsoa, että numerot pysyy 0-255 välillä, muuten tulee väkisinkin erroria.
Aihe on jo aika vanha, joten et voi enää vastata siihen.