让别的应用程序作为自己的一个子窗口VB源码程序 - vb源码程序

下载频道> 资源分类> 编程语言> VB源码> 让别的应用程序作为自己的一个子窗口VB源码程序

标题：让别的应用程序作为自己的一个子窗口VB源码程序
分享到：

所属分类: VB源码资源类型：文件大小: 3.28 KB 上传时间: 2016-01-20 23:31:40 下载次数: 11 资源积分：1分提供者: vb源码代做 20160120113123200

内容：
让别的应用程序作为自己的一个子窗口VB源码程序，程序员在编程的过程中可以参考学习使用，希望对IT程序员有用，此源码程序简单易懂、方便阅读，有很好的学习价值！

部分代码如下：

VERSION 5.00

Begin VB.MDIForm frmMain

BackColor = &H8000000C&

Caption = "让别的应用程序作为我的一个子窗口"

ClientHeight = 2820

ClientLeft = 165

ClientTop = 450

ClientWidth = 3855

LinkTopic = "MDIForm1"

StartUpPosition = 2 '屏幕中心

Begin VB.Menu mnuOpen

Caption = "打开程序(&O)"

Begin VB.Menu mnuNotepad

Caption = "记事本(&N)"

Begin VB.Menu mnuOpenNotepad

Caption = "打开(&O)..."

End

Begin VB.Menu mnuResNotepad

Caption = "释放(&R)..."

Enabled = 0 'False

End

Begin VB.Menu mnuCalc

Caption = "计算器(&C)"

Begin VB.Menu mnuOpenCalc

Caption = "打开(&O)..."

End

Begin VB.Menu mnuResCalc

Caption = "释放(&R)..."

Enabled = 0 'False

End

Begin VB.Menu mnuSep1

Caption = "-"

End

Begin VB.Menu mnuClose

Caption = "退出(&Q)"

Shortcut = ^Q

End

Attribute VB_Name = "frmMain"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Option Explicit

Private Notepad_OldParent&

Private Calc_OldParent&

Private Notepad_Hwnd&

Private Calc_Hwnd&

Private Sub mnuClose_Click()

Unload Me

End Sub

Private Sub mnuOpenCalc_Click()

Dim pid As Long

Dim buf As String

Dim buf_len As Long

Dim styles As Long

pid = Shell("calc.exe", vbNormalFocus)

If pid = 0 Then

MsgBox "Error starting program"

Exit Sub

End If

Calc_Hwnd& = InstanceToWnd(pid)

Calc_OldParent& = SetParent(Calc_Hwnd&, Me.hwnd)

mnuOpenCalc.Enabled = False

mnuResCalc.Enabled = True

End Sub

Private Sub mnuOpenNotepad_Click()

Dim pid As Long

Dim buf As String

Dim buf_len As Long

Dim styles As Long

pid = Shell("notepad.exe", vbNormalFocus)

If pid = 0 Then

MsgBox "Error starting program"

Exit Sub

End If

Notepad_Hwnd& = InstanceToWnd(pid)

Notepad_OldParent& = SetParent(Notepad_Hwnd&, Me.hwnd)

mnuOpenNotepad.Enabled = False

mnuResNotepad.Enabled = True

End Sub

Private Sub mnuResCalc_Click()

SetParent Calc_Hwnd&, Calc_OldParent&

mnuOpenCalc.Enabled = True

mnuResCalc.Enabled = False

End Sub

Private Sub mnuResNotepad_Click()

SetParent Notepad_Hwnd&, Notepad_OldParent&

mnuOpenNotepad.Enabled = True

mnuResNotepad.Enabled = False

End Sub

文件列表（点击上边下载按钮，如果是垃圾文件请在下面评价差评或者投诉）:

让别的应用程序作为自己的一个子窗口VB源码程序/
让别的应用程序作为自己的一个子窗口VB源码程序/MSSCCPRJ.SCC
让别的应用程序作为自己的一个子窗口VB源码程序/RunInMyForm.vbp
让别的应用程序作为自己的一个子窗口VB源码程序/RunInMyForm.vbw
让别的应用程序作为自己的一个子窗口VB源码程序/frmMain.frm
让别的应用程序作为自己的一个子窗口VB源码程序/modHwnd.bas