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

实现鼠标移到窗口上时变大,移出窗体时变小(如《东方快车》)-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

jQuery 2.0发布 不再支持IE 6/7/8 Google再发力,更新Dart M4! 【多图】鼠标、光驱等13个即将消失的PC技术 直击OpenStack美国峰会:分享五大经验收获 Project Savanna:让Hadoop运行在OpenStack之上 看Go桌面技术副总,如何解读Facebook Home 增长最快的游戏公司Supercell 你学得会? 移动周报:为什么我们出不了IT神童? AWS、VMware和OpenStack谁是赢家? 消息称苹果正在寻找新任CEO取代库克 请别人云亦云 PC仍然重要且活得很好 比预想晚几年!IBM x86服务器或终将卖给联想 App推广的节操呢? iMessage垃圾短信产业链暗访 Apkudo CEO访谈:免费为Android开发者提供测试 Web API核查表:设计、测试、发布API时需思考的43件事 开源Android构建工具Buck 速度超Ant两倍 从史上八大MySQL事故中学到的经验 OpenStack Heat向应用市场更近一步 初创公司Ionic Security:云安全必须与时俱进 谷歌董事长:一年后消费者才能用上Goolge Glass Windows 8.1重新推出的“开始按钮”毫无意义 手眼并用 代码泄露三种Google Glass手势操作 Google新论文 CPI&#178;:基于Linux的世界级跨数据中心服务器CPU监控 20款非常实用的Web工具和资源列表 数据库界大事件 随机写性能巨好的TokuDB开源了 CMDN Club 26期:数字渠道营销主题沙龙 暴强:用iOS设备控制的HTML5“小蜜蜂”游戏 Leap Motion:500元体感,精确到0.01毫米 大事件:三大运营商将发布融合计费SDK 再培养一个扎克伯克:六款适合儿童上手编程的App 首届中国软件工程标准高峰论坛:软件开发的新机遇与挑战 http://edu.sina.com.cn/l/2002-03-14/21924.html(看看吧~!!!多惨啊) 请问c的n次乘方函数是什么? 请各位大侠指教,关了类型转换的问题 学习Jive源代码要从那里入手 ★★★快来抢100分★★★:在bcb6里,我用import activex control添加组件怎么提示错误:E2347 Parameter mismatch in write access ?? 大家给推荐几个MM喜欢的小游戏吧 如何在一个基于对话框的界面上添加一个view 一个关于两个网页之间的传递及表单生成问题,请教! 在c/s之间,数据处理的问题 vb中的类的多样性,怎么表现出的? 谁能告诉我DELPHI6.0安装盘的序列号.送分,thanks!!! UFO 的秘密!最新发现,足以推翻以前任何种学说,想知道UFO真正的面目者,进来看看。 菜鸟问高手,如何在一个多文档程序中,关闭子窗口? 关于漂亮虫虫的疑惑 如何移动edit控件,使用什么函数?谢谢 servlet和JSP有何区别?(菜鸟级) template class declare? 请教一个很菜的问题,赶快请进 高手看过来,关于ipc的问题! 怎样在listbox中保存信息? 刚刚学习ASP,请问在哪里可以下载ASP的资料!!!!! swing中哪个类可以用作ToolBar中的按钮? 要能显示图象的 template 怎样更改trichedit鼠标指针样式? 我正在寻求仿XP菜单的源代码或控件,不知道哪位高手有????(email:zhem8@yeah.net) 关于创建不规则窗口的问题,请一定帮忙。谢谢!我只有100分了~~~~~~~~~~~~~~! 用cdonts发邮件时为什么把附件发到了内容当中,都是乱码,应该怎么改? Coledatetime同oracle8中的date类型相同吗? 关于操作系统 怎样拦截某个控件的消息? 请问怎么不加lib档又可以编译做好的dll?? 请问DivX的使用 请问有谁研究过USB接口的驱动????? 简单问题:怎么给我满意的答复加分呢? 救命啊。。。 9行程序崩溃WIN2000/xp 太、太、太好了!连帮助都是中文的,还可以继承、多线程,盗版比正版还提前发布。 关于C++的构造函数的问题 初学java网络编程的问题 KYLIX如何连接ORACLE? 有全套的ERP源代码出售 俺的机子装了Linux现在想改装WindowNT,用NT分区格式化后,咋一启动就显示LI,然后就不动了。 我安装了win2000和redhat Linux7.2,要启动盘才能进入Linux,怎样能在启动时选择进入 pb6.5 + personal oracle 815 连接数据库数据库出错!!! 哪位用VC编写XML处理程序的大侠: 100分求购密码登陆jsp程序 vb如何让我Happy 请教:关于ODBC的密码? 使用log函数,应该import那个库 请问关于数据库存储过程调试的问题,急! 关于CPROPERTYSHEET 的一些小问题!!
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘