机房收费系统初体验——＂歪打＂无按钮标题栏，＂正着＂父窗体加

　　我想大家看到这个题目，可能会感觉很好玩哦，貌似这个无按钮的标题栏与要求我们做的机房收费系统没有什么瓜葛吗！

　　无按钮标题栏是我在做机房收费系统中的意外的收获。先卖个关子，详情如下。

　　首先我们大家都出现了一个共同的问题（当然一些进度快的小朋友们已经把这个问题解决啦）：主窗体加载picturebox后，子窗体被遮挡，不能完整显示。

　　经过查找资料和查询一些进度比较快的同学的博客，发现ＡＰＩ函数可以完美解决这个问题。

函数名称：SetParent

函数定义：Public Declare Function SetParent Lib "user32" (ByVal hWndChild AsLong,ByValhWndNewParent As Long) As Long

参数：hWndChild:子窗口句柄

hWndNewParent:新的父窗口句柄。

返回值：如果函数成功，返回值为子窗口的原父窗口句柄；如果函数失败，返回值 为NULL。

使用方法：

1.在模块中定义SetParent函数，输入

<pre code_snippet_id="92277" snippet_file_name="blog_20131202_1_641488" name="code" class="vb"><span style="font-family:Microsoft YaHei; font-size:18px">Public Declare Function SetParent Lib "user32"(ByVal hWndChild as Long,ByVal hWndNewParent As Long)As Long</span>

2.在父窗体菜单的Click事件中输入以下代码：

<span style="font-size:18px"><span style="font-family:Microsoft YaHei">Private Sub AccountMenu_Click()   
    frmAccount.Show
    Call SetParent(frmAccount.hWnd,Picture1.hWnd)
End Sub</span></span>

3.在子窗体的form_Load事件中加载子窗体的宽度和高度。

<span style="font-size:18px"><span style="font-family:Microsoft YaHei">me.height ="自定义高度"
me.width="自定义宽度'</span></span>

这样就可以正常的显示啦!

4.如果不进行上面 3 的操作，子窗体就会仅有一个标题栏的大小在主窗体的上方显示。

如果此时把子窗体的windowState属性选为2-Maximized，就能够无标题栏显示啦！

写这一点是为了满足一下自己的小小的虚荣心，因为自己无意间把windowsState设置成了2-Maximized，结果出现了没有标题栏按钮的问题，查询的时候发现CSDN上面有人问怎样才可以去掉子窗体产生的按钮，没有可行的评论哦！纪念一下自己首次在CSDN回答问题。谢谢！

（编辑：李大同）

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