Vb.net/VB 声明API函数实现父窗体功能

回顾第一次敲机房收费，自己调用了api函数实现了父窗体及其子窗体最小化的功能，如今再次遇到，自己就在思考，能不能继续使用API函数呢？答案当然是Of Course！

其实仔细看两者并没有多大的区别，先看看在vb.net中如何调用：

首先添加一个类模块，来封装此API函数：

<span style="font-size:14px;"> Public Declare Function SetParent Lib "<span style="color:#ff0000;">user32</span>" (ByVal hWndChild As Integer,ByVal hWndNewParent As Integer) As Integer</span>

然后在窗体中直接调用即可满足自己想要的需求

<span style="font-size:14px;">SetParent(FrmRegisterCard.Handle.ToInt<span style="color:#ff0000;">32</span>,Me.Handle.ToInt<span style="color:#ff0000;">32</span>)</span>

然后把父窗体的windowState属性改为Maximized。

实现的最终效果就是，单击其它得窗体，此窗体会默认最小化到父窗体的左下角，如图：

注：虽然实现了其想要的功能，但自我感觉窗体的大小也要更加子窗体来自我修改一下：

             <span style="font-size:14px;">FrmRegisterCard.Width = Me.ClientRectangle.Width - 800
        FrmRegisterCard.Height = Me.ClientRectangle.Height - 200
        SetParent(FrmRegisterCard.Handle.ToInt32,Me.Handle.ToInt32)
        FrmRegisterCard.Show()</span>

1、其中最主要的一个区别就是在vb中定义的数据类型是long，而在vb.net中则使用Integer来取代long,因为在vb.net中Integer类型是32位的，和long类型一样。

2、要注意使用ByVal和ByRef

• ByVal是传递值，源数据不会被修改，可以把这个值当做自己的局部变量来使用；（传递参数内存给被调用者）
• ByRef是传递地址，源数据可能被修改。（传递参数地址给被调用者）

3、在主窗体调用API函数的时候要注意“Handel.ToInt32”的使用，他等同于vb调用过程中的.hwnd

H:handle；Wnd:变量对象描述，也就是所谓的窗体，所以Handel.ToInt32也就是所谓的窗口句柄的意思吧！

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!