数据库

本类阅读TOP10

·SQL语句导入导出大全
·SQL Server日期计算
·SQL语句导入导出大全
·SQL to Excel 的应用
·Oracle中password file的作用及说明
·MS SQLServer OLEDB分布式事务无法启动的一般解决方案
·sqlserver2000数据库置疑的解决方法
·一个比较实用的大数据量分页存储过程
·如何在正运行 SQL Server 7.0 的服务器之间传输登录和密码
·SQL中两台服务器间使用连接服务器

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
使Response窗口可以改变大小

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

1. 我们需要申明以下几个API函数:

Function long SetWindowLongA(ulong hWnd, int nIndex, long dwNewLong) library "user32"
Function long GetWindowLongA(ulong hWnd, int nIndex) library "user32"

2. 建立一个Response类型的窗口, 记住: ControlMenu属性必须为False.

3. 在窗口的Open事件里:

constant long GWL_STYLE = -16

constant long WS_SYSMENU          = 524288
constant long WS_THICKFRAME       = 262144

long dwStyle
dwStyle = GetWindowLongA(Handle(this), GWL_STYLE)

SetWindowLongA(Handle(this), GWL_STYLE, dwStyle + WS_THICKFRAME + WS_SYSMENU)




相关文章

相关软件