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

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

“沟通”电子表格和矢量图形的“桥梁”:在线可视化工具Raw Facebook北极圈数据中心,Open Compute Project的力作! 最后三天!4折抢购2013移动开发者大会门票 电子书追踪统计,App Annie for eBooks上线 先驱还是模仿者?细数海外移动应用推广平台 java问题 如何获取query1当前的状态? 请教几个javascript得问题,急 VS 7.0 (.NET SDK 1.0) 中有没有用C#/Vb.net创建ActiveX 控件的模板?? 高分(300+) 求 <<组件技术讲义>> 潘爱民 SCOM习题 质优答案 What kind of ASM does LINUX(kernel) use? 帮忙呀~~~:)100 分~~~:)关于AVI制作~~~:) 编辑来看看这里呀!也希望大家来顶一下哦!! 哪位有pc-lint,砸偶一份,发给kamerqiu@163.com,期待ing 一光年等于几千米 宇宙无边无际,一光年等于几千米?摆脱 一光年等于多少?一光年等于多少米?多少千米?不用科 一光年等于多少米 一光年等于多少年? 1光年等于多少公里? 光用多少时间跑完一光年的距离?(1光年等于多少年? 一光年等于多少年?银河的外围有一个圈是实际是这样吗 1光年等于多少千米? 美国西部山区蕴含创业潜力 或成下一个媒体称美商场枪击案凶手为白人男性 已资料显示巴西2012年共发生5.6万美国西部山区蕴含创业潜力 或成下一个美国一商场发生枪击事件 暂无人员伤亡老树画画姐姐已然老去 妹妹余力几何种子已发芽,请好好呵护飞出鸡窝学鸟语恒大好签好到不能再好洪荒李源星神的暗黑战锤狂想曲异界仙侠志地狱式卧底重生之我为饕餮郎德上寨旅游越秀公园旅游黄埔军校旧址旅游光孝寺旅游南越王墓博物馆旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘