REALbasic är ett objektorienterat programmeringsspråk vanligtvis skrivna i ett programpaket som heter Real Studio . Använda REALbasic språket , kan användare skapa ett brett utbud av program så komplext som sin egen video spel eller så enkelt som sina egna knappar . Dock kan även skapa något som liknar en knapp har en unik look . Till exempel använder några rader kod i riktig studio , kan en 3 - D-effekt skapas som simulerar en knapp trycks ner i bakgrunden . Instruktioner
1
Lokalisera de bilder du vill använda för din 3 - D-knappen . Du behöver minst två : en för att representera när knappen inte är intryckt , och en annan att företräda när knappen trycks ned . Döp dessa bilder " PicButtonUp " och " PicButtonDown , " resp .
2
Open riktig studio och starta ett nytt projekt . Detta kommer att ske som standard om du inte anger ett projekt för att öppna . Dra och släpp de två bilderna i det vita utrymmet i mitten av programmet .
3
Kontrollera att du har den " window1 " fliken valts nära toppen av skärmen . Klicka och dra " Canvas " i listan till vänster på skärmen för att den stora vita utrymmet i mitten . Den visas som en blå låda , och när du ser den , dubbelklicka på den .
4
Tryck på " Add Property " knappen som du hittar längst upp till höger på skärmen . I baren som visas skriver " mState " i den första vita rymden , " String " i den andra , och " upp " i den tredje . Lägga till ytterligare två fastigheter , en med " mDownImage " i första blanktecken och " bild " i den andra , och en med " mUpImage " i första blanktecken och " bild " i den andra .
5
Välj " Paint " från listan till vänster och klistra in följande kod i det vita utrymmet i mitten av programmet .
Välj fall mStatecase " upp " om mUpImage < > noll thenme.Graphics.DrawPicture mUpImage , 0 , 0end ifcase " ned " om mDownImage <> noll thenme.Graphics.DrawPicture mDownImage , 0 , 0end IfEnd SelectEnd SubSub Draw () Välj Case mStatecase "upp " om mUpImage <> noll thenme.Graphics.DrawPicture mUpImage , 0 , 0end ifcase " ned " om mDownImage <> noll thenme.Graphics.DrawPicture mDownImage , 0 , 0end IfEnd Select
6
Välj " Open " från listan till vänster och klistra in följande kod i det vita utrymmet i mitten av programmet .
mState = " up " mDownImage = PicButtonDownmUpImage = PicButtonUp
7
Klicka " mouseDown " i listan till vänster , sedan klistra in följande kod i det vita utrymmet i mitten av programmet .
mState = " ner " Select Case mStatecase " upp " om mUpImage <> noll thenme.Graphics.DrawPicture mUpImage , 0 , 0end ifcase " ned " om mDownImage <> noll thenme.Graphics.DrawPicture mDownImage , 0 , 0end IfEnd Selectreturn sann
8
Välj " MouseUp " i listan till vänster och klistra in följande kod i det vita utrymmet i mitten av programmet, . detta kommer att slutföra din 3 - D knappen
om x > 0 och x 0 och y < Höjd sedan //muspekaren inuti buttonmState = " up " end ifSelect Case mStatecase " upp " om mUpImage < > noll thenme.Graphics.DrawPicture mUpImage , 0 , 0end ifcase " ned " om mDownImage < > noll thenme.Graphics.DrawPicture mDownImage , 0 , 0end IfEnd Select
