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

195 - Generar Texto con sombra y contorno

Ejemplo que dibuja en un control Picture o Form un texto al cual se le puede aplicar sombra y un contorno.

Formulario de ejemlplo

vista del formulario con el control picture y el texto con efecto

En el código, hay una rutina llamada Generar_Efecto que tiene tres parámetros. el primero es el objeto donde se dibujará, por ejemplo un Form o un PictureBox ( no lo probé con el objeto Printer pero calculo que debe andar). El segundo parámetro es el texto a dibujar, y el tercero es el tamaño del contorno.

Para especificar los colores de la sombra, contorno y el texto, especificar los valores a las variables: Color_Contorno, Color_Texto y Color_Sombra.

Para armar el ejemplo colocar en un Form los siguientes controles:

Un control CommonDialog1.
Un PictureBox Picture1.
Un Textbox Text1.
Un ComboBox Combo1.
Un ScrollBar HScroll1.
Por último 3 CommandButton en un arreglo para los colores, Command1(0), Command1(1) y Command1(2).

Código fuente en un formulario

Option Explicit ' Colores para la sombra, el texto y para el contorno Dim Color_Contorno As Long Dim Color_Texto As Long Dim Color_Sombra As Long 'Posición X y posición Y Dim PosX As Single Dim PosY As Single Private Sub Form_Load() Dim i As Integer 'Carga las fuentes del sistema en el ComboBox For i = 0 To Screen.FontCount - 1 Combo1.AddItem Screen.Fonts(i) Next Combo1 = "Verdana" ' Fuente por Default 'Propiedades del picture para la fuente y otros With Picture1 .ScaleMode = vbPixels .AutoRedraw = True .FontSize = 48 .FontBold = True End With 'Valores para el Tamaño del contorno HScroll1.Max = 5 HScroll1.Min = 1 'Colores iniciales del texto, sombra y contorno Color_Texto = &HC0FFC0 Color_Sombra = vbBlack Color_Contorno = &HFF8080 PosX = 10 PosY = 10 Me.Caption = " Ejemplo para aplicar sombra y contorno a un texto " Call Generar_Efecto(Picture1, Text1, HScroll1) End Sub 'Sub que crear el texto con el contorno y sombra '************************************************ Private Sub Generar_Efecto(ByVal Objeto As Object, _ ByVal Texto As String, _ size As Byte) Dim i As Integer, j As Integer Dim ix As Single, iy As Single With Objeto .Cls .FontName = Combo1 .CurrentX = PosX + 10 .CurrentY = PosY + 10 Objeto.ForeColor = Color_Sombra ' dibuja la sombra Objeto.Print Texto End With ix = Objeto.ScaleX(size, vbPixels, Objeto.ScaleMode) iy = Objeto.ScaleY(size, vbPixels, Objeto.ScaleMode) ' Dibuja el Contorno Objeto.ForeColor = Color_Contorno For i = -1 To 1 For j = -1 To 1 Objeto.CurrentX = PosX + i * ix Objeto.CurrentY = PosY + j * iy Objeto.Print Texto Next j Next i ' Dibuja el texto With Objeto .ForeColor = Color_Texto .CurrentX = PosY .CurrentY = PosX Objeto.Print Texto End With End Sub Private Sub Command1_Click(Index As Integer) ' Abre el CommonDialog para seleccionar color CommonDialog1.ShowColor Select Case Index Case 0 Color_Contorno = CommonDialog1.Color Case 1 Color_Texto = CommonDialog1.Color Case 2 Color_Sombra = CommonDialog1.Color End Select Command1(Index).BackColor = CommonDialog1.Color ' Dibuja el texto en el Picture Call Generar_Efecto(Picture1, Text1, HScroll1) End Sub Private Sub Combo1_Click() Call Generar_Efecto(Picture1, Text1, HScroll1) End Sub Private Sub HScroll1_Change() ' Dibuja el texto al cambiar el Tamaño de contorno Call Generar_Efecto(Picture1, Text1, HScroll1) End Sub Private Sub Text1_Change() 'Generamos el texto al cambiar el textbox Call Generar_Efecto(Picture1, Text1, HScroll1) End Sub

Recursos vb 6.0 - Enlaces relacionados

Buscar en Recursos vb