vb可以写控制台应用程序么？

Question

vb可以写控制台应用程序么？

Answer 1

写控制台程序推荐使用C或C++，VB好像不成，不过可以试试TB

Answer 2

设计时把窗体移除，加个模块，里面写Sub Main()
Shell "command.com", vbNormalFocus
End
End Sub

Answer 3

VB想写，只能这样来了，参数可以加上COMMAND。COM能识别的命令。如果想写VC那样的控制台程序，可以通过生成。BAT然后调用来解决。

Answer 4

dos下的不行或者用Shell打开一个控制台界面,直接执行控制台命令
或者用Pipe实现自己的控制台

Answer 5

或者用Command接受参数或者用Pipe的API实现一个自己的控制台
Option ExplicitPrivate Declare Function AllocConsole Lib "kernel32" () As LongPrivate Declare Function FreeConsole Lib "kernel32" () As LongPrivate Declare Function GetStdHandle Lib "kernel32" _
(ByVal nStdHandle As Long) As LongPrivate Declare Function ReadConsole Lib "kernel32" Alias _
"ReadConsoleA" (ByVal hConsoleInput As Long, _
ByVal lpBuffer As String, ByVal nNumberOfCharsToRead As Long, _
lpNumberOfCharsRead As Long, lpReserved As Any) As LongPrivate Declare Function SetConsoleMode Lib "kernel32" (ByVal _
hConsoleOutput As Long, dwMode As Long) As LongPrivate Declare Function SetConsoleTextAttribute Lib _
"kernel32" (ByVal hConsoleOutput As Long, ByVal _
wAttributes As Long) As LongPrivate Declare Function SetConsoleTitle Lib "kernel32" Alias _
"SetConsoleTitleA" (ByVal lpConsoleTitle As String) As LongPrivate Declare Function WriteConsole Lib "kernel32" Alias _
"WriteConsoleA" (ByVal hConsoleOutput As Long, _
ByVal lpBuffer As Any, ByVal nNumberOfCharsToWrite As Long, _
lpNumberOfCharsWritten As Long, lpReserved As Any) As LongPrivate Const STD_INPUT_HANDLE = -10&
Private Const STD_OUTPUT_HANDLE = -11&
Private Const STD_ERROR_HANDLE = -12&Private Const FOREGROUND_BLUE = &H1
Private Const FOREGROUND_GREEN = &H2
Private Const FOREGROUND_RED = &H4
Private Const FOREGROUND_INTENSITY = &H8
Private Const BACKGROUND_BLUE = &H10
Private Const BACKGROUND_GREEN = &H20
Private Const BACKGROUND_RED = &H40
Private Const BACKGROUND_INTENSITY = &H80'For SetConsoleMode (input)
Private Const ENABLE_LINE_INPUT = &H2
Private Const ENABLE_ECHO_INPUT = &H4
Private Const ENABLE_MOUSE_INPUT = &H10
Private Const ENABLE_PROCESSED_INPUT = &H1
Private Const ENABLE_WINDOW_INPUT = &H8
'For SetConsoleMode (output)
Private Const ENABLE_PROCESSED_OUTPUT = &H1
Private Const ENABLE_WRAP_AT_EOL_OUTPUT = &H2'''''G L O B A L S'''''''''''''''''''''''''''''''''''
Private hConsoleIn As Long ' The console's input handle
Private hConsoleOut As Long ' The console's output handle
Private hConsoleErr As Long ' The console's error handle'''''M A I N'''''''''''''''''''''''''''''''''''''''''
Private Sub Main()
    Dim szUserInput As String    AllocConsole    '建立一个控制台窗口
    SetConsoleTitle "VB Console Example" '设置窗口标题    '获得控制窗口的句柄
    hConsoleIn = GetStdHandle(STD_INPUT_HANDLE)
    hConsoleOut = GetStdHandle(STD_OUTPUT_HANDLE)
    hConsoleErr = GetStdHandle(STD_ERROR_HANDLE)    SetConsoleTextAttribute hConsoleOut, _
    FOREGROUND_RED Or FOREGROUND_GREEN _
    Or FOREGROUND_BLUE Or FOREGROUND_INTENSITY _
    Or BACKGROUND_BLUE    ConsolePrint "VB Console Example" & vbCrLf
    
    SetConsoleTextAttribute hConsoleOut, _
    FOREGROUND_RED Or FOREGROUND_GREEN _
    Or FOREGROUND_BLUE
    
    ConsolePrint "Please Enter Your Name Here--> "    '获得用户名
    szUserInput = ConsoleRead()
    If Not szUserInput = vbNullString Then
        ConsolePrint "Hello, " & szUserInput & "!" & vbCrLf
    Else
        ConsolePrint "Hello,But who are you?" & vbCrLf
    End If    ConsolePrint "Press Enter To Close The Console"
    Call ConsoleRead    FreeConsole ' Destroy the console
End Sub
Private Sub ConsolePrint(szOut As String)
    WriteConsole hConsoleOut, szOut, Len(szOut), vbNull, vbNull
End SubPrivate Function ConsoleRead() As String
    Dim sUserInput As String * 256
    
    Call ReadConsole(hConsoleIn, sUserInput, Len(sUserInput), vbNull, vbNull)
    'Trim off the NULL charactors and the CRLF.
    ConsoleRead = Left$(sUserInput, InStr(sUserInput, Chr$(0)) - 3)
End Function

Answer 6

//vb可以写控制台应用程序么？
其实只要告诉他不可以就行了。何必非拿VB的短处跟VC的长处比呢

Answer 7

可以啊，新建一个工程，添加一个模块，然后将窗体移除，必须将所有代码写在SUB MAIN里面，这样就可以了。

Answer 8

是不是只有在NET中才能打开控制台程序？

Answer 9

to WallesCai(今年过节不吃饭，要吃就吃减肥茶！) ,//可以啊，新建一个工程，添加一个模块，然后将窗体移除，必须将所有代码写在SUB MAIN里面，这样就可以了。这样做，确实没有窗体了。但是怎么输出到标准设备呢？vb做的cgi，也是把内容输出到标注输出设备吧。

Answer 10

http://www.vb-helper.com/howto_console_app_example.html
Make a console application that checks for palindromes
This example shows how to make a console application that checks for palindromes in Visual Basic 6. It uses the AllocConsole API function to open a console window and then reads and writes to it.

Answer 11

http://www.vb-helper.com/howto_console_app_example.html