Excelで画像表示ソフトを作ってみよう

'前回のフォーム位置を読み、反映する
Private Sub ExFormPosSet()
    Dim s1 As String
    Dim buf As String * 256
    
On Error Resume Next
    '左位置
    GetPrivateProfileString "画像初期値", "Left", "100", buf, Len(buf), sMyBookPath & "gazo.ini"
    s1 = Left$(buf, InStr(buf, vbNullChar) - 1)
    UserForm1.Left = s1
    
    '上位置
    GetPrivateProfileString "画像初期値", "Top", "100", buf, Len(buf), sMyBookPath & "gazo.ini"
    s1 = Left$(buf, InStr(buf, vbNullChar) - 1)
    UserForm1.Top = s1
End Sub

Private Sub UserForm_Initialize()
    Dim sdir As String
    Dim buf As String * 256
    
    Range("B3:C65536") = ""
    
    'このファイルがあるフォルダを取得
    sMyBookPath = ActiveWorkbook.Path
    If Right$(sMyBookPath, 1) <> "\" Then sMyBookPath = sMyBookPath + "\"

    '前回のフォーム位置を読み、反映する
    ExFormPosSet

    '読込先フォルダの初期値
    GetPrivateProfileString "画像初期値", "フォルダ", "", buf, Len(buf), sMyBookPath & "gazo.ini"
    sdir = Left$(buf, InStr(buf, vbNullChar) - 1)
    TextBox1.Text = sdir
    'フォルダの存在確認
    If ExDir(sdir, vbDirectory) = "" Then
        sdir = ""
    Else
        ExGetFileList sdir
    End If
End Sub