Código:
de esta forma funciona pero el texto es muy feo...<!--#include file="canvas.asp"--> <!--#include file="font.asp"--> <% Dim objCanvas, Texto, Ancho Texto = "asdzxc" Ancho = (len(Texto) * 12) - 10 Set objCanvas = New Canvas objCanvas.GlobalColourTable(0) = RGB(255,255,255) objCanvas.GlobalColourTable(1) = RGB(0,0,0) objCanvas.BackgroundColourIndex = 0 objCanvas.ForegroundColourIndex = 1 objCanvas.Resize Ancho,12,True objCanvas.DrawVectorTextWE 0,0,Texto,2 objCanvas.Write %>
según lo que he visto o he leido para cambiar la fuente es de esta forma:
Código:
pero la verdad no me muestra nada. si alguien sabe por que pasa esto y como remediarlo por favor helpme! ... gracias <!--#include file="canvas.asp"--> <!--#include file="extra_fonts/courier_10_point.asp" --> <% Dim objCanvas, Texto, Ancho Texto = "asdzxc" Ancho = (len(Texto) * 12) - 10 Set objCanvas = New Canvas objCanvas.GlobalColourTable(0) = RGB(255,255,255) objCanvas.GlobalColourTable(1) = RGB(0,0,0) objCanvas.BackgroundColourIndex = 0 objCanvas.ForegroundColourIndex = 1 objCanvas.Resize Ancho,12,True objCanvas.DrawVectorTextWE 0,0,Texto,2 objCanvas.Write %>