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

12 - Cambiar el color de los bordes de un Frame y un TextBox simulándolos mediante un control Shape

Contenido:

Para un control Frame
Para un control TextBox
Ejemplos relacionados

Establecer borde a un Frame

Este simple ejemplo muestra como podemos simular mediante un control Shape, para poder cambiar el color de borde de un control Frame. También mas abajo hay un ejemplo prácticamente identico para simular y cambiar el color de borde en un TexBox

Controles

Colocar un control Shape llamado Shape1
un control Frame llamado Frame1

Código fuente en un Formulario:

Option Explicit Private Sub Form_Load() Me.ScaleMode = 1 Frame1.BorderStyle = 0 'metemos el shape dentro del Frame en _ tiempo de ejecución mediante la propiedad container Set Shape1.Container = Frame1 With Shape1 .BackStyle = 0 .BorderWidth = 3 .Top = 10 .Left = 10 .Width = Frame1.Width - 35 .Height = Frame1.Height - 35 End With 'le establecemos algunos colores al fondo y al borde Frame1.BackColor = vbBlack Shape1.BorderColor = vbWhite End Sub

Ejemplo para el TextBox

Colocar un arreglo de controles TextBox y un shape1. Al Shape en la propiedad index establecerle el valor 0 para poder crearlo en tiempo de ejecución.

Nota: en este enlace hay un simple control ocx que simula los textbox windows xp similar a lo que hace este ejemplo utilizando los frame para los bordes

La vista sería algo por el estilo:

vista del formulario con los bordes cambiados de color

Código fuente del form:

Private Sub Form_Load() For i = 0 To Text1.Count - 1 'Algunas propiedades opcionales del textBox 'Le eliminamos le borde Text1(i).BorderStyle = 0 Text1(i).BackColor = &H80000003 Text1(i).ForeColor = vbWhite 'Crea un nuevo Shape en tiempo de ejecución Load Shape1(i + 1) Shape1(i).Visible = True 'ancho del borde del shape Shape1(i).BorderWidth = 5 'color del borde Shape1(i).BorderColor = &HC0FFC0 'Posiciona el Shape en la ubicación del TextBox Shape1(i).Move Text1(i).Left, _ Text1(i).Top, _ Text1(i).Width, _ Text1(i).Height Next End Sub

Recursos vb 6.0 - Enlaces relacionados

Buscar en Recursos vb