REALbasic er et objekt -orienteret programmeringssprog typisk skrevet i en software-pakke kaldet Fast Studio. Ved hjælp af REALbasic sprog, kan brugerne oprette en bred vifte af programmer er så kompleks som deres egen video spil eller så simpelt som deres egne brugerdefinerede knapper. Dog kan endda skabe noget som en knap har et unikt look. For eksempel ved hjælp af et par linjer kode i Real Studio kan en 3 - D-effekt skabes der simulerer en knap bliver skubbet ned i baggrunden. Instruktioner
1
Find de billeder, du vil bruge til din 3-D -knappen. Du har brug for mindst to: én til at repræsentere , når knappen ikke er trykket , og en anden til at repræsentere , når knappen holdes nede . Omdøb disse billeder " PicButtonUp " og " PicButtonDown ", hhv .
2
Open Fast Studio og starte et nyt projekt. Dette vil ske som standard, hvis du ikke angiver et projekt at åbne. Træk og slip de to billeder ind i det hvide rum i midten af programmet.
3
Kontroller at se, at du har " window1 " fanen vælges nær toppen af skærmen. Klik og træk "Lærred " fra listen til venstre på skærmen til det store hvide rum i midten. Den vises som en blå kasse , og når du ser det , skal du dobbeltklikke på den.
4
Tryk på " Add Property " knappen , der er placeret øverst til højre på skærmen. I baren , der vises skriver " mState " i den første hvide rum , " String " i andet og "op" i den tredje. Tilføj yderligere to ejendomme , den ene med " mDownImage " i den første hvide rum og "billede" i den anden , og en med " mUpImage " i den første hvide rum og "billede" i den anden .
< br > 5
Vælg " Paint " fra listen til venstre og indsæt følgende kode i det hvide rum i midten af programmet.
Vælg Case mStatecase "op" hvis mUpImage < > nil thenme.Graphics.DrawPicture mUpImage , 0, 0end ifcase "ned ", hvis mDownImage < > nil thenme.Graphics.DrawPicture mDownImage , 0, 0end IfEnd SelectEnd SubSub Draw () Vælg Case mStatecase "op" hvis mUpImage < > nil thenme.Graphics.DrawPicture mUpImage , 0, 0end ifcase "ned ", hvis mDownImage < > nil thenme.Graphics.DrawPicture mDownImage , 0, 0end IfEnd Select
6
Vælg "Åben" fra listen til venstre, og indsæt følgende kode i det hvide rum i midten af programmet.
mState = "op" mDownImage = PicButtonDownmUpImage = PicButtonUp
7
Klik på " mouseDown " fra listen til venstre , og derefter indsætte følgende kode i det hvide rum i midten af programmet.
mState = "ned" Select Case mStatecase "op" hvis mUpImage < > nil thenme.Graphics.DrawPicture mUpImage , 0, 0end ifcase "ned ", hvis mDownImage < > nil thenme.Graphics.DrawPicture mDownImage , 0, 0end IfEnd Selectreturn sande
8 < p> Vælg " mouseUp " fra listen til venstre og indsæt følgende kode i det hvide rum i midten af programmet . dette vil fuldføre din 3-D -knap
hvis x > 0 og x < Bredde og y> 0 og y < Højde derefter //musemarkøren inde buttonmState = " up " ende ifSelect Case mStatecase "op" hvis mUpImage < > nil thenme.Graphics.DrawPicture mUpImage , 0, 0end ifcase "ned ", hvis mDownImage < > nil thenme.Graphics.DrawPicture mDownImage , 0, 0end IfEnd Select