1

我正在设计一个窗体。我有输出显示在它自己的表单上。尝试使用打印，但它不起作用。我怎么做？

我没有打印表格。

添加：我需要在每个数字旁边显示 3 个带有文本字符串的数字。我想以一种在表单中显示或在表单中显示标签的方式执行此操作，而不会覆盖以前的结果。

例子：

    3 (wrong) 1 (right) 8 (wrong)
    2 (wrong) 1 (right) 5 (right)
    9 (right) 1 (right) 5 (right)

补充：感谢大家的帮助。还有一个问题，我认为我很好。

我正在考虑在循环中做这样的事情，问题是我不能将一个字符串和一个 int 一起添加来创建一个新的 var：Xnum1 = Xnum1 + 50

    Xnum2 = Xnum1 + ".0F"

    Ynum1 = Ynum1 + 50

    Ynum2 = Ynum1 + ".0F"
4

2 回答 2

1

在 VB6 中，您可以使用该Print语句绘制到窗体的表面。但是，在 VB.NET 中，您应该使用该 Form.CreateGraphics方法创建一个新Graphics对象，该对象可用于绘制到窗体的表面。例如：

Private Sub PrintText(text As String, x As Single, y As Single)
    Dim g As Graphics = Me.CreateGraphics()
    g.DrawString(text, New Font("Arial", 16), New SolidBrush(Color.Black), New PointF(x, y))
End Sub

Print这与使用 VB6语句最接近。

但是，我强烈建议使用控件来显示数据。看起来您需要显示的数据，一个简单的多行文本框或标签就足够了。例如：

Private Sub AppendResult(index As Integer, right As Boolean)
    If right Then
        TextBox1.Text = TextBox1.Text & " " & index.ToString() & " (right)"
    Else
        TextBox1.Text = TextBox1.Text & " " & index.ToString() & " (wrong)"
    End If
End Sub

如果你想变得更花哨，你可以考虑使用数据网格、列表框、列表视图，甚至是表格​​布局控件。

于 2012-12-10T16:09:27.203 回答
1

我相信最有效的方法是使用6 列的tableLayoutPanel 。在每个单元格中添加一个标签，在第一个单元格中显示数字，在第二个单元格中显示该数字的指示符（正确/错误）。对第二个和第三个数字做同样的事情。（第二个数字=第三个和第四个单元格，第三个数字=第五个和第六个单元格）

对于下一组数字，您可以在每个单元格中添加带有标签的新行。

我将添加一些代码以使我的答案更专业。

首先，在表单中添加 tableLayoutPanel。您可以随意调整它的大小（使其宽度足够长以处理数据）删除 lastRow 然后添加列（您希望有 6 列）。您将列的大小编辑为 Percentage =16.67%

Public Class Form1

Private rowIndex
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    For i = 0 To 4 Step 2
        Dim val As Integer = 3
        AddLabels(val, i, 0)
    Next
    For i = 1 To 5 Step 2
        Dim val As String = "right"
        AddLabels(val, i, 0)
    Next
End Sub

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


    Me.TableLayoutPanel1.RowStyles.Add(New RowStyle(SizeType.Absolute, 30))
    Me.TableLayoutPanel1.Height = Me.TableLayoutPanel1.Height + 30
    For i = 0 To 4 Step 2
        Dim val As Integer = 3 'here you have to put your number
        AddLabels(val, i, rowIndex)
    Next
    For i = 1 To 5 Step 2
        Dim val As String = "right" 'here you have to put your indicator
        AddLabels(val, i, rowIndex)
    Next

End Sub


Private Sub AddLabels(ByVal lblValue As String, ByVal column As Integer, ByVal row As Integer)
    Dim lblHeader As New Label
    lblHeader.AutoSize = True
    lblHeader.Margin = New Padding(0)
    lblHeader.BackColor = Color.Transparent
    lblHeader.TextAlign = ContentAlignment.MiddleLeft
    lblHeader.Dock = DockStyle.None
    lblHeader.Text = lblValue

    'Put the lblHeader in the right cell
    Dim lblHeaderPos As New TableLayoutPanelCellPosition(column, row)
    TableLayoutPanel1.SetCellPosition(lblHeader, lblHeaderPos)
    TableLayoutPanel1.Controls.Add(lblHeader)

End Sub

如果您遇到任何问题，请告诉我。

此外，如果您不知道要添加多少行，请将 tableLyoutPanel 放在面板中。使面板的属性 AutoScroll=True 然后您可以添加无限数量的新行。

于 2012-12-10T16:24:50.683 回答