module1.vb

来自「Visual.Basic.NET实用编程百例-47.6M.zip」· VB 代码 · 共 31 行

Imports System.Text
Module Module1
    Public Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" ( _
                                           ByVal lpApplicationName As String, _
                                           ByVal lpKeyName As String, _
                                           ByVal nDefault As Integer, _
                                           ByVal lpFileName As String) As Integer
    Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" ( _
                                        ByVal lpApplicationName As String, _
                                        ByVal lpKeyName As String, _
                                        ByVal lpDefault As String, _
                                        ByVal lpReturnedString As StringBuilder, _
                                        ByVal nSize As Integer, _
                                        ByVal lpFileName As String) As Integer
    Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" ( _
                                        ByVal lpApplicationName As String, _
                                        ByVal lpKeyName As String, _
                                        ByVal lpString As String, _
                                        ByVal lpFileName As String) As Integer
    Public Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" ( _
                                         ByVal lpAppName As String, _
                                         ByVal lpReturnedString As StringBuilder, _
                                         ByVal nSize As Integer, _
                                         ByVal lpFileName As String) As Integer
    Public Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" ( _
                                        ByVal lpAppName As String, _
                                        ByVal lpString As String, _
                                        ByVal lpFileName As String) As Integer
    Public Const FILE_NAME = ".\window.ini"
End Module