[463.xls]



' [mjSumple] のコード
'■■ テキストボックスでTabキーが押された場合の動作を切り替える ■■
'
'

'フォームを表示します
Sub frmSumple_Show()
       
    With frmSumple.txtInput1
       .MultiLine = True
       .WordWrap = True
       .TabKeyBehavior = False  'タブ文字を不許可
    End With
       
    With frmSumple.txtInput2
       .MultiLine = True
       .WordWrap = True
       .TabKeyBehavior = True   'タブ文字を許可
    End With
       
    'フォームの表示
    frmSumple.Show
    
End Sub



' [frmSumple] のコード

Private Sub cmdClose_Click()
    
Dim intRet As Integer
    
    intRet = MsgBox("システムを終了してよろしいですか？", vbOKCancel + vbInformation, "終了確認")
    
    If intRet = vbOK Then
        Unload frmSumple
    End If
    
End Sub