XProfan

Déclarer hToolBar&, hBild&, ende%
Fenêtre Style 63
Cls
hToolbar& = Créer("TOOLBAR", &hWnd, 0, 0, 2, 2000, 1)
Toolbar("AddButton", hToolBar&, 0, 2000, "Button 1", 1)
Toolbar("Separator", hToolbar&)
Toolbar("AddButton", hToolBar&, 5, 2005, "ENDE")

WhileNot ende%

    WaitInput
    locate 10,30

    Si %KEY = 2

        ende% = 1

    ElseIf %KEY = 4

        SetWindowPos hToolbar& = 0, 0 - 0, 0; 0

    ElseIf MenuItem(2000)

        MessageBox("Schnipp schnapp!", "Test", 0)
        cls rgb(255,255,255)

    ElseIf DropDown(2000)

        CreateMenu
        AppendMenu 101,"&blau"
        AppendMenu 102,"&rot"
        AppendMenu 103,"&grün"
        Séparateur
        AppendMenu 2005,"&Ende"
        TrackMenu %MouseX,32

    EndIf

    Si MenuItem(2005)

        ende% = 1

    ElseIf MenuItem(101)

        cls rgb(0,0,255)

    ElseIf MenuItem(102)

        cls rgb(255,0,0)

    ElseIf MenuItem(103)

        cls rgb(0,255,0)

    EndIf

Endwhile

DeleteObject hBild&
Fin

Déclarer string Dateiname, Schluessel, Wert, \
long js,                            \
hash HashArray[]
window 1500,1000
Dateiname = LoadFile$("Wähle une JSON-Datei","*.json")

Si Dateiname > »

    js = Créer("json", Dateiname)
    HashArray[] = json("Hash", js)
    ForEach HashArray[], Schluessel, Wert
    Imprimer Schluessel + " = " + Wert
    EndFor

EndIf

Imprimer
Imprimer "Taste drücken ..."
WaitInput
Fin

Herausgeber = Xema
numéro = 1234-5678-9012-3456
Deckung = 2000000
Waehrung = EURO
Inhaber = {2}
Inhaber|nom = Forgeron
Inhaber|prénom = Max
Inhaber|maennlich = *TRUE*
Inhaber|Hobbys = [3]
Inhaber|Hobbys|0 = Reiten
Inhaber|Hobbys|1 = Golfen
Inhaber|Hobbys|2 = Lesen
Inhaber|Alter = 42
Inhaber|Kinder = [4]
Inhaber|partenaire = *NULL*