Código de Visual Basic - Fondo del formulario degradado

Fondo del formulario degradado

Visual Basic

(8)

Publicado el 4 de Febrero del 2002 por Administrador (718 códigos)

40.788 visualizaciones desde el 4 de Febrero del 2002

Código que muestra el fondo de un formulario degradado.

Versión 1
(8)

Publicado el 4 de Febrero del 2002

gráfica de visualizaciones de la versión: Versión 1

40.789 visualizaciones desde el 4 de Febrero del 2002

Si alguno de los archivos de descarga no funciona, comentanos aquí el error.

Comentarios sobre la versión: Versión 1 (8)

Blas Tovar

18 de Febrero del 2002

el codigo esta muy bien, o mejor dicho la idea pero estuve probandolo y me di cuenta que tiene un pequeñó error. cuando ejecutas en form. la degradación se queda del mismo tamaño del formulario en tiempo de edicion, y cuando agrandas en form en tiempo de edición y lo ejecutas, la degradacion cambia tambien de tamaño, yo creo que deberia ser de esta manera: una vez que ejecutes el form la degradación deberia tener el mismo tamaño del form en tiempo de ejecución.

Responder

Alcides

28 de Febrero del 2002

Esta bueno el codigo ya que no sabia como realizar este truco

Responder

polo peña

22 de Marzo del 2002

lo felicito, creo sabe buscar al igual que yo en los códigos que VISUAL BASIC instala.

El código puesto en la página pertenece a Kid de instalación, en el proyecto setup1.

Ademas para que funcione de una manera adecuada con las dimensiones del formulario cada vez que este se modifique, el còdigo debe colocarse delntro del "RESIZE" del form.

Responder

Bandido

1 de Agosto del 2002

Y porque crees que no le ponen autor? .... se me hace que lo que no sabes es leer

Responder

Ratoncillo

6 de Agosto del 2002

Hola mi querido ratoncillo espero que sigas robandote los codigos de otros programas ya que asi te convertiras en todo un programador por tanta practica al leerlos y ejecutarlos.

Responder

Luis Daniel

1 de Octubre del 2004

Ha realizado una valoración negativa de este curso.

Responder

Matías Freire

29 de Junio del 2006

Che, el código está bueno, pero tenía un problema: si cambias el tamaño del form, se veía el degradado sólo en una porcion del mismo. lo que hice fue pasar todas las variables y constantes como publicas del form, y el código que dibuja las lineas lo puse en el evento Resize del form. ahora sí funciona Ok. acá te paso como quedó:

Option Explicit
'www.lawebdelprogramador.com

Const intBLUESTART% = 255
Const intBLUEEND% = 0
Const intBANDHEIGHT% = 2
Const intSHADOWSTART% = 8
Const intSHADOWCOLOR% = 0
Const intTEXTSTART% = 4
Const intTEXTCOLOR% = 15

Dim sngBlueCur As Single
Dim sngBlueStep As Single
Dim intFormHeight As Integer
Dim intFormWidth As Integer
Dim intY As Integer

Private Sub Form_Resize()
'
'Obtiene los valores del sistema para anchura y altura
'
intFormHeight = ScaleHeight
intFormWidth = ScaleWidth

'
'Calcula el tamaño del paso y el valor de azul inicial
'
sngBlueStep = intBANDHEIGHT * (intBLUEEND - intBLUESTART) / intFormHeight
sngBlueCur = intBLUESTART

'
'Dibuja la pantalla azul
'
For intY = 0 To intFormHeight Step intBANDHEIGHT
Line (-1, intY - 1)-(intFormWidth, intY + intBANDHEIGHT), RGB(sngBlueCur, 0, 0), BF
sngBlueCur = sngBlueCur + sngBlueStep
Next intY

End Sub

Responder

shonatan becerra torres

20 de Febrero del 2008

bacan piola men

Responder