| 本月文章推荐 |
实现窗体内部的左右移动发表日期：2006-2-27
|
|
'分割区的宽度
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-> |
| 上一篇：用VB5.0设计能适应各种显示属性下的界面
人气:4094 下一篇：封面的设计 人气:4361 |
| 浏览全部Visual Basic的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
