Ejemplos usando el Api de windows para Visual basic

21 - Ejemplo para imprimir o dibujar un texto en un formulario o un picturebox

Contenido

Ejemplo 1
Ejemplo 2
Relacionados

Ejemplo 1

Ejemplo simple de como podemos escribir o imprimir en un formulario en un objeto que posea la propiedad Hdc (dispositivo de contexto), como los PictureBox y los formularios, una cadena de texto

Esto creo que sería exactamente igual y equivalente a utilizar el método Print de Visual Basic. Por ejemplo como la siguiente imagen:

dibujar texto en un formulario mediante el Api

Controles :

Colocar 2 TextBox, 2 Command y un combo

Código fuente en el form

Option Explicit ' Funciones Api Private Declare Function BeginPath Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" ( _ ByVal hdc As Long, _ ByVal x As Long, _ ByVal y As Long, _ ByVal lpString As String, _ ByVal nCount As Long) As Long Private Declare Function EndPath Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function StrokePath Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long Private Sub Command1_Click() ' para limpiar el formulario Me.Cls End Sub Private Sub Command2_Click() Dim hBrush As Long Dim oldBrush As Long Dim sText As String sText = Text1 With Me .Cls 'Establecemos la fuente Me.FontName = "Times New Roman" Me.FontSize = CByte(Text2) 'Establecemos la escala en pixeles para el formulario Me.ScaleMode = vbPixels 'Creamos un pincel de acuerdo al color seleccionado en el combo 'para el color de la fuente Select Case Combo1.Text Case "Azul": .ForeColor = vbBlue Case "Rojo": .ForeColor = vbRed Case "Verde": .ForeColor = vbGreen End Select 'open a path bracket BeginPath .hdc 'Especificamos el hdc, en este caso el formulario 'los 2 siguientes son las coordenadas x e y 'Luego el texto osea la cadena y le tenemos que pasar el tamaño de la misma TextOut .hdc, 0, 0, sText, Len(sText) EndPath .hdc ' Imprimimos en el formulario el texto especificando el destino osea el Hdc StrokePath .hdc 'eliminamos el objeto DeleteObject hBrush End With End Sub Private Sub Form_Load() With Combo1 .AddItem "Azul" .AddItem "Rojo" .AddItem "Verde" .ListIndex = 0 End With Command1.Caption = "Limpiar" Command2.Caption = "Dibujar" Text1 = "" Text2 = 30 End Sub

Ejemplo 2

Este proyecto lo envió Luis Nuñez de Chile, y es un ejemplo que usa las funciones TextOut, EndPath, BeginPath y otros para dibujar en un picturebox un texto con algunas otras opciones como indicar el contorno, el relleno, tamaño, inclinación

Descargar

Enlaces relacionados:

Buscar en Recursos vb