社区
VB基础类
帖子详情
请VB同行们拉本菜鸟一把,我已经给出了我所能给的最高分
stephenz2
2000-07-23 01:31:00
请问:
如何用API函数实现象Magicwin 或 Richwin 一样的无标题栏窗体拖动?
谢谢!
...全文
84
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个不同强度等级的普通混凝土抗拉试块进行了试验研究,结合现有普通混凝土受
拉本
构关系,建立了冻融循环次数、混凝土等级与混凝土受
拉本
构特征的关系.试验结果表明:随着冻融循环次数增加,混凝土的受拉应力-应变关系曲线上升段渐趋平缓,受拉峰值应力、受拉峰值应变降低,变化关系近似线性;冻融循环次数相同时,混凝土强度等级高的试件受拉峰值应力、受拉峰值应变降低程度小于混凝土强度等级低的试件,但下降速度没有明
论文研究 - 南海珠江口盆地半格
拉本
湖型湖盆亚盆中富烃凹陷的构造与沉积特征
珠江口盆地经历复杂的构造演化过程,形成湖相,过渡带和海洋沉积。 钻探表明,在南海珠江口盆地富含烃的凹陷中存在大量的石油。 为了降低风险,应确定和描述富烃凹陷的勘探,构造和沉积特征。 结合了钻井,地震和微化石数据,以解释珠江口盆地富烃凹陷的构造和沉积演化。 通过分析构造和沉积演化特征,可以得出三个结论:1)PRMB目前的区域构造特征是由欧亚板块,太平洋板块,菲律宾板块和印度板块的相互作用形成的。 在古新世至早始新世,晚始新世和早渐新世期间,PRMB处于裂谷阶段。 在渐新世晚期,PRMB处于裂谷-凹陷过渡阶段。 渐新世之后,PRMB处于低气压阶段。 2)构造条件控制着富烃凹陷的沉积过程。 在湖相沉积阶段,同沉积断层和强烈断层控制了沉积。 在过渡沉积阶段,断层活动较弱会影响富烃凹陷的沉积过程。 在海洋沉积阶段,断层活动和凹陷活动的弱化控制着富烃凹陷的沉积过程。 3)构造演化影响沉积过程。 湖相,过渡带和海洋沉积对应于不同的构造条件。 在裂谷活动期间断层活动下形成湖相沉积。 在裂谷后期,断层活动弱,形成了过渡沉积。 在裂谷-凹陷和凹陷阶段,海相沉积是在弱断层活动和凹陷活动下形成的。 4)半gr
TNM082-Labb:
拉本
2015
TNM082-实验室 实验室 在 TNM082 课程中,2015 年。适用于移动设备和平板电脑。
机车急流:Squib脚本为机车车辆生成卡片,这是一种由比约恩·
拉本
斯坦(BjörnRabenstein)设计的有关股票和公司交易的纸牌游戏
机车车辆Squib脚本 这些脚本使用呈现一组牌等部件进行游戏的设计的 。 该游戏的商业版本可从。 在比约恩的许可下,该版本的游戏可以共享用于非商业印刷和游戏。 还包括原始规则和指南的版本,分为适合各种按需打印服务的单个页面图像。 渲染结果示例: : 入门 如果您只想打印游戏的副本,
请
从该存储库中获取一个预渲染的(一旦存在)。 在此之前,或者您要进行更改或自己渲染... 先决条件 的最新版本。 和字体 以下说明还有其他一些要求,例如Bundler,但是如果您愿意手动安装gem,可以跳过这些要求。 正在安装 克隆此存储库git clone https://github.com/sparr/
论文研究 - 费耶阿本德的科学无政府主义与尼日利亚科学进步的相关性
保罗·费耶
拉本
德(Paul Feyerabend)反对西方的全球化哲学只相信一种制度或“理性的”辩护标准,就捍卫了方法论无政府主义,认为方法论无政府主义仍然可以在其中建立连贯性。 费耶阿本德(Feyerabend)反对并拒绝方法的普遍标准,他认为,有很多系统,甚至在科学本身内部,都有各自的辩护标准,因此,不可能“理性地”在它们之间进行选择,因为它们无与伦比。 因此,代替了普遍科学技术方法的“合理性”,他谈到了方法论上的多元性,或者他所说的“认识论(科学)无政府主义”。 在此基础上,无论是科学还是技术发展,都不能以某种普遍的标准来考虑,而应该基于文化遗产和每个社会的地域差异来寻求。 因此,本文是对尼日利亚(以及整个非洲)为适应其社会政治要求以及人民的特殊文化需要而进行科学和技术发展努力的号召。
VB基础类
7,763
社区成员
197,605
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章