百度网盘怎么加好友电脑版怎么订阅好友

来源：蜘蛛抓取(WebSpider) 时间：2018-01-18 11:34 标签： 百度网盘ipad版加好友
其他回答(3)
现在许多程序的窗体都有自动隐藏/显示的功能(比如OICQ)。 实现这样的功能其实很简单，原理是：判断鼠标是否移到了屏幕的最左边或最右边，如果移到了则显示窗体，如果鼠标移开了窗体则隐藏窗体。在本程序中，我们将用到GetCursorPos这个API函数??是实现这个功能最重要的一步??，这个函数的作用就是获取当前鼠标的坐标值，我们可以通过这个值来判断鼠标是否移到了屏幕的最边缘。 下面我们就开始吧。 新建一窗体，将Form1更名为AutoHide??将vbBorderStyle属性设置为4-Fixed ToolWindow??这样就不能改变窗体的大小??，ScaleMode属性设置为2-Point。加入一个Timer控件，将Interval的值设为1。再新建一个模块，输入如下代码： Public Declare Function GetCursorPos Lib "user32" ??lpPoint As POINTAPI?? As Long Type POINTAPI x As Long y As Long End Type 该代码则是用于声明GetCursorPos这个API函数的。这个API函数可以在VB6中自带的&API 浏览器&中查找到。 在AutoHide窗体中，输入如下代码： Dim Mouse As POINTAPI '这句代码在声明部分中加入 Private Sub Form＿Load???? AutoHide.Height = Screen.Height '使窗体高度与屏幕高度相同 '调整窗体的显示位置 AutoHide.Top = 0 AutoHide.Left = ??0 - AutoHide.Width?? + 50 '使窗体在屏幕的最左边显示并显示出一小部分窗体??此时为收缩状态 End Sub Private Sub Timer1＿Timer???? a = GetCursorPos??Mouse?? If Mouse.x = 0 Then '鼠标移到了屏幕的最左边??x为屏幕的纵坐标，当纵坐标为0时，表示鼠标已经移到了最左边，因此这是最关键的一步?? AutoHide.Left = 0 '使窗体居左显示 End If If Mouse.x & AutoHide.ScaleWidth Then '如果鼠标没有在窗体之上则隐藏窗体??注意：窗体的ScaleMode属性一定要设置为2-Point，否则达不到隐藏的效果?? AutoHide.Left = ??0 - AutoHide.Width?? + 50 '如果前面没有加上50??这里也不加上。 End If End Sub 好了，单击F5运行一下就可以看到我们的效果了
1.Docking的效果可以用第三方控件，Dotmagic等。
2.一般的隐藏，显示效果用Visable+宽高的控制即可。
园豆：8797
http://sourceforge.net/projects/dockpanelsuite/
园豆：1330
&&&您需要以后才能回答，未注册用户请先。>> VB 窗口隐藏&VB 窗口显示,如何获得窗口句柄
VB 窗口隐藏&VB 窗口显示,如何获得窗口句柄
所属分类：
下载地址：
HideWindow.rar文件大小：1.31 kB
分享有礼！ 》
请点击右侧的分享按钮，把本代码分享到各社交媒体。
通过您的分享链接访问Codeforge，每来2个新的IP，您将获得0.1 积分的奖励。
通过您的分享链接，每成功注册一个用户，该用户在Codeforge上所获得的每1个积分，您都将获得0.2 积分的分成奖励。
VB 窗口隐藏&VB 窗口显示,如何获得窗口句柄-Hide Window
Sponsored links
源码文件列表
温馨提示： 点击源码文件名可预览文件内容哦 ^_^
Form1.frm1.70 kB01-01-04 00:31
Form1.log62.00 B10-07-09 16:55
工程1.vbp550.00 B01-01-04 00:31
工程1.vbw50.00 B11-07-09 09:51
&HideWindow&0.00 B01-01-04 00:30
（提交有效评论获得积分）
评论内容不能少于15个字，不要超出160个字。
评价成功，多谢！
下载HideWindow.rar
CodeForge积分（原CF币）全新升级，功能更强大，使用更便捷，不仅可以用来下载海量源代码马上还可兑换精美小礼品了
您的积分不足，优惠套餐快速获取 30 积分
10积分 / ￥100
30积分 / ￥200原价 ￥300 元
100积分 / ￥500原价 ￥1000 元
订单支付完成后，积分将自动加入到您的账号。以下是优惠期的人民币价格，优惠期过后将恢复美元价格。
支付宝支付宝付款
微信钱包微信付款
更多付款方式：、
您本次下载所消耗的积分将转交上传作者。
同一源码，30天内重复下载，只扣除一次积分。
鲁ICP备号-3 runtime:Elapsed:102.715ms - init:0.1;find:0.6;t:0.4;tags:0.5;related:69.4;comment:0.1; 5.8
登录 CodeForge
还没有CodeForge账号？
Switch to the English version?
^_^"呃 ...
Sorry!这位大神很神秘，未开通博客呢，请浏览一下其他的吧> VbMDI菜单的问题子窗体有隐藏的右键菜单，打开后MDI菜单不显示，如何解决（不设置菜单的话，打开
VbMDI菜单的问题子窗体有隐藏的右键菜单，打开后MDI菜单不显示，如何解决（不设置菜单的话，打开
netswimer & &
发布时间： & &
浏览：8 & &
回复：0 & &
悬赏：0.0希赛币
Vb MDI菜单的问题！子窗体有隐藏的右键菜单，打开后MDI菜单不显示，如何解决！（不设置菜单的话，打开后能显示MDI上面的菜单）
隐藏属性&=ture
本问题标题：
本问题地址：
温馨提示：本问题已经关闭，不能解答。
暂无合适的专家
&&&&&&&&&&&&&&&
希赛网 版权所有 & &&12:00 提问
外行求教：vb.net MDI父窗体与子窗体之间的界线怎么隐藏
外行求教：
用vb2013写的，父窗体中点击不同按钮，显示不同子窗体。图中project按钮在父窗体，背景色为红色，位于一个panel中，panel的borderstyle已经设为none；子窗体的formborderstyle也已设为none，子窗体最上部为一个panel，背景色为红色。想达到的效果是父窗体中的按钮与子窗体最上部的panel看起来是一体的，但是现在两个中间有一道界线。
求教怎么把这道线去掉？
按赞数排序
就你的需求，根本没必要用mdi窗口，直接用panel+usercontrol就可以了。
你这个界线应该是父窗体的客户区没有设置为flat样式，可以用setwindowlong去掉。
其他相似问题

我要回帖

更多关于 百度网盘ipad版加好友 的文章

 

随机推荐