Fondo del formulario degradado
Visual Basic
Publicado el 4 de Febrero del 2002 por Administrador (718 códigos)
40.511 visualizaciones desde el 4 de Febrero del 2002
Código que muestra el fondo de un formulario degradado.
Iniciar sesiónCrear cuenta
Crear cuenta
Comentarios sobre la versión: Versión 1 (8)
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.
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