BOTONES ESTILO
Páginas: 10 (2290 palabras)
Publicado: 10 de junio de 2015
Guille,
Loel
+ nuevo
la Web
del6 Visual Cómo
Basic,
C#, .NET
más...
Visual Basic
/>.NET
HTMLy/ Scripts
ASP.NET
Lenguajes
ADO.NET
Colaboraciones
Windows
Foros
.NET
Object 1
Botones al estilo de Office 97
y un pequeño truco para mostrar los ToolTips
Primera: 6/Ago/97, revisado: 7/Ago/97
Pulsa aquí para ver los cambios añadidos el 7/Ago/97
Espero que este pequeño "truco" te sirvapara dar el nuevo "look" de los botones de Office y VB5 a
tus programas.
Este código sirve igualmente para VB4-16 como para 32 bits, no lo he probado con VB3, pero
igualmente sirve, al menos si cambias la rutina del efecto 3D usando Parent en lugar de
Container....
El "truco" consiste en dibujar el botón cuando se está encima del botón, el ToolTip se hace
mediante un label que se oculta cuandono lo necesitamos y que se muestra cuando estamos
"encima" de uno de los botones.
Los botones son controles IMAGE y he usado para el ejemplo los gráficos que tengo para el
ToolBar al estilo Windows95.
Estos gráficos puedes "fabricartelo" tu mismo, incluso te lo recomendaría, ya que son un "poco"
pequeños y el efecto quedaría mejor si los bitmaps fuesen un poco más grandes. Pero para elejemplo este, son válidos.
Si quieres bajarte los gráficos, pulsa este link.
Para bajar los listados del ejemplo, pulsa en este otro (botones.zip 4.02 KB)
La rutina que hace el efecto 3D
El código del Form de ejemplo
Rutina del Efecto 3D
Option Explicit
'-------------------------------------------------'Efecto 3D (nueva versión)
( 5/Nov/94)
' Usando Container en lugar de Parent
( 3/Sep/96)'-------------------------------------------------Global Const E3D_INSET = 1
Global Const E3D_RAISED = 2
Sub Efecto3DN(QueEfecto As Integer, QueContenedor As Control, Optional
QueControl)
'-----------------------------------------------------'Explicación de los parámetros a pasar:
' QueEfecto
Puede tener los valores: E3D_INSET o E3D_RAISED (tipo
botón)
' ( 9/Nov/94)
Si QueEfecto > 10DrawWidth=2...
' QueContenedor Si el contenedor es una Forma, se pondrá el mismo
control,
'
sino se pone el control contenedor de QueControl
' QueControl
Control al que se le hará el efecto 3D
' (10/Nov/95)
QueControl es opcional, usandose Quecontenedor
'-----------------------------------------------------Dim
Dim
Dim
Dim
Dim
X As Long, Y As Long
CurrentX As Integer, CurrentY As Integer
Color_Gris AsLong, Color_Blanco As Long
Ltmp As Long
Bevel As Integer
If IsMissing(QueControl) Then
Set QueControl = QueContenedor
End If
Color_Gris = RGB(92, 92, 92)
Color_Blanco = RGB(255, 255, 255)
'Ancho de la línea
Bevel = 1
Do While QueEfecto > 10
QueEfecto = QueEfecto - 10
Bevel = Bevel + 1
Loop
If QueEfecto = E3D_RAISED Then
Ltmp = Color_Gris
Color_Gris = Color_Blanco
Color_Blanco = Ltmp
End If'Estilo Command
X = Screen.TwipsPerPixelX
Y = Screen.TwipsPerPixelY
CurrentX = QueControl.Left - X
CurrentY = QueControl.Top + QueControl.Height
'Si se dibuja un Frame...
(13/Nov/94)
If TypeOf QueControl Is Frame Then
Y = Y - 120
End If
If QueContenedor Is QueControl Then
With QueControl
.Container.DrawWidth = Bevel
.Container.Line (CurrentX, CurrentY)-(CurrentX, CurrentY),
Color_Gris.Container.Line -Step(0, -(.Height + Y)), Color_Gris
.Container.Line -Step(.Width + X, 0), Color_Gris
.Container.Line -Step(0, .Height + Y), Color_Blanco
.Container.Line -Step(-(.Width + X), 0), Color_Blanco
End With
Else
QueContenedor.DrawWidth = Bevel
QueContenedor.Line (CurrentX, CurrentY)-(CurrentX, CurrentY),
Color_Gris
QueContenedor.Line -Step(0, -(QueControl.Height + Y)), Color_GrisQueContenedor.Line -Step(QueControl.Width + X, 0), Color_Gris
QueContenedor.Line -Step(0, QueControl.Height + Y), Color_Blanco
QueContenedor.Line -Step(-(QueControl.Width + X), 0),
Color_Blanco
End If
End Sub
El código del Form de ejemplo
'----------------------------------------------------------------'Ejemplo para simular un toolbar al estilo de Office
( 5/Ago/97)
'(c)Guillermo Som, 1997...
Loel
+ nuevo
la Web
del6 Visual Cómo
Basic,
C#, .NET
más...
Visual Basic
/>.NET
HTMLy/ Scripts
ASP.NET
Lenguajes
ADO.NET
Colaboraciones
Windows
Foros
.NET
Object 1
Botones al estilo de Office 97
y un pequeño truco para mostrar los ToolTips
Primera: 6/Ago/97, revisado: 7/Ago/97
Pulsa aquí para ver los cambios añadidos el 7/Ago/97
Espero que este pequeño "truco" te sirvapara dar el nuevo "look" de los botones de Office y VB5 a
tus programas.
Este código sirve igualmente para VB4-16 como para 32 bits, no lo he probado con VB3, pero
igualmente sirve, al menos si cambias la rutina del efecto 3D usando Parent en lugar de
Container....
El "truco" consiste en dibujar el botón cuando se está encima del botón, el ToolTip se hace
mediante un label que se oculta cuandono lo necesitamos y que se muestra cuando estamos
"encima" de uno de los botones.
Los botones son controles IMAGE y he usado para el ejemplo los gráficos que tengo para el
ToolBar al estilo Windows95.
Estos gráficos puedes "fabricartelo" tu mismo, incluso te lo recomendaría, ya que son un "poco"
pequeños y el efecto quedaría mejor si los bitmaps fuesen un poco más grandes. Pero para elejemplo este, son válidos.
Si quieres bajarte los gráficos, pulsa este link.
Para bajar los listados del ejemplo, pulsa en este otro (botones.zip 4.02 KB)
La rutina que hace el efecto 3D
El código del Form de ejemplo
Rutina del Efecto 3D
Option Explicit
'-------------------------------------------------'Efecto 3D (nueva versión)
( 5/Nov/94)
' Usando Container en lugar de Parent
( 3/Sep/96)'-------------------------------------------------Global Const E3D_INSET = 1
Global Const E3D_RAISED = 2
Sub Efecto3DN(QueEfecto As Integer, QueContenedor As Control, Optional
QueControl)
'-----------------------------------------------------'Explicación de los parámetros a pasar:
' QueEfecto
Puede tener los valores: E3D_INSET o E3D_RAISED (tipo
botón)
' ( 9/Nov/94)
Si QueEfecto > 10DrawWidth=2...
' QueContenedor Si el contenedor es una Forma, se pondrá el mismo
control,
'
sino se pone el control contenedor de QueControl
' QueControl
Control al que se le hará el efecto 3D
' (10/Nov/95)
QueControl es opcional, usandose Quecontenedor
'-----------------------------------------------------Dim
Dim
Dim
Dim
Dim
X As Long, Y As Long
CurrentX As Integer, CurrentY As Integer
Color_Gris AsLong, Color_Blanco As Long
Ltmp As Long
Bevel As Integer
If IsMissing(QueControl) Then
Set QueControl = QueContenedor
End If
Color_Gris = RGB(92, 92, 92)
Color_Blanco = RGB(255, 255, 255)
'Ancho de la línea
Bevel = 1
Do While QueEfecto > 10
QueEfecto = QueEfecto - 10
Bevel = Bevel + 1
Loop
If QueEfecto = E3D_RAISED Then
Ltmp = Color_Gris
Color_Gris = Color_Blanco
Color_Blanco = Ltmp
End If'Estilo Command
X = Screen.TwipsPerPixelX
Y = Screen.TwipsPerPixelY
CurrentX = QueControl.Left - X
CurrentY = QueControl.Top + QueControl.Height
'Si se dibuja un Frame...
(13/Nov/94)
If TypeOf QueControl Is Frame Then
Y = Y - 120
End If
If QueContenedor Is QueControl Then
With QueControl
.Container.DrawWidth = Bevel
.Container.Line (CurrentX, CurrentY)-(CurrentX, CurrentY),
Color_Gris.Container.Line -Step(0, -(.Height + Y)), Color_Gris
.Container.Line -Step(.Width + X, 0), Color_Gris
.Container.Line -Step(0, .Height + Y), Color_Blanco
.Container.Line -Step(-(.Width + X), 0), Color_Blanco
End With
Else
QueContenedor.DrawWidth = Bevel
QueContenedor.Line (CurrentX, CurrentY)-(CurrentX, CurrentY),
Color_Gris
QueContenedor.Line -Step(0, -(QueControl.Height + Y)), Color_GrisQueContenedor.Line -Step(QueControl.Width + X, 0), Color_Gris
QueContenedor.Line -Step(0, QueControl.Height + Y), Color_Blanco
QueContenedor.Line -Step(-(QueControl.Width + X), 0),
Color_Blanco
End If
End Sub
El código del Form de ejemplo
'----------------------------------------------------------------'Ejemplo para simular un toolbar al estilo de Office
( 5/Ago/97)
'(c)Guillermo Som, 1997...
Leer documento completo
Regístrate para leer el documento completo.