vb中api函数的常数如何声明???

[jiang1]

各位高人:
请教一个问题:vb中api函数的常数如何声明???
比如:CreateFileMapping这个函数中的 flProtect 一项中有几个选项可设置
PAGE_READONLY,PAGE_READWRITE,PAGE_WRITECOPY,但它是"Long"的数据类型.
问题:这些值用api文本浏览器打开,在win32api中的常数定义中怎么没有??那应该怎样声明....


jiang1
3.24 9:46

[MarsXia]

Such as:
Public Const PAGE_READONLY = ? ' "?" Is your value.

That's OK:)

[Un1]

到 VC 的 FindInFiles 菜单中去查找 PAGE_READONLY

[nlh]

sample:
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Dim R As Integer
------------
R = ExitWindowsEx(1, 0)
详情可以从vb的api 察看器中 加载win32 api.txt.
good luck!

[Janven]

教你一个方法，前提是你装了VC++，在VC中可以查找到PAGE_READONLY之类的16进制值，你就可以在标准模块中定义他们了。当然查找的目录选定VC下的Include目录。
定义方式的在函数声明之前。
Public Const PAGE_READONLY = &H4667（数字可是我乱编的）
Public Const PAGE_READWRITE= &H4668
Public Const PAGE_WRITECOPY= &H4669

[RealTop]

VC中定义的PAGE_????为：
#define PAGE_NOACCESS 0x01
#define PAGE_READONLY 0x02
#define PAGE_READWRITE 0x04
#define PAGE_WRITECOPY 0x08
#define PAGE_EXECUTE 0x10
#define PAGE_EXECUTE_READ 0x20
#define PAGE_EXECUTE_READWRITE 0x40
#define PAGE_EXECUTE_WRITECOPY 0x80
#define PAGE_GUARD 0x100
#define PAGE_NOCACHE 0x200
#define PAGE_WRITECOMBINE 0x400
改成VB的声明，请按Janven提供的方法。