机房收费系统初体验——"歪打"无按钮标题栏,"正着"父窗体加载picturebox无遮挡显示子窗体

前端之家收集整理的这篇文章主要介绍了机房收费系统初体验——"歪打"无按钮标题栏,"正着"父窗体加载picturebox无遮挡显示子窗体前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

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

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

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

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

函数名称:SetParent

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

参数:hWndChild:子窗口句柄

hWndNewParent:新的父窗口句柄。

返回值:如果函数成功,返回值为子窗口的原父窗口句柄;如果函数失败,返回值 为NULL。


使用方法

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

@H_301_86@<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>

@H_301_86@

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

@H_301_86@<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事件中加载子窗体的宽度和高度。

@H_301_86@<span style="font-size:18px"><span style="font-family:Microsoft YaHei">me.height ="自定义高度" me.width="自定义宽度'</span></span>
可以先把自己的窗体调整成合适的大小,然后对宽度和高度属性进行复制,宽度和高度的属性可以在属性对话框中获取,分别为width,height。

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


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



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


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

原文链接:https://www.f2er.com/vb/258386.html

猜你在找的VB相关文章