VB API声明转易语言API声明

ZhengXinHao

Public Declare Function DwmExtendFrameIntoClientArea Lib “dwmapi.dll” (ByVal Hwnd As Long, margin As MARGINS) As Long

没有Alias，不知道怎么弄

啄啄

抢下沙发，翻译OK
.版本 2

.DLL命令 DwmExtendFrameIntoClientArea, 整数型, "dwmapi.dll", "DwmExtendFrameIntoClientArea", 公开
    .参数 Hwnd, 整数型
    .参数 margin, MARGINS

.DLL命令 DwmIsCompositionEnabled, 整数型, "dwmapi.dll", "DwmIsCompositionEnabled ", 公开
    .参数 enabledptr, 逻辑型, 传址

.DLL命令 CreateSolidBrush, 整数型, "gdi32", "CreateSolidBrush", 公开
    .参数 crColor, 整数型

.DLL命令 FillRect, 整数型, "user32", "FillRect ", 公开
    .参数 hdc, 整数型
    .参数 lpRect, RECT
    .参数 hBrush, 整数型

.DLL命令 SelectObject, 整数型, "gdi32", "SelectObject", 公开
    .参数 hdc, 整数型
    .参数 hObject, 整数型

.DLL命令 DeleteObject, 整数型, "gdi32", "DeleteObject", 公开
    .参数 hObject, 整数型

.DLL命令 GetClientRect, 整数型, "user32", "GetClientRect"
    .参数 Hwnd, 整数型
    .参数 lpRect, RECT


部分自定义的数据类型，请自行添加，因为LZ你没有列出来，我也没有办法翻译

ZhengXinHao

啄啄 发表于 2011-10-29 11:32
抢下沙发，翻译OK
.版本 2

自定义数据类型我知道

ZhengXinHao

再问一下，常量为什么不行
[e]

.版本 2
.常量 LWA_COLORKEY, "&H1", 公开
.常量 GWL_EXSTYLE, "(-20)", 公开
.常量 WS_EX_LAYERED, "&H80000", 公开

[/e]

1. 
   
2. Public Const LWA_COLORKEY =
   
3. &H1
   
4. 
   
5. Public Const GWL_EXSTYLE = (-20)
   
6. 
   
7. Public Const WS_EX_LAYERED = &H80000

复制代码

1. 正在编译现行程序
   
2. 正在检查重复名称...
   
3. 正在预处理现行程序
   
4. 错误(44): 错误的常量数值格式（只能为数值、逻辑值、文本或日期时间）。
   

复制代码

ZhengXinHao

1.     .参数 margin, MARGINS

复制代码

觉得楼主没有传址诶

誓言゛

{:3_226:}{:3_229:}看不懂，对不起