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

154 - Simular transparencia en CommandButton

Ejemplo que simula la transparencia en controles Command en un formulario con un gráfico de fondo

Para la transparencia, se utiliza un control PicturBox oculto que toma el gráfico de fondo de un Formulario.

Luego mediante un bucle se copia la porción de la imagen donde está ubicado el control command y se le aplica a la propiedad Picture del botón.

Obviamente los CommandButton deben estar con la propiedad Style en Graphical para poder establecerles dicho gráfico:

Nota: Si se cambia la propiedad FontSize del botón , modificar la variable Ancho del módulo.

Para el ejemplo colocar

un Arreglo de CommandButton
cargar un gráfico de fondo en el formulario

Código fuente en un Form:

Private Sub Form_Load() For i = Command1.lbound To Command1.ubound Call Aplicar_TRansparencia(Command1(i), Form1) Next i End Sub

Código fuente en un Módulo bas

Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Private Pic As PictureBox Sub Aplicar_TRansparencia(ByVal Cmd As CommandButton, f As Form) Dim Ancho As Single, Alto As Single Dim xo As Single, yo As Single If Pic Is Nothing Then Set Pic = f.Controls.Add("Vb.PictureBox", "UnPicture") With Pic .BorderStyle = vbBSNone .AutoRedraw = True .Visible = False End With End If Ancho = Cmd.Width Alto = Cmd.Height + f.TextHeight(Cmd.Caption) * 2 xo = GetSystemMetrics(7) yo = GetSystemMetrics(8) With Pic .Move 0, 0, Ancho, Alto .PaintPicture f.Picture, 0, 0, Ancho, Alto, Cmd.Left + xo, _ Cmd.Top + yo, Ancho, Alto .Picture = .Image Cmd.Picture = .Picture End With End Sub Private Sub Form_Unload(Cancel As Integer) Set Pic = Nothing End Sub

Recursos vb 6.0 - Enlaces relacionados

Botones transparentes con controles picturebox

Buscar en Recursos vb