首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

API兑现让子窗体脱离父窗体,实现对立窗口

2013-01-04 
API实现让子窗体脱离父窗体,实现对立窗口API实现让子窗体脱离父窗体,实现对立窗口[解决办法]新建一个工程

API实现让子窗体脱离父窗体,实现对立窗口
API实现让子窗体脱离父窗体,实现对立窗口
[解决办法]


'新建一个工程,添加一个MDI窗体,设置Form1为MDI自窗体,在其内添加一个Command1,键入如下代码
Option Explicit
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Sub Command1_Click()
    Dim lngP As Long
    lngP = SetParent(Me.hWnd, ByVal 0&)
    Command1.Caption = lngP
End Sub

热点排行