首页 相关文章 在VB中实现移动没有标题栏的窗口

在VB中实现移动没有标题栏的窗口

方法一
  
  
  这种方法是在窗体的MouseDown、MouseUp和MouseMove等事件的处理过程中添加代码,实现在鼠标左键按下后移动时,改变窗体的Left和Top属性,实现移动无标题栏的窗体。
  
  进入VB,把窗体Form1的BorderStyle属性设置为0-None(无标题栏),再窗体上添加一个ButtonCommand组件,用来关闭程序。代码如下:
  
  PrivateTypePOINT
  
   XAsSingle
  
   YAsSingle
  
  EndType
  
  DimFormPAsPOINT
  
  '记录窗体原始位置
  
  DimMousePAsPOINT
  
  '记录鼠标按下时的位置
  
  DimMouseLButtonDownAsBoolean
  
  '记录鼠标左键是否按下
  
  PrivateSubCommand1_Click()
  
   End'退出程序
  
  EndSub...[ 查看全文 ]

2016-02-19 标签:

在VB中实现移动没有标题栏的窗口的相关文章

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