REALbasic is een object - georiënteerde programmeertaal meestal in een softwarepakket genaamd Real Studio geschreven . Met behulp van de REALbasic taal , kunnen gebruikers een breed scala van programma's te maken zo complex als hun eigen video game of zo eenvoudig als hun eigen aangepaste knoppen . Echter , zelfs zoiets als een knop maken kan hebben een unieke uitstraling . Bijvoorbeeld met behulp van een paar regels code in Real Studio , een 3 - D effect kan worden gecreëerd dat simuleert een knop wordt naar beneden geduwd in de achtergrond . Instructies 1 Zoek de afbeeldingen die u wilt gebruiken voor uw 3 - D -toets . Je hebt minimaal twee : een om te vertegenwoordigen wanneer de knop niet is ingedrukt , en een ander te vertegenwoordigen wanneer de knop wordt ingedrukt . Hernoem deze beelden " PicButtonUp " en " PicButtonDown , " respectievelijk . Open Real Studio 2 en start een nieuw project . Dit gebeurt standaard als je niet een project te openen specificeren . Sleep de twee beelden in de witte ruimte in het midden van het programma . 3 Controleer om te zien dat je de " Window1 " tab geselecteerd aan de bovenkant van het scherm . Klik en sleep " Canvas " uit de lijst aan de linkerkant van het scherm om de grote witte ruimte in het midden . Het zal verschijnen als een blauw vak , en als je het ziet , dubbelklik erop . 4 Druk op de " Property Toevoegen" knop , gelegen in de rechterbovenhoek van het scherm . In de balk die verschijnt schrijven " MState " in de eerste witte ruimte , " String " in de tweede , en "up" in de derde . Voeg nog twee woningen , een met " mDownImage " in de eerste witte ruimte en " beeld " in de tweede , en een met " mUpImage " in de eerste witte ruimte en " beeld " in de tweede . < br > 5 Selecteer " Paint " uit de lijst aan de linkerkant en plak de volgende code in de witte ruimte in het midden van het programma . Selecteer Case mStatecase " up " als mUpImage < > nihil thenme.Graphics.DrawPicture mUpImage , 0 , 0end ifcase "down " als mDownImage < > nil thenme.Graphics.DrawPicture mDownImage , 0 , 0end IfEnd SelectEnd subsub Draw ( ) Select Case mStatecase " up " als mUpImage < > nil thenme.Graphics.DrawPicture mUpImage , 0 , 0end ifcase "down " als mDownImage < > nil thenme.Graphics.DrawPicture mDownImage , 0 , 0end IfEnd Select 6 Selecteer " Open" uit de lijst aan de linkerkant en plak de volgende code in de witte ruimte in het midden van het programma . MState = " up " mDownImage = PicButtonDownmUpImage = PicButtonUp 7 Klik op " MouseDown " uit de lijst aan de linkerkant , dan is de volgende code in de witte ruimte in het midden van het programma plakken . MState = "down " Select Case mStatecase " up " als mUpImage < > nil thenme.Graphics.DrawPicture mUpImage , 0 , 0end ifcase "down " als mDownImage < > nil thenme.Graphics.DrawPicture mDownImage , 0 , 0end IfEnd Selectreturn ware 8 Selecteer " MouseUp " uit de lijst aan de linkerkant en plak de volgende code in de witte ruimte in het midden van het programma; . dit zal je 3 - D knop voltooien als x > 0 en x < breedte en y > 0 en y < Hoogte vervolgens //Muisaanduiding binnenkant buttonmState = " up " end ifSelect Case mStatecase " up " als mUpImage < > nil thenme.Graphics.DrawPicture mUpImage , 0 , 0end ifcase "down " als mDownImage < > nil thenme.Graphics.DrawPicture mDownImage , 0 , 0end IfEnd Select
|