用VS编写VB程序输出不了,求大神指导

2025-04-23 16:22:15
推荐回答(2个)
回答1:

vs中的vb是vb.net,你之前应该是会vb6吧,他们的语法差别蛮大的。比如你说的,vb6中函数的参数不用加括号,vb.net是需要的,并且vb.net中也没有Print这个函数,实在需要可以自己模拟一下。请尝试下面的代码:

Public Class Form1
    Dim texts As String

    Sub Print(text As String)
        texts &= text & vbCrLf
        Invalidate()
    End Sub

    Sub Clear()
        texts = ""
        Invalidate()
    End Sub

    Protected Overrides Sub OnPaint(e As PaintEventArgs)
        MyBase.OnPaint(e)
        If texts.Length > 0 Then e.Graphics.DrawString(texts, Me.Font, Brushes.Black, 0, 0)
    End Sub

    Private Sub Form1_Click(sender As Object, e As EventArgs) Handles Me.Click
        Print("clicked")
    End Sub

    Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
        Clear()
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Print("loaded")
    End Sub
End Class

回答2:

有个简单的方法,我一般是在窗体上放个label控件,然后把要输出的值赋值给label控件的caption属性,可以很方便的控制输出的格式位置等。