Imports System.Drawing Imports System.Drawing.Text Partial Class codigo_barras Inherits System.Web.UI.Page Protected Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click Dim family As FontFamily Dim pfc As PrivateFontCollection pfc = New PrivateFontCollection() pfc.AddFontFile("C:\Fonts\EAN-13.TTF") family = pfc.Families(0) TextBox1.Enabled = False TextBox1.Font = Font(family, 40.0F) TextBox2.Text = String.Format("*{0}*", "123456") End Sub End Class
TextBox1.Font = Font(family, 40.0F)
TextBox1.Font = New Font(family, 40.0F)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)