如何在VB中打开控制台

Question

我现在有一个console application使用下图所示的设置.但是现在我希望打开多个表单,console所以我想知道我是否可以以某种方式打开多个表单或打开console一个Windows Forms Application

Answer 1

@tinstaafl可以分享这个额外的编程或解决方案的链接.谢谢

这里有几个链接:

控制台和WinForm一起使用,便于调试

控制台增强功能

这是第一个转换.您需要一个复选框名称为"CheckBox1"的表单:

Imports System.Runtime.InteropServices

Public Class Form1

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

    End Sub

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked Then
            Win32.AllocConsole()
            Console.WriteLine("Done!")
        Else
            Win32.FreeConsole()
        End If
    End Sub
End Class
Public Class Win32
    <DllImport("kernel32.dll")> Public Shared Function AllocConsole() As Boolean

    End Function
    <DllImport("kernel32.dll")> Public Shared Function FreeConsole() As Boolean

    End Function

End Class

每次单击您显示或隐藏控制台的复选框.您可以像任何控制台应用程序一样写入和读取.