Para trabajar con este ejemplo, vamos a utilizar el mismo Webform que para el ejemplo 2, en el diseño, le vamos a agregar un nuevo Textbox al cual llamaremos Txt_Formato y vamos a eliminar el Lst_Formato (RadioButtonList).
Y en el código vamos a quitar el fragmento de código que utilizábamos para variar el formato (el select case)
Select Case Lst_Formato.SelectedIndex
Case 0
FUENTE.SetStyle(16)
Case 1
FUENTE.SetStyle(iTextSharp.text.Font.UNDERLINE)
Case 2
FUENTE.SetStyle(iTextSharp.text.Font.ITALIC)
End Select
Y lo vamos a sustituir con esta línea de código:
FUENTE.SetStyle(CInt(Txt_Formato.Text))
Con esto, vamos a poder ver los diferentes estilos de fuente, colocando en el textbox el número entero que represente el estilo.
Archivo Formatos.aspx
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Formatos.aspx.vb" Inherits="Formatos" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>Página sin título</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:TextBox ID="Txt_Mitexto" runat="server" Height="122px" TextMode="MultiLine" Width="462px"></asp:TextBox>
</div>
<asp:TextBox ID="Txt_Formato" runat="server"></asp:TextBox><br />
<asp:Button ID="Cmd_PDF" runat="server" Text="Button" />
</form>
</body>
</html>
Archivo Formatos.aspx.vb
Imports System
Imports System.IO
Imports iTextSharp.text
Imports iTextSharp.text.pdf
Partial Class Formatos
Inherits System.Web.UI.Page
Protected Sub Cmd_PDF_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Cmd_PDF.Click
Dim Doc As Document = New Document
Dim WRITER As iTextSharp.text.pdf.PdfWriter
WRITER = PdfWriter.GetInstance(Doc, New FileStream("C:\Inetpub\Isharp\File" & ".pdf", FileMode.Create))
Doc.Open()
Dim FUENTE As New Font
FUENTE.Size = 14
FUENTE.SetStyle(CInt(Txt_Formato.Text))
Doc.Add(New Paragraph(Txt_Mitexto.Text, FUENTE))
Doc.Close()
Response.Redirect("file.pdf")
End Sub
End Class
El resultado de este ejemplo es una página en la cual el usuario puede teclear cualquier texto, y asignarle un estilo que se vera reflejado al momento de generar el archivo PDF.
No hay comentarios:
Publicar un comentario