首页 相关文章 实现窗体内部的左右移动

实现窗体内部的左右移动

'分割区的宽度
  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
  
  ...[ 查看全文 ]

2016-02-19 标签:

实现窗体内部的左右移动的相关文章

手机页面
收藏网站 回到头部