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