ProgramasVb6
  Shape
 

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:

  1. Option Explicit  
  2.   
  3. Private Sub Form_Load()  
  4.   
  5.     Me.ScaleMode = 1  
  6.     Frame1.BorderStyle = 0  
  7.   
  8.     'metemos el shape dentro del Frame en _  
  9.     tiempo de ejecución mediante la propiedad container  
  10.     Set Shape1.Container = Frame1  
  11.   
  12.     With Shape1  
  13.         .BackStyle = 0  
  14.         .BorderWidth = 3  
  15.         .Top = 10  
  16.         .Left = 10  
  17.         .Width = Frame1.Width - 35  
  18.         .Height = Frame1.Height - 35  
  19. End With  
  20.   
  21.     'le establecemos algunos colores al fondo y al borde  
  22.     Frame1.BackColor = vbBlack  
  23.     Shape1.BorderColor = vbWhite  
  24.   
  25. 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:

  1. Private Sub Form_Load()  
  2.   
  3.   
  4. For i = 0 To Text1.Count - 1  
  5.       
  6.     'Algunas propiedades opcionales del textBox  
  7.       
  8.     'Le eliminamos le borde  
  9.     Text1(i).BorderStyle = 0  
  10.       
  11.     Text1(i).BackColor = &H80000003  
  12.     Text1(i).ForeColor = vbWhite  
  13.       
  14.     'Crea un nuevo Shape en tiempo de ejecución  
  15.     Load Shape1(i + 1)  
  16.          Shape1(i).Visible = True  
  17.          'ancho del borde del shape  
  18.          Shape1(i).BorderWidth = 5  
  19.          'color del borde  
  20.          Shape1(i).BorderColor = &HC0FFC0  
  21.            
  22.          'Posiciona el Shape en la ubicación del TextBox  
  23.          Shape1(i).Move Text1(i).Left, _  
  24.                         Text1(i).Top, _  
  25.                         Text1(i).Width, _  
  26.                         Text1(i).Height  
  27.   
  28.                              
  29. Next  
  30.   
  31. End Sub  

 

  
  ProgramasVb Copyright. 2011-2012 All Right Reserved  
 
Este sitio web fue creado de forma gratuita con PaginaWebGratis.es. ¿Quieres también tu sitio web propio?
Registrarse gratis