QBJS - Fun Facts!

[dbox]

Fun Fact #3 - QBJS has native support for associative arrays (dictionary).

This feature is sometimes also known as a map or hashmap.

Code: (Select All)

Dim colors() As _Unsigned Long

colors("brick red") = &HFFC62D42
colors("electric lime") = &HFFCCFF00
colors("metalic sunburst") = &HFF9C7C38

Cls , 15
Line (10, 10)-(100, 100), colors("electric lime"), BF
Line (200, 200)-(300, 300), colors("brick red"), BF
Circle (200, 100), 50, colors("metalic sunburst")

Try it on QBJS