Código de Visual Basic - Fondo del formulario degradado

<<>>
Imágen de perfil

Fondo del formulario degradadográfica de visualizaciones


Visual Basic

estrellaestrellaestrellaestrellaestrella(8)
Publicado el 04 de Febrero del 2002 por Administrador
35.809 visualizaciones desde el 04 de Febrero del 2002. Una media de 49 por semana
Código que muestra el fondo de un formulario degradado.

Versión 1
estrellaestrellaestrellaestrellaestrella(8)

Publicado el 04 de Febrero del 2002gráfica de visualizaciones de la versión: Versión 1
35.810 visualizaciones desde el 04 de Febrero del 2002. Una media de 49 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

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
estrellaestrellaestrellaestrellaestrella
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
estrellaestrellaestrellaestrellaestrella
Esta bueno el codigo ya que no sabia como realizar este truco
Responder
polo peña
22 de Marzo del 2002
estrellaestrellaestrellaestrellaestrella
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
01 de Agosto del 2002
estrellaestrellaestrellaestrellaestrella
Y porque crees que no le ponen autor? .... se me hace que lo que no sabes es leer
Responder
Ratoncillo
06 de Agosto del 2002
estrellaestrellaestrellaestrellaestrella
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
01 de Octubre del 2004
estrellaestrellaestrellaestrellaestrella
Ha realizado una valoración negativa de este curso.
Responder
Matías Freire
29 de Junio del 2006
estrellaestrellaestrellaestrellaestrella
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
estrellaestrellaestrellaestrellaestrella
bacan piola men
Responder

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s15