Separando código redundante de la función de generador de pdf
Esta es una aplicación vb.net que utiliza la biblioteca itextsharp. Lo que estoy encontrando es que el siguiente código se está volviendo tremendamente redundante, lo que en mi opinión no es una forma limpia de hacer las cosas. Pero parece que no puedo encontrar la manera de separarlo en una función separada en la que simplemente pasaría la cadena, x_Cord, y_Cord, incline y tenga a) al pasarla entra como una matriz o b) lo hace para cada línea que lo necesite ... La función luego devolvería la información necesaria para los ContentBytes ... A continuación es muy similar a lo que estoy terminando siendo muy redundante.
Dim cb As PdfContentByte = writer.DirectContent
Incluí lo anterior simplemente para mostrar lo que se declara cb en cuanto a claridad.
cb.BeginText()
cb.SetFontAndSize(Californian, 36)
cb.ShowTextAligned(PdfContentByte.ALIGN_CENTER, "CERTIFICATE OF COMPLETION", 396, 397.91, 0)
cb.SetFontAndSize(Bold_Times, 22)
cb.ShowTextAligned(PdfContentByte.ALIGN_CENTER, name, 396, 322.35, 0)
cb.SetFontAndSize(Bold_Times, 16)
cb.ShowTextAligned(PdfContentByte.ALIGN_CENTER, _hours + " Hours", 297.05, 285.44, 0)
cb.SetFontAndSize(Bold_Times, 16)
cb.ShowTextAligned(PdfContentByte.ALIGN_CENTER, _dates, 494.95, 285.44, 0)
cb.SetFontAndSize(Bold_Times, 16)
cb.ShowTextAligned(PdfContentByte.ALIGN_CENTER, _class1, 396, 250.34, 0)
If Not String.IsNullOrWhiteSpace(_class2) Then
cb.SetFontAndSize(Bold_Times, 16)
cb.ShowTextAligned(PdfContentByte.ALIGN_CENTER, _class2, 396, 235.34, 0)
End If
cb.SetFontAndSize(Copper, 16)
cb.ShowTextAligned(PdfContentByte.ALIGN_CENTER, _conf_num + _prefix + " Annual Conference " + _dates, 396, 193.89, 0)
cb.SetFontAndSize(Bold_Times, 13)
cb.ShowTextAligned(PdfContentByte.ALIGN_CENTER, "Some Name", 396, 175.69, 0)
cb.SetFontAndSize(Bold_Times, 10)
cb.ShowTextAligned(PdfContentByte.ALIGN_CENTER, "Some Company Manager", 396, 162.64, 0)
cb.EndText()
¿Alguna idea sobre cómo hacer esto en una función propia?