Sección de códigos , trucos y ejemplos para visual basic

251 - Crear sombra 3d en controles

Ejemplo que recorre los controles del formulario aplicando un efecto sombreado a los mismos

Parte del código e idea lo saqué de la web de Microsoft. El mismo mostraba como aplicar la sombra a un control. Yo le añadí algunas líneas para que lo haga en todos los controles del formulario: Textbox, botones, etc .. menos en los controles Label, Shape y Line (en este último genera un error asi como está plantedo el ejemplo, ya que no posee la propiedad Left y Top, para añadir esto hay que utilizar los valores x1, y1 de la línea) y comprobar que sea un control de tipo Line con la instrucción TypeOf

También le agregué para que pueda dibujar la sombra en controles que estén dentro de controles PictureBox, ya que si no no las dibujaba, porque tomaba como contenedor al formulario

vista del formulario de ejemplo pra aplicar la sombra3d

Nota: si los controles están contenidos en un control Frame, la sombra no se verá ya que se dibuja en el formulario o control Picture ( Contenedor del control )

Para indicar el color y valor para el ancho del sombreado, cambiar el valor a las constantes.

Código fuente en un Form:

Option Explicit 'Constantes para el ancho del sombreado y para el color Const ANCHO_SOMBRA As Integer = 5 Const COLOR_SOMBRA As Long = &H808080 Private Sub Form_Paint() ' Hace referencia al control _ y contenedor del control Dim El_Control As Control Dim Contenedor As Object 'Recorre en un bucle todos los controles del formulario For Each El_Control In Me.Controls ' Referencia al contenedor del control actual Set Contenedor = El_Control.Container ' Para no generar sombra en los controles Label, Shape y Line If Not TypeOf El_Control Is Label And _ Not TypeOf El_Control Is Shape And _ Not TypeOf El_Control Is Line Then _ 'Dibuja la sombra: Indicar el color y el grosor Call Generar_Sombra(Contenedor, El_Control, ANCHO_SOMBRA, COLOR_SOMBRA) End If Next ' Elimina la variable de objeto que hace referencia al control If Not El_Control Is Nothing Then El_Control = Nothing End If End Sub Private Sub Generar_Sombra(El_Contenedor As Object, _ El_Control As Control, _ Grosor_Sombra As Integer, _ COLOR_SOMBRA As Long) Dim X As Single Dim Y As Single Dim Ancho As Single Dim Alto As Single Dim Escala As Integer Dim Grosor As Integer Grosor = El_Contenedor.DrawWidth Escala = El_Contenedor.ScaleMode El_Contenedor.DrawWidth = 1 El_Contenedor.ScaleMode = vbPixels 'Valor de posición x y donde dibujar X = El_Control.Left + Grosor_Sombra Y = El_Control.Top + Grosor_Sombra 'Valor para el ancho y alto Ancho = El_Control.Width - 1 Alto = El_Control.Height - 1 'Dibuja la sombra en el contenedor del control El_Contenedor.Line (X, Y)-Step(Ancho, Alto), COLOR_SOMBRA, BF 'Restaura los valores para el ScaleMode y el DrawWidth _ del objeto (Picture o formulario) El_Contenedor.ScaleMode = Escala El_Contenedor.DrawWidth = Grosor End Sub Private Sub Form_Load() Me.Caption = " Generar sombra 3d en controles " End Sub

Recursos vb 6.0 - Enlaces relacionados

Buscar en Recursos vb