Cómo hacer un botón de 3 -D en REALbasic

REALbasic es un lenguaje de programación orientado a objetos normalmente escrito en un paquete de software llamado Real Studio . Usando el lenguaje REALbasic , los usuarios pueden crear una amplia variedad de programas tan complejo como su propio juego de video o tan simple como sus propias tarjetas de felicitación personalizadas . Sin embargo , incluso la creación de algo así como un botón puede tener un aspecto único. Por ejemplo, con unas pocas líneas de código en Real Studio , un efecto 3 -D se puede crear un botón que simula ser empujado hacia abajo en el fondo. Instrucciones
1

Ubicar las imágenes que desea utilizar para la tecla 3 -D . Necesita al menos dos: uno para representar cuando no se presiona el botón, y otro para representar cuando se pulsa el botón. Cambiar el nombre de estas imágenes " PicButtonUp " y " PicButtonDown ", respectivamente .
2

abierto Real Studio y comenzar un proyecto nuevo. Esto sucederá de forma predeterminada si no se especifica un proyecto para abrir . Arrastre y suelte las dos imágenes en el espacio en blanco en el centro del programa.
3

Compruebe que dispone de la pestaña " Window1 " seleccionado en la parte superior de la pantalla. Haga clic y arrastre " lienzo " en la lista de la izquierda de la pantalla para el gran espacio en blanco en el centro. Aparecerá como una caja azul, y cuando lo ves , haga doble clic en él.
4

Pulse el botón " para agregar propiedades " , situado en la parte superior derecha de la pantalla. En la barra que aparece escriba " mstate " en el primer espacio en blanco , "String " en la segunda , y " arriba" en el tercero. Añada dos propiedades más , una con " mDownImage " en el primer espacio en blanco y la " foto" en la segunda , y la otra con " mUpImage " en el primer espacio en blanco y la " foto" en la segunda .

5

Seleccione " Paint " de la lista de la izquierda y pega el siguiente código en el espacio en blanco en el centro del programa.

Select Case mStatecase "arriba" si mUpImage < > nil thenme.Graphics.DrawPicture mUpImage , 0, 0end ifcase "abajo" si mDownImage < > nil thenme.Graphics.DrawPicture mDownImage , 0, 0end IfEnd SelectEnd subsub Draw ( ) Seleccione Case mStatecase "arriba" si mUpImage < > nil thenme.Graphics.DrawPicture mUpImage , 0, 0end ifcase "abajo" si mDownImage < > nil thenme.Graphics.DrawPicture mDownImage , 0, 0end IfEnd Select
6

Seleccione "Abrir" en la lista de la izquierda y pega el siguiente código en el espacio en blanco en el centro del programa.

mstate = "up" mDownImage = PicButtonDownmUpImage = PicButtonUp
7

clic " MouseDown " en la lista de la izquierda , a continuación, pegue el siguiente código en el espacio en blanco en el centro del programa.

mstate = "abajo" Select Case mStatecase "arriba" si mUpImage < > nil thenme.Graphics.DrawPicture mUpImage , 0, 0end ifcase "abajo" si mDownImage < > nil thenme.Graphics.DrawPicture mDownImage , 0, 0end IfEnd Selectreturn verdadera
8 < p> Seleccione " MouseUp " en la lista de la izquierda y pega el siguiente código en el espacio en blanco en el centro del programa; . esto completará la tecla 3 -D

si x > 0 y x < Ancho yy > 0 y < Altura then //El cursor del ratón dentro buttonmState = Case ifSelect final "arriba" mStatecase "arriba" si mUpImage < > nil thenme.Graphics.DrawPicture mUpImage , 0, ifcase 0end "abajo" si mDownImage < > nil thenme.Graphics.DrawPicture mDownImage , 0, 0end IfEnd Select