社区
VB基础类
帖子详情
请VB同行们拉本菜鸟一把,我已经给出了我所能给的最高分
stephenz2
2000-07-23 01:31:00
请问:
如何用API函数实现象Magicwin 或 Richwin 一样的无标题栏窗体拖动?
谢谢!
...全文
80
2
打赏
收藏
请VB同行们拉本菜鸟一把,我已经给出了我所能给的最高分
请问: 如何用API函数实现象Magicwin 或 Richwin 一样的无标题栏窗体拖动? 谢谢!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
2 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
stephenz2
2000-07-23
打赏
举报
回复
谢谢你!
flywhc
2000-07-23
打赏
举报
回复
转贴一篇给你
大家知道,在VB中可以通过设置Form的属性,制作无系统标题栏的窗口。可是,由于失去了系统标题栏,如何使用鼠标拖动窗口便成了一个棘手的问题。其实,借助API函数ReleaseCapture和SendMessage,这个问题便可迎刃而解了。
首先,在module文件中加入下列声明语句:
Declare Sub ReleaseCapture Lib"User"()
Declare Function SendMessage Lib"User"(ByVal hWnd _
As Integer,ByVal wMsg As Integer,ByVal wParam As Integer,_lParam As Any)As Long
Public Const WM_SYSCOMMAND=&H112
Public Const SC_MOVE=&HF010
Public Const HTCAPTION=2
然后,在Form的MouseDown事件中加入下列代码:
ReleaseCapture
Ret&=SendMessage(Me.hWnd,WM_SYSCOMMAND,_SC_MOVE+HTCAPTION,0)
……
程序运行后,只要当光标落在Form区域时按住鼠标左键,便可以拖动窗口了。在一些要求生动活泼的界面的程序设计中,开发者常常希望自制风格独特的标题栏,以满足整个界面的要求。通过这个方法,就可以使自制的标题栏达到乱真的地步。不过,用作自制标题栏的控件,必须具有MouseDown事件以摆放上述代码。
冻融循环作用下混凝土的受
拉本
构特征 (2011年)
为了得出冻融循环作用下混凝土受拉应力一应变关系曲线上升段方程,对经过0,25,50,75,100,125次冻融循环的4个不同强度等级的普通混凝土抗拉试块进行了试验研究,结合现有普通混凝土受
拉本
构关系,建立了冻融循环...
论文研究 - 南海珠江口盆地半格
拉本
湖型湖盆亚盆中富烃凹陷的构造与沉积特征
珠江口盆地经历复杂的构造演化过程,形成湖相,过渡带和海洋沉积。 钻探表明,在南海珠江口盆地富含烃的凹陷中存在大量的石油。 为了降低风险,应确定和描述富烃凹陷的勘探,构造和沉积特征。 结合了钻井,地震和微...
TNM082-Labb:
拉本
2015
TNM082-实验室实验室 在 TNM082 课程中,2015 年。适用于移动设备和平板电脑。
机车急流:Squib脚本为机车车辆生成卡片,这是一种由比约恩·
拉本
斯坦(BjörnRabenstein)设计的有关股票和公司交易的纸牌游戏
渲染结果示例: : 入门如果您只想打印游戏的副本,
请
从该存储库中获取一个预渲染的(一旦存在)。 在此之前,或者您要进行更改或自己渲染...先决条件的最新版本。 和字体以下说明还有其他一些要求,例如Bundler,...
论文研究 - 费耶阿本德的科学无政府主义与尼日利亚科学进步的相关性
保罗·费耶
拉本
德(Paul Feyerabend)反对西方的全球化哲学只相信一种制度或“理性的”辩护标准,就捍卫了方法论无政府主义,认为方法论无政府主义仍然可以在其中建立连贯性。 费耶阿本德(Feyerabend)反对并拒绝...
VB基础类
7,759
社区成员
197,606
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章