generar sombras en un Form.

[guif]

Como genero una sombra en los TextBox????

He encontrado este articulo: http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/251-crear-sombra-3d-en-controles.htm

pero seaplica a todos los controles.
Se puede aplicar solo a los TextBox??

gracias!

[GeoAvila]

1. Código:

2. If Not TypeOf El_Control Is Label And _
3. Not TypeOf El_Control Is Shape And _
4. Not TypeOf El_Control Is Line Then _
5. 'Dibuja la sombra: Indicar el color y el grosor
6. Call Generar_Sombra(Contenedor, El_Control, ANCHO_SOMBRA, COLOR_SOMBRA)
7. End If

[seba123neo]

Hola,donde dice:

Código:

If Not TypeOf El_Control Is Label

tenes que cambirlo por los controles que NO queres que tengan la sombra,en este caso el label esta indicado que no tenga..

saludos.

[GeoAvila]

Iniciado por seba123neo

Hola,donde dice:

Código:

If Not TypeOf El_Control Is Label

tenes que cambirlo por los controles que NO queres que tengan la sombra,en este caso el label esta indicado que no tenga..

saludos.

bueno es otra opción pero creo que es mejor poner únicamente el que se desea a bloquear todos los que no...

pero buena opción seba.

nos vemos..

[guif]

gracias cracks!

aunque me da un error en la liniea:

Grosor = El_Contenedor.DrawWidth

el error es: Object doesn't suppor this property ir method

[seba123neo]

hola,no se como lo estas haciendo pero el codigo seria asi para solo los textbox..

Código:

Option Explicit

Const ANCHO_SOMBRA As Integer = 5
Const COLOR_SOMBRA As Long = &H808080


Private Sub Form_Paint()

Dim El_Control As Control
Dim Contenedor As Object

For Each El_Control In Me.Controls

    Set Contenedor = El_Control.Container

    If TypeOf El_Control Is TextBox Then

       Call Generar_Sombra(Contenedor, El_Control, ANCHO_SOMBRA, COLOR_SOMBRA)
    
    End If

Next

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

    X = El_Control.Left + Grosor_Sombra
    Y = El_Control.Top + Grosor_Sombra

    Ancho = El_Control.Width - 1
    Alto = El_Control.Height - 1

    El_Contenedor.Line (X, Y)-Step(Ancho, Alto), COLOR_SOMBRA, BF

    El_Contenedor.ScaleMode = Escala
    El_Contenedor.DrawWidth = Grosor
    
End Sub

saludos.