如果你需要转换代码，有一些在线代码转换器可以做的最多（如果不是全部的话）这份工作。这是我使用的那个：

http：//www.developerfusion。 com / tools / convert / csharp-to-vb / [ ^ ]

这是相反的：

http://www.developerfusion.com/tools/convert/vb-to-csharp/ [ ^ ]

If you need to convert code, there are on-line code converters which will do most (if not all) of the job. This is the one I use:
http://www.developerfusion.com/tools/convert/csharp-to-vb/[^]
And it's converse:
http://www.developerfusion.com/tools/convert/vb-to-csharp/[^]

Dim warnings As Warning()
Dim streamids As String()
Dim mimeType As String
Dim encoding As String
Dim extension As String

Dim bytes As Byte() = View.ReportViewer.LocalReport.Render("PDF", Nothing, mimeType, encoding, extension, streamids, _
	warnings)

Dim fs As New FileStream(HttpContext.Current.Server.MapPath("output.pdf"), FileMode.Create)
fs.Write(bytes, 0, bytes.Length)
fs.Close()

'Open existing PDF
Dim document As New Document(PageSize.LETTER)
Dim reader As New PdfReader(HttpContext.Current.Server.MapPath("output.pdf"))
'Getting a instance of new PDF writer
Dim writer As PdfWriter = PdfWriter.GetInstance(document, New FileStream(HttpContext.Current.Server.MapPath("Print.pdf"), FileMode.Create))
document.Open()
Dim cb As PdfContentByte = writer.DirectContent

Dim i As Integer = 0
Dim p As Integer = 0
Dim n As Integer = reader.NumberOfPages
Dim psize As Rectangle = reader.GetPageSize(1)

Dim width As Single = psize.Width
Dim height As Single = psize.Height

'Add Page to new document
While i < n
	document.NewPage()
	p += 1
	i += 1

	Dim page1 As PdfImportedPage = writer.GetImportedPage(reader, i)
	cb.AddTemplate(page1, 0, 0)
End While

'Attach javascript to the document
Dim jAction As PdfAction = PdfAction.JavaScript("this.print(true);" & vbCr, writer)
writer.AddJavaScript(jAction)
document.Close()

'Attach pdf to the iframe
frmPrint.Attributes("src") = "Print.pdf"

使用

SnippetConverter [ ^ ]





将VB转换为C＃或C＃转换为VB [ ^ ]