Torna al Thread

' Crea caratteri Dim titlefont As New XFont("Times New Roman", 12, XFontStyle.Bold) Dim tableheader As New XFont("Times New Roman", 16, XFontStyle.Bold) Dim bodyfont As New XFont("Times New Roman", 10, XFontStyle.Regular) ' Disegnare il testo Dim x As Double = 150 '250 Dim y As Double = 20 Dim width As Double = 600 Dim height As Double = 25 Dim textformater As New XTextFormatter(xGrap) 'Utilizzato per mantenere l'area del testo personalizzato For i = 0 To ds_Riferimenti.Tables(0).Rows.Count - 1 Dim Visto As String = ds_Riferimenti.Tables(0).Rows(i).Item(0) Dim Riferimento As String = ds_Riferimenti.Tables(0).Rows(i).Item(1) textformater.DrawString(Visto, bodyfont, XBrushes.Black, New XRect(20, y, width, height), XStringFormats.TopLeft) textformater.DrawString(Riferimento, bodyfont, XBrushes.Black, New XRect(80, y, width, height), XStringFormats.TopLeft) y = y + 10 Next
Copyright © dotNetHell.it 2002-2017
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5