实现窗体内部的左右移动

2016-02-19 21:08 6 1 收藏

下面图老师小编跟大家分享一个简单易学的实现窗体内部的左右移动教程，get新技能是需要行动的，喜欢的朋友赶紧收藏起来学习下吧！

【 tulaoshi.com - 编程语言】

'分割区的宽度
　　PrivateConstSPLITTERWIDTH=45
　　'最小移动宽度
　　PrivateConstHMIN=15
　　'picLeft和picRight的宽度相对于窗体的比例
　　PrivatePercentAsSingle
　　'正在拖动的标志
　　PrivateDragFlagAsBoolean
　　
　　'每次拖动后需要重排窗体上的控件
　　PrivateSubRedrawMe()
　　DimNewWidthAsSingle
　　'忽略窗体缩小的情况
　　IfWindowState=vbMinimizedThenExitSub
　　NewWidth=(ScaleWidth-SPLITTERWIDTH)*Percent
　　Picleft.Move0,0,NewWidth,ScaleHeight
　　Picright.MoveNewWidth SPLITTERWIDTH,0,ScaleWidth-NewWidth-SPLITTERWIDTH,ScaleHeight
　　EndSub
　　
　　PrivateSubForm_Load()
　　'PicLeft和PicRight的MousePointer=1
　　Percent=0.5
　　EndSub
　　
　　PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
　　DragFlag=True
　　EndSub
　　
　　PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
　　'定义鼠标为vbSizeWE型
　　MousePointer=vbSizeWE
　　Percent=X/ScaleWidth
　　RedrawMe
　　EndSub
　　
　　PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
　　DragFlag=False
　　MousePointer=0'此行语句实际没有起作用
　　EndSub->

来源:http://www.tulaoshi.com/n/20160219/1625352.html

上一篇：操作过程动态显示
下一篇：男生经典分组设计_有种情绪叫歇斯底里

看过《实现窗体内部的左右移动》的人还看了以下文章更多>>

透明窗体的又一实现

标签： C语言教程 C语言函数

透明窗体的又一实现作者：段会锋下载源代码前面拜读过本站无数高手的许多好文章，受益非浅，首先向各位大侠致敬！今天编程偶有小得，不敢独享，特拿出来与各位共享，希望对某些朋友有些许帮助。透明窗体的问题相信大家已经很熟悉了，前面的几期在线杂志也有几篇详...

Firefox向右移动标签的快捷键是什么

标签：浏览器

Firefox向右移动标签的快捷键是什么 Firefox向右移动标签的快捷键是Ctrl+右方向键或Ctrl+下方向键。

孕前调整好身体内部最好

标签：怀孕

其实身体内部是最需要我们来打理的，在很多时候我们在护理自己身体的时候，其实内部护理比外部护理更重要，尤其对于准备要小宝宝的女性，一定要注意这点，护理好自己的身体内部，让身体内部tulaoshi.com跟疾病说拜拜，这是为将来能有一个健康的宝宝做充足的准备。首先饮食原则人的体内存在了24小时的周期性规律，每天这规律都有不同的周...

如何按非客户区移动窗体

标签： C语言教程 C语言函数

如何按非客户区移动窗体作者浙江大学王向伟下载源代码我曾在VCKBSAE上看到一介绍如何按非客户区移动窗体，既重载WM_NCHITTEST,返回HTCAPTION。但我认为有一点不妥就是没有了鼠标右键功能。这里我介绍一种方法，即可已在客户区移动窗体又可以实现鼠标右键功能。...

全部窗体可使用鼠标中移动

标签：编程语言网络编程

最简单的办法就是"欺骗"系统,让他认为点中的是窗体的标题行 unit Dragmain;interfaceusesSysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,Forms, Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;procedure Button1Click(Sender: TObject);privateprocedure WMNCHitTest(var M: TWMNC...

查看更多精彩>>