List 7-132　FormInputMsgフォームのGetMessageプロシージャ

---

  1： Private OkFlag As Boolean
  2： 
  3： Public Function GetMessage(Optional title As String = "", _
   　                            Optional msg As String = "", _
   　                            Optional default As String = "") As Variant
  4：     ' フォームを表示し，ユーザーが入力した文字列を返す
  5：     ' ただし，ユーザーが［キャンセル］ボタンを押したときにはNullを返す
  6：     Me.Caption = title
  7：     LABEL_MSG.Caption = msg
  8：     TXT_MSG.Text = default
  9：     
 10：     OkFlag = False
 11：     Me.Show 1
 12：     
 13：     If OkFlag Then
 14：         ' ［OK］ボタンが押された場合
 15：         GetMessage = TXT_MSG.Text
 16：     Else
 17：         ' ［OK］ボタンが押されなかった場合
 18：         GetMessage = Null
 19：     End If
 20： End Function