シンプルなプログラムの作り方(ヘルプ) Part.5

　皆さん、こんにちは。山本美孝です。

さて、どうも連載が4回というのは、縁起が悪いので、他に改善できる点がないか調べてみた。

(1)最小化(アイコン化)しなくても、日時を挿入できる
(2)ヘルプらしきものを作る

　この2点に絞って考えてみた。(2)の方が面倒なので、手抜きコーディングの例を伝授します(笑)

　新しくフォーム　frmSetumei を作って、それにテキストボックスを配置する。

------------------------------------------------------------
Private Sub ViewHelp()

　　TmpFile = MyPath & "ReadMe.txt"

　　If Dir(TmpFile) = "" Then
　　　　MsgBox "ReadMe.txtが見つからない_
　　　　，vbCritical， "TmpMemo"
　　　　Exit Sub
　　End If

　　AllMes = ""
　　Open TmpFile For Input As #1

　　Do
　　　Line Input #1， TmpMes
　　　AllMes = AllMes & TmpMes & vbCrLf
　　Loop While Not EOF(1)

　　Close #1

　　txtMemo.Text = AllMes

End Sub
------------------------------------------------------------
　これを使うと、テキストエディタで、ReadMe.txtを編集するだけで、他のコードに流用できるので便利です。