说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

实现鼠标移到窗口上时变大,移出窗体时变小(如《东方快车》)-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
实现鼠标移到窗口上时变大,移出窗体时变小(如《东方快车》)-VB资料

用Form 的 Mouse_Move事件来检查鼠标是否在窗口内:
  如果在窗口内就使窗口尺寸变大(Me.Height = 大窗口高度值);
  如果鼠标离开就使窗口尺寸变小(Me.Height = 大窗口高度值);
  但是,最好不要直接对窗口的尺寸进行增减,应该首先判断窗口尺寸是否已经是所需窗口的大小,最后设定窗口始终在最前方。下面附上代码,供参考:
  '首先应设置Form1.BorderStyle = 0
  Option Explicit
  Dim a As Long
  Dim b As Long
  Private Sub Form_Load()
  a = 3500
  b = 1000
  Form1.BackColor = vbMagenta
  Form1.Width = a
  Form1.Height = b
  End Sub
  '鼠标移动到窗口则窗口变大反之则变小
  Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Form1.Width = 8200
  Form1.Height = 2450
  If (X > 8000) or (Y > 2000) or (X < 200) or (Y < 200) Then '在理论上应取0   Form1.Width = a
  Form1.Height = b
  End If
  End Sub

MDCC应用征集最新动态:3D手游成热点、硬件种类丰富 闪迪Ultra II SSD:采用TLC闪存,最低价为79.99美元 现有技能不浪费!基于Titanium的跨平台游戏引擎Platino 跳过开发者,专注补Bug的iOS 8 Beta 6悄然发布 集群管理可以很简单,Google又放大招 应用内直接打车:Uber面向第三方开发者开放API 百万美元巨奖!英特尔启动感知计算挑战赛 IBM 2014技术峰会在京开幕! OpenGL 4.5规范标准发布,大大提升API性能! 更萌更贱:Flappy Bird开发者推虐心新作Swing Copters 学习的革命:AR增强现实遇到儿童应用 颠覆旧概念,IBM Bluemix开启云开发时代 专访企业QQ SaaS团队,谈企业级LNMP架构设计 《近匠》Coding:将软件开发搬到云上 小米与美视频游戏服务Ouya合作 进军国内客厅 新工具Get!轻松实现2D画面动态光影的Sprite Lamp 一周消息树:罗升阳的Android之旅 手游不易:GungHo 3.44亿美元售Supercell股权 周末去哪儿 当然是去2014微信开发者大会!(附参会提醒和名单) 开源框架Ember.js迎来1.7.0和1.8 Beta 1更新 《近匠》RealSense:几行代码,为游戏添增实感交互 MDCC游戏应用征集关键词:中小团队,3D,转型,IP 共话HealthKit:能否颠覆医疗保健生态系统? Perception Neuron系统,让动作捕捉技术不再高冷 2014年DevOps实践调查报告 .NET程序性能的基本要领 百度手机卫士宣布开放三大能力 构建互联网安全生态 火速围观,AMD APU新芯片架构A68H呼之欲出! 对于测试人员而言,TDD意味着什么? 年用电910亿度,那些庞大的数据中心该用什么支撑 走近黑客们的世界,感受网络空间的心跳 请问“IE登录时”为什么Domino检测不到我的Username and password? 着急,这条sql语句怎么写?????? 爱的密码 散分啰!!统计BCB论坛现有成员... 这样的COM组件如何实现? 请教:我想学lotus,可不知哪有lotus和lotus教程下载,望指教! 多选项提交过来的值是什么类型的? ORA-03113: end-of-file on communication channel谁知道??高手救命! 星际争霸几大战略(大家切磋切磋) CHtmlView的刷新问题 关于asp.net加密的讨论 怎么样把两个ArrayList合并成一个??我在文档里找了半天也没找到!急~~!!!!!!!! 》》》菜鸟发问:SQL SERVER2000 可以对 office 文档进行全文检索吗? How to alter DBGrid Scrollheader Color? c怎样访问数据库啊?一定给分! from里的参数传递为ENCTYPE="multipart/form-data"时的问题? 网吧问题 如何在txt文件中查找字符 请问如何实现当进入一个combox时自动下拉列表框(不用用鼠标去点) 关于volatile 修饰词 过去用Delphi开发数据库都是用Access,现在急需使用SQL Server。请问:我必须掌握SQL Server中的那些内容。 如果我想删除日志文件的所有记录该怎么办?????? 怎么样把两个ArrayList合并成一个??我在文档里找了半天也没找到!急~~!!!!!!! 请问,NT4.0下怎样配置网关和路由? 请问如何知道一个弹出菜单是否以经关闭 升级后问题,奇怪,请指教? 什么是存储过程? 大侠们帮忙看看,简单问题 急:因出差,明天(12.20,第二期)的“微软.net高级程序员培训”转让(包括资料)!今晚6:00前联系,13910321169. 请问怎样才能在Access中选取指定行数的记录如第5-10条. 关于XML命名空间的疑问?请教各位高手帮帮忙!谢谢! 请问哪里有《情深深雨蒙蒙》下载??? ******斑竹快出来啊 看看我这个贴子啊!!!!!!!!!!!!!! 如何读取寄存器中的数据? 请问在数据库中如何操作日期型字段: Help,如何把本机加入主域服务器? 急:因出差,明天(12.20,第二期)的“微软.net高级程序员培训”转让(包括资料)!今晚6:00前联系,13910321169 怎么用vbscript定义一个函数阿。我想作一个下拉框的onchange事件,请指教 如何确定adoquery的数据是否被修改了? 有关程序调试的问题 全都转行卖大白菜。 对于各个.h和.cpp文件分工如何,我的各种函数各个变量到底该放在哪个文件中的哪个class中? 如何停止asp调用的dll文件,我调用my_dll.dll文件一次之后就不能对my_dll.dll更改了,为什么?怎样解决? 急:因出差,明天(12.20,第二期)的“微软.net高级程序员培训”转让(包括资料)!今晚6:00前联系,13910321169.. 关于附件下载过程中权限控制的问题 如何编辑LILO文件? 糊涂啦。。。看看汉字库(hzk24)吧? 请问在listbox控件中如何设置特定行的颜色? 问一个关于ODBC的问题 急:因出差,明天(12.20,第二期)的“微软.net高级程序员培训”转让(包括资料)!今晚6:00前联系,13910321169.... 各位大侠,哪有设计专家系统的c语言的源代码阿(全分奉送)? 一个三角形的底和高都与一个圆的半径相等,如果圆的面积比三角形的面积大13.2平方分米,三角形的面积多少平方分米 一个三角形和平行四边形的高相等,面积也相等,平行四边形的底是20厘米,那么这个三角形的底边长() 把1.5m长的长方体木料锯成了3段,表面积增加96平方米,原来木料的体积是()立方米.要完整 下图中,三角形的面积是25平方分米.圆的面积是多少 要有图的~ 一块长方体木料长5m,沿横截面切成两段,表面积增加1.2平方米.这跟木料的体积是多少立方米? 一个三角形的底和高都与圆的半径相等,如果圆的面积是31.4平方分米,则三角形的面积是多少平方分米 赵军同学在家里想知道某种食用油的密度,于是他利用学过的物理知识设计了一种求食 载汽油的车为什么要拖一条铁链子?答对有赏 一个三角形的底和高都与圆的半径相等,如果三角形的面积是10平方分米,求圆的面积, 从一个长5分米,宽3分米的长方形木板上锯下一个最大的圆,这个圆的面积是多少? 冬天零下1-10度,怎么样知道车的水箱冻没冻,水箱冻了能启动车吗?变速器:手动 一个三角形的底和高都与一个圆的直径相等,如果这个圆的面积比三角形的面积大114平方分米,三角形的面积? 市场上出售的"金龙鱼"调和油,瓶上标有"5升"的字样,已知该瓶内调和油质量为4.6千克,则该瓶的密度为多少千克每平方米 一块长方体木板长2.5米,宽4分米,厚8厘米,这块木板的面积是多少平方分米?体积是多少立方厘米? 一种是用调和油标有4.5kg/5L,则该油的密度是___kg/cm的立方;. 初三物理题(关于电路故障的)正确连接好电路后,无论怎样调节滑动变阻器灯泡都不亮,且电压表有示数,电流表示数始终为零.造成这种故障的原因是什么? 为什么虹吸式座便器水箱渗水水箱里有小孔 一块三角形交通志牌的面积是34平方分米,如果它的底是8分米,高是多少 ———电池————开关—————— | | | | | (A)电流表 —— ——(V)—— | a ↓ b | | | 滑动变阻器—— |———— | | —定值电阻(长方形的) 题目是在研究电流与电阻关系时,先用5欧姆的定值 虹吸喷射式和虹吸漩涡式座便器哪种省水?虹吸喷射式和虹吸漩涡式座便器哪种技术更先进?哪种更省水?怎么调节座便器冲水量? 不等式的应用题:乘某城市的一种出租汽车起步价都是10元(即行驶路程在5km以内都2.乘某城市的一种出租汽车起步价都是10元(即行驶路程在5km以内都需付10元),达到或超过5km后,每增加1km加 某品牌食用油上标有5升4千克字样改食用油的密度为多少 坐便器水箱坏了,是只换水箱呢还是坐便器水箱一起换?单换水箱多少钱?水箱坐便器一起换多少钱? 某市出租车在5km以内,起步价为5元,行程超过5km时,按每km1.2元收费(不足1km按1km计算),某人下车付打车费11元,问出租车走了多远?列不等式, 从一个长5分米,宽4分米的长方形木板上锯下一个最大的圆,圆的周长是( )分米,圆一辆汽车的车轮直径120厘米,每分钟转200圈.这辆汽车4分钟通过一座高架桥,这座桥全长是多少米?(保留整数) 虹吸式和直冲式座便器有什么区别?两类座便器的优缺点和工作原理是什么?不是有大水小水的区别嘛虹吸和直冲对用水量也有影响? 洗衣机长60厘米,宽40分米,高85厘米,做一个洗衣机布罩,至少要多大面积的布谢谢了,大神帮忙啊 市场上出售的一种金龙鱼食用调和油,油瓶上标有1.8L的字样,已知该瓶内调和油的密度是0.92g/立方厘米,则该食用油的质量是( )kg? 一个圆柱形汽油桶的底面直径是70厘米,高为90厘米.(1)这个汽油桶的表面积是多少平方分米?(2)如果每立方分米97号汽油重0.695千克,这只汽油桶能装97号汽油多少千克?(结果保留整数) 某市出租车收费标准是起步价5元超过三千米后没增加0.5千米加收0.9元,李老师乘坐这种车从甲地到乙地共支付19.4元,他从甲地到乙地经过的路程最可能是多远? 一个三角形的面积是32分之15平方分米,它的底长1分米.这个三角形的高是多少分米 请问在什么情况下才会造成电源短路?什么情况下造成局部短路?还有电流遇到什么才会不通过返回?书上更本没怎么写 求教数学题,某市运输管理处公布了新的出租车收费标准,计费办法为:起步价3千米7元,3千米以后计费标准为每千米1.20元.另外单程载客(指乘客从甲地到乙地后,出租车空车从乙地返回甲地) 怎么用测电笔检查电路的故障? 一个圆柱形汽油桶,它的侧面积是125.6平方分米,这个汽油桶的表面积是多少? 一个三角形的底是1.6dm,比高的2倍少0.2dm,这个三角形的面积是( )平方分米? 一个三角形的面积是28分之13平方分米,高是35分之26分米.这个三角形的底边是多少分米? 用铁皮制作一个圆柱形汽油桶,要求底面半径是4分米,高是12分米,制作10个这样的汽油桶至少需要铁皮多少平方 一个三角形的面积是3.6平方分米,底是1.2分米,高是( )分米 用测电笔测试电路各接头处,如果氖管都发光,故障是什么?若都不发光故障是什么? 9、用铁皮制作一个圆柱形汽油桶,要求底面半径是4分米,高是12分米,制作10个这样的油桶至少需要铁皮多少平方分米?(接头处不计) 长颈鹿是个子最高的动物,平均高4.3米,血液密度约为1.05X10的三次方 kg/m立方.当长颈鹿心脏收缩……长颈鹿是个子最高的动物,平均高4.3米,血液密度约为1.05X10的三次方 kg/m立方.当长颈鹿心脏收 一个三角形的面积是28平方分米,与它等底等高的平行四边形的面积是多少平方分米 一个圆柱形铁皮汽油桶,底面直径8分米,①:做成这个汽油桶,需要铁皮多少平方分米?②:每升汽油重0.75千克,这个油桶能装汽油多少千克?要算是 着急 长颈鹿是个子最高的动物,平均高4.3m,血液密度约为1.05×103kg/m3,当长颈鹿心脏收缩把血液压到比心脏高3m的脑子里去时,压强至少是___Pa写出过程、得数、给悬赏分 有关家庭电路使用测电笔的问题1、开关安装在用电器与火线之间时,开关闭合,分别用测电笔接触火线和零线,氖管的发光情况.2、开关安装在用电器与火线之间时,开关断开,分别用测电笔接触 一只无盖的长方体木箱,长1分米,宽9厘米,高八厘米,木板厚一厘米,它的表面积是多少?容积是多少? 长颈鹿的平均高度为4.2米,若血液密度为1.05X10的3次方Kg/m3.则当某只长颈鹿的心脏收缩把血液压到比心脏高3.6的脑中,至少需要多大压强 关于测电笔电流回路在普通的家庭电路中,电流流经火线,测电笔,人体,形成回路.这个回路指的是什么?指的是电流又回到发电站的电线(电源)那里周而复始的流动回来么?我现在把回路的概念 一个无盖长方体木箱从外面量,宽3分米,木板厚1分米.这个木箱的容1.一个无盖长方体木箱从外面量,宽3分米,木板厚1分米。这个木箱的容积是多少?2.一个底面是正方形,高15厘米的长方体, 一个三角形的底是八分米高是零点二米则这个三角形的面积是多少平方分米 如何用测电笔测家庭电路故障要图解 一个无盖的长方体木箱,从外面量长是6分米,宽是4.2分米,高是3.2分米.如果用厚1厘米的木板做这个木箱,木箱容积是多少升? 1:小明在超市买了一桶调和油,已知调和油的密度为0.92X10的三次方kg/立方1:小明在超市买了一桶调和油,已知调和油的密度为0.92X10的三次方kg/立方米,体积是5X10的负3次方立方米,求这桶油的质 已知一瓶食用调和油瓶上标有‘5L’字样,该油密度为920千克/立方米,求油的质量 一圆柱形的汽油桶底面半径是2分米,高是5分米,做这个桶至少要用多少平方分米的铁皮?它的容积是多少升? 某市出租车的起步价是6元(3千米以内),超过3千米,每千米1.5元,王阿姨坐车花了15元,行驶了()千米判断方程三分之二X加三分之二=三分之二没有解小于四分之一而大于五份之一的分数有无数 一个三角形和平行四边形高相等,面积也相等地,平行四边形的底是20厘米,那么这个三角形的底边长是() 一个圆柱形的汽油桶,底面半径2dm高5dm,做这个桶至少要用多少平方分米的铁皮?它的容积是多少升?最晚今天晚上10点以前
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn