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

Question

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

Answer 1

Such as:
    Public Const PAGE_READONLY = ?  '  "?" Is your value.That's OK:)

Answer 2

到 VC 的 FindInFiles 菜单中去查找 PAGE_READONLY 

Answer 3

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!

Answer 4

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提供的方法。