帮我将c＃代码转换为Vb代码 [英] Help me to convert c# code to Vb code

问题描述

Warning[] warnings;              
string[] streamids;
string mimeType;
string encoding;
string extension;

byte[] bytes = View.ReportViewer.LocalReport.Render("PDF", null, out mimeType, 
               out encoding, out extension, out streamids, out warnings);
            
FileStream fs = new FileStream(HttpContext.Current.Server.MapPath("output.pdf"), 
FileMode.Create);
fs.Write(bytes, 0, bytes.Length);
fs.Close();

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

int i = 0;
int p = 0;
int n = reader.NumberOfPages;
Rectangle psize = reader.GetPageSize(1);
 
float width = psize.Width;             
float height = psize.Height;

//Add Page to new document
while (i < n)
{
   document.NewPage();
   p++;
   i++;

   PdfImportedPage page1 = writer.GetImportedPage(reader, i);
   cb.AddTemplate(page1, 0, 0);
}

//Attach javascript to the document
PdfAction jAction = PdfAction.JavaScript("this.print(true);\r", writer);
writer.AddJavaScript(jAction);
document.Close();
                
//Attach pdf to the iframe
frmPrint.Attributes["src"] = "Print.pdf";

推荐答案

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

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 [ ^ ]

这篇关于帮我将c＃代码转换为Vb代码的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！