1. 首页
  2. 编程语言
  3. 其他
  4. VB拖动无边框窗体的例子.rar

VB拖动无边框窗体的例子.rar

上传者: 2019-10-04 22:17:33上传 RAR文件 1.92KB 热度 27次
拖动无边框窗体的例子,演示了具体的实现方法,基于VB6.0编写,一个很实用的移动无标题栏窗体的例子,拖动无边框窗体其实现方法简单,很值得借鉴。以下是关键部分的代码:  SubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,YAsSingle)  IfButton=1Then'CheckingforLeftButtononly  DimReturnValAsLong  x=ReleaseCapture()  ReturnVal=SendMessage(hwnd,WM_N
用户评论