如何在程序中嵌入DOS窗口

Question

我要做的是在vb6窗体中嵌入一个已有的程序，该exe是dos界面。

Answer 1

思路：
1、使用FindWindow查找到DOS界面窗口的句柄
2、使用SetParant将该窗口设置到目标窗体内

Answer 2

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Sub Command1_Click()
    Dim lngP As Long
    Dim lngDOSHwnd As Long
    lngDOSHwnd = FindWindow(vbNullString, "C:\WINDOWS\System32\cmd.exe")
    lngP = SetParent(lngDOSHwnd, Me.hWnd)
End SubPrivate Sub Form_Load()
    Shell "cmd.exe", vbNormalNoFocus
    Me.WindowState = 2
End Sub

Answer 3

好人做到底Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Sub Command1_Click()
    Dim lngP As Long
    Dim lngDOSHwnd As Long
    lngDOSHwnd = FindWindow(vbNullString, "C:\WINDOWS\System32\cmd.exe")
    lngP = SetParent(lngDOSHwnd, Me.hwnd)
    lngP = MoveWindow(lngDOSHwnd, 100, 100, 200, 200, 0)
    Me.Refresh
End SubPrivate Sub Form_Load()
    Shell "cmd.exe"
    Me.WindowState = 2
End Sub

Answer 4

非常感谢你不吝赐教，当我运行了一次调用dos后，点dos上的关闭按钮关掉dos。
再次点击COMMAND1_CLICK（）时，就不出现dos了，是不是我并没有在vb里关掉调用的dos，怎么办呢？

Answer 5

在关闭CMD窗口前，要用lngP = SetParent(lngDOSHwnd, 0)执行一次。

Answer 6

谢谢你的指点，具体就是把Veron_04说的code修改一下用你语句，可没有成功，希望你再说一下好吗

Answer 7

我是将commad_click按钮放在sstab里，这样的话dos时装载在form里的，是不是这个原因

Answer 8

把 Shell "cmd.exe" 放在command1里面。 不要放在Form_Load里面。