如何利用API將MATLAB的DLL生成的表單嵌入VB表單中？？
uj5u.com熱心網友回復：
思路：1、使用FindWindow查找Matlab生成的表單
2、使用SetParent將該表單設定為VB程式表單的子表單即可。
舉個例子，假如：Windows自帶的計算器視窗是Matlab生成的表單，按如下代碼處理：
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 lngChildHwnd As Long
Dim lngP As Long
lngChildHwnd = FindWindow(vbNullString, "?????÷")
lngP = SetParent(lngChildHwnd, Me.hWnd)
End Sub
Private Sub Form_Load()
Shell "c:\windows\system32\calc.exe", vbNormalFocus
Me.WindowState = 2
End Sub
uj5u.com熱心網友回復：
你好 如果在vb.net中能不能把lngP = SetParent(lngChildHwnd, Me.hWnd)中Me.hWnd換成TabControl控制元件
uj5u.com熱心網友回復：
Public Excel As Excel.Application = NothingPublic Workbook As Microsoft.Office.Interop.Excel.Workbook
Public Worksheet As Microsoft.Office.Interop.Excel.Worksheet
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 Int32, ByVal hWndNewParent As Int32) As Int32
Excel = New Excel.Application
Dim ExcelWnd As Integer = Excel.Hwnd
SetParent(ExcelWnd, Me.TabPage4.Handle)
Excel.Visible = True
Excel.WindowState = XlWindowState.xlMaximized
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/132474.html
標籤：VB基礎類
上一篇：請問各位大大 誰有api幫助檔案