[362.xls]



' [mjSumple] のコード
'■■ テキストボックスにフォーカスをセットする ■■
'
'


'フォームを表示します
Sub frmSumple_Show()
       
    'フォームの表示
    frmSumple.Show
End Sub


Sub Btn1_Click()
    frmSumple.txtInput0.SetFocus
End Sub

Sub Btn2_Click()
    frmSumple.txtInput1.SetFocus
End Sub

Sub Btn3_Click()
    frmSumple.txtInput2.SetFocus
End Sub



' [frmSumple] のコード

Private Sub cmdBtn1_Click()
    Call Btn1_Click
End Sub

Private Sub cmdBtn2_Click()
    Call Btn2_Click
End Sub

Private Sub cmdBtn3_Click()
    Call Btn3_Click
End Sub