[356.xls]



' [mjSumple] のコード
'■■ Enterキーが押されたときの動作を設定する ■■
'
'
'※あらかじめ、ﾃｷｽﾄﾎﾞｯｸｽ上下共に
'
' WordWrap = True
' MultiLine = True
'
'の設定にしてあります

'フォームを表示します
Sub frmSumple_Show()
    '上のﾃｷｽﾄﾎﾞｯｸｽはEnterで改行できるようにする
    frmSumple.txtInput0.EnterKeyBehavior = True
    
    '下はEnterｷｰが押されたら、次のｺﾝﾄﾛｰﾙへﾌｫｰｶｽ移動
    'するようにする
    frmSumple.txtInput1.EnterKeyBehavior = False
    
    'フォームの表示
    frmSumple.Show
End Sub