vb.net一行一行打印 vb每行打印10个数字

VB.NET怎么实现打印功能啊 呜呜（

利用 printdocument控件

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

PrintDocument1.Print()

End Sub

Private Sub PrintDocument1_PrintPage(sender As System.Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

Dim stringFont As New Font("Arial", 16)

Dim rectDraw As New RectangleF(e.MarginBounds.Left, e.MarginBounds.Top, e.MarginBounds.Width, e.MarginBounds.Height)

Dim strFormat As New StringFormat

Dim s As String

s = "print word" '打印的内容

e.Graphics.DrawString(s, stringFont, Brushes.AliceBlue, rectDraw, strFormat)

End Sub

相关问答

Q1: vb.net怎么从文本文档中读取一行数据，将文本输出到控制台？

以下示例一次从文件中读取一行，然后将每行文本打印到控制台。

Sub ReadTextLinesFromFile()

Dim file As New System.IO.StreamReader("c:test.txt")

Dim oneLine As String

oneLine = file.ReadLine()

While (oneLine "")

Console.WriteLine(oneLine)

oneLine = file.ReadLine()

End While

file.Close()

End Sub

Q2: vb.net Document_PrintPage打印多行文本

比如：

Private Sub Document_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)

e.Graphics.DrawString(str0, New Font("Arial", 14, FontStyle.Regular), Brushes.Black, 50, 50)

e.Graphics.DrawString(A1, New Font("Arial", 10, FontStyle.Regular), Brushes.Black,50, 100)

e.Graphics.DrawString(A2, New Font("Arial", 10, FontStyle.Regular), Brushes.Black, 300,100)

e.Graphics.DrawString(A3, New Font("Arial", 10, FontStyle.Regular), Brushes.Black, 800,100)

也就是分次用不同坐标和不同的字体来打印各变量。画线用：

e.Graphics.DrawLine(BlackPen, x1, y1, x2, y2)。

具体坐标数值自己用尺量出，再换算。

Q3: vb.net怎么打印执行代码行数

如何在VB.net中的应用程序运行打印行数

[英] how to print out line number during application run in VB.net

查看：341 发布时间：2015/11/25 16:05:39 .net vb.net debugging stack-trace line-numbers

万维广告联盟

🔐 杜绝删库跑路。一个平台登录所有资产，实现事先防范、事中控制、事后溯源，满足等保合规要求。

广告

本文介绍了如何在VB.net中的应用程序运行打印行数的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！

问题描述

我想打印出我的调试消息，在VB.net应用程序的行号。 我不喜欢这样，

Dim st As StackTrace

Dim sf As StackFramee

st = New StackTrace(New StackFrame(True))

sf = st.GetFrame(0)

Console.WriteLine.("Line " sf.GetFileLineNumber()）

我想把片段的一类，每次我打电话logMsg方法来记录我的消息，行号源$ C $ C。 但我发现，如果我把上面的代码段为一类，行数总是相同的，这是我新的'圣'。行

的功能是完全一样的具有_ 行的宏C ++。其实我是C ++程序员。

反正来解决这个问题？谢谢。

推荐答案

您已经证明是工作完全按预期的code。它打印在您拍摄的堆栈帧行的数目。因为你已经在不同的类中定义它，它打印包含类文件的行号。

在的getFrame 方法，在这里是非常重要的。栈帧起始编号是0，这是的最后的堆栈帧推。因此，参考帧0，则指示打印的最后的堆栈被推帧的行数的运行时间。当一个方法调用另一个，一个新的堆栈帧创建。

相反，你需要改变你的方法在几个重要方面。首先，你需要获得的第一个的框架被压入堆栈。第二，你可能要接受有关您回应异常含参数的信息。尝试重写你的调试方法看起来是这样的：

Public Sub PrintCurrentLine(ByVal ex As Exception)

Dim st As StackTrace = New StackTrace(ex)

Dim sf As StackFrame = st.GetFrame(st.FrameCount - 1)

Console.WriteLine("Line " sf.GetFileLineNumber())

End Sub

还要记住，如果你正在运行的code与优化启用，像行号可能已经改变。你总是需要包括PDB文件与您的code，它包含调试用于在这样的情况的信息。它映射优化code回到原来的来源。

这篇关于如何在VB.net中的应用程序运行打印行数的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！

vb.net一行一行打印的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb每行打印10个数字、vb.net一行一行打印的信息别忘了在本站进行查找喔。