注册表_近期文件菜单m.bas

来自「<VB数理统计实用算法>书中的算法源程序」· BAS 代码 · 共 24 行

Attribute VB_Name = "Module1"
Option Explicit
'在INI文件中取出键名和键值。
'lpApplicationName为段名。
'lpKeyName键名。若指定的段中不存在该键，则创建。
'如果给定的lpKeyName在INI文件中没有找到，则用lpDefault作为
'lpReturnedString缺省字符串返回。
'用nSize为lpReturnedString指定大小。
'lpFileName为INI文件名。
Declare Function GetPrivateProfileString Lib "kernel32" _
    Alias "GetPrivateProfileStringA" _
    (ByVal lpApplicationName As String, ByVal lpKeyName As Any, _
    ByVal lpDefault As String, ByVal lpReturnedString As String, _
    ByVal nSize As Long, ByVal lpFileName As String) As Long
'将键名和键值写入INI文件。
'lpString是被写入INI文件的字符串。如果为空，则其所指向的键将被删除。
'其余参数同上。
Declare Function WritePrivateProfileString Lib "kernel32" _
    Alias "WritePrivateProfileStringA" _
    (ByVal lpApplicationName As String, ByVal lpKeyName As Any, _
    ByVal lpString As Any, ByVal lpFileName As String) As Long

Public Const MaxFileNumber = 5      '菜单数组中可容纳的最多文件数