VB窗口外DOS
请问,我想在VB的窗体上实现DOS窗口,该如何编写?请各位大侠帮帮忙,谢谢!
[解决办法]
先打开一个dos窗口,然后用SetParent函数把dos窗口设置为vb窗口的子窗口看看行不行。
Declare Function SetParent Lib "user32 " (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
SetParent dos窗口句柄,vb窗口句柄
[解决办法]
Shell "cmd.exe "
Sleep 100
Dim conhwd As Long
conhwd = FindWindow( "ConsoleWindowClass ", vbNullString)
SetParent conhwd, Me.hWnd