[364.xls]



' [mjSumple] のコード
'■■ フォーカスを取得したときにテキストボックスの文字列を全選択状態にする ■■
'
'

'フォームを表示します
Sub frmSumple_Show()
       
    frmSumple.txtInput0.Text = "普通にSetFocusすると"
    
    frmSumple.txtInput1.Text = "全選択の指定をすると"
    
    'フォームの表示
    frmSumple.Show
End Sub


Sub Btn1_Click()
    frmSumple.txtInput0.SetFocus
End Sub

Sub Btn2_Click()
    frmSumple.txtInput1.SetFocus
    
    Call Input1_GotFocus
    
End Sub


Sub Input1_GotFocus()
    
Dim intStrLen As Integer
    
    intStrLen = Len(frmSumple.txtInput1.Text)
    
    frmSumple.txtInput1.SelStart = 0
    frmSumple.txtInput1.SelLength = intStrLen
    
End Sub



' [frmSumple] のコード

Private Sub cmdBtn1_Click()
    Call Btn1_Click
End Sub

Private Sub cmdBtn2_Click()
    Call Btn2_Click
End Sub