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

Step 3 終了ボタンと、終了時フォルダをINIファイルに保存

終了イベントで、テキストボックスに指定されているフォルダ名をINIファイルに保存します。

Homeへ > Excelでアプリケーションソフト > 画像表示ソフト



ユーザーフォームコード

下記のVBAコードを追加してください。

'INIファイル書き込み
Private 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

'終了ボタン
Private Sub CommandButton2_Click()
    Unload UserForm1
End Sub

Private Sub UserForm_Terminate()
    '現在のフォルダを保存
    WritePrivateProfileString "画像初期値", "フォルダ", TextBox1.Text, sMyBookPath & "gazo.ini"
End Sub

シート画面

保存されたINIファイルの内容
メモ帳でファイル内容を表示
Homeへ > Excelでアプリケーションソフト > 画像表示ソフト

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved