‘INIファイルから値を取得する関数の宣言 Public Declare Function GetPrivateProfileString Lib "kernel32.dll" _ Alias "GetPrivateProfileStringA" _ (ByVal lpAppName As String, _ ByVal lpKeyName As String, _ ByVal lpDefault As String, _ ByVal lpReturnedString As String, _ ByVal nSize As Long, _ ByVal lpFileName As String) As Long
‘/*************************************************/ ‘/* [ 名 称 ] subSetFormIchi : 画面位置復元処理 ‘/* [ 引 数 ] objForm : 入力 (フォームオブジェクト) ‘/* [ 戻 値 ] なし ‘/* [ 概 要 ] 前回表示した画面位置をINIファイルから取得し、 ‘/* フォーム位置をセットし直す。Form_Loadイベント時に呼び出す。 ‘/* [ 履 歴 ] 2003/11/01 新規 v01.00 会社名 担当者名 ‘/*************************************************/ Public Sub subSetFormIchi(ByRef objForm As Form) On Error GoTo Err_subSetFormIchi ‘変数宣言——————————————————————— Dim strValue As String * 1024 ‘WindowsAPIの戻り値変数 Dim lngStrLength As Long ‘WindowsAPIに渡す変数の長さ変数 Dim lngReturnLength As Long ‘WindowsAPIの動作結果値変数 Dim strPathFile As String ‘INIファイルのフルパス変数 Dim intIchi As Integer ‘フォームの位置変数 ‘—————————————————————————–