Ako si vyrobiť 3 - D tlačidlá v REALbasic

REALbasic je objektovo orientovaný programovací jazyk , typicky písané v softvérovom balíčku s názvom Skutočné Studio . Použitie jazyka REALbasic , môžu používatelia vytvárať širokú škálu programov tak zložité, ako svoje vlastné video hry , alebo tak jednoduché, ako ich vlastné vlastné tlačidlá . Avšak , dokonca vytvárať niečo ako tlačidlo môže mať jedinečný vzhľad . Napríklad pomocou niekoľkých riadkov kódu v reálnom Studio , 3 - D efekt môže byť vytvorený, ktoré simuluje tlačidlo je tlačená dole do pozadia . Pokyny dovolená 1

Vyhľadajte obrázky , ktoré chcete použiť pre vaše tlačidlom 3 - D . Vy potrebujete aspoň dva : jeden reprezentovať , pokiaľ nie je stlačené tlačidlo , a iný reprezentovať , keď je tlačidlo stlačené nadol . Premenujte tieto obrazy " PicButtonUp " a " PicButtonDown , " resp .
2

Otvoriť v reálnom Studio a spustiť nový projekt . To sa stane predvolenom nastavení , ak neuvediete projekt otvoriť . Drag and drop dva obrázky do prázdneho priestoru v centre programe .
3

Skontrolujte , či máte " window1 " kartu vybraného v hornej časti obrazovky . Kliknite a ťahajte " plátno " zo zoznamu na ľavej strane obrazovky na veľké biele priestor v centre . Bude to vyzerať ako modrá poľa , a keď ho vidíte , dvakrát kliknite na neho.
4

Stlačte tlačidlo , ktoré je umiestnené v pravom hornom rohu obrazovky " nehnuteľnosti Add " . V bare , ktorý sa zobrazí napísať " pomsta " v prvej biele miesto , " String " , v druhom a " až " v treťom . Pridať ďalšie dve vlastnosti , jeden s " mDownImage " v prvom bieleho priestoru a " obraz " v druhom , a jeden s " mUpImage " v prvom bieleho priestoru a " obraz " v druhej .

5

zvoľte " Maľovanie " zo zoznamu na ľavej strane a vložte nasledujúci kód do prázdneho priestoru v centre programe .

Select Case mStatecase " up " , ak mUpImage < > nil thenme.Graphics.DrawPicture mUpImage , 0 , 0end ifcase " down " , ak mDownImage < > nil thenme.Graphics.DrawPicture mDownImage , 0 , 0end ifend SelectEnd SubSub Draw ( ) Select Case mStatecase " up " , ak mUpImage < > nil thenme.Graphics.DrawPicture mUpImage , 0 , 0end ifcase " down " , ak mDownImage < > nil thenme.Graphics.DrawPicture mDownImage , 0 , 0end ifend Vyberte
6

Vyberte " Otvoriť " zo zoznamu vľavo a vložte nasledujúci kód do prázdneho priestoru v centre programe .

msta = " up " mDownImage = PicButtonDownmUpImage = PicButtonUp
7

Kliknite na " MouseDown " zo zoznamu na ľavej strane , potom vložte nasledujúci kód do prázdneho priestoru v centre programe .

msta = " dole " Select Case mStatecase " až " ak mUpImage < > nil thenme.Graphics.DrawPicture mUpImage , 0 , 0end ifcase " down " , ak mDownImage < > nil thenme.Graphics.DrawPicture mDownImage , 0 , 0end ifend Selectreturn pravda
8

Vyberte " MouseUp " zo zoznamu na ľavej strane a vložte nasledujúci kód do prázdneho priestoru v centre programu; . to bude vaša tlačidla 3 - D dokončenie

ak x > 0 a x < šírka a y > 0 a y < Výška then //Ukazovateľ myši sa vnútri buttonmState = " up " koniec ifSelect Case mStatecase " up " , ak mUpImage < > nil thenme.Graphics.DrawPicture mUpImage , 0 , 0end ifcase " down " , ak mDownImage < > nil thenme.Graphics.DrawPicture mDownImage , 0 , 0end ifend Vyberte

• Predchádzajúca strana: Ako vypĺňanie webových stránok v jazyku VBA 
• Ďalšia strana: Ako vytvoriť nový súbor databázy pomocou ADOX vo VB6