[353.xls]



' [mjSumple] のコード
'■■ テキストボックスに入力された文字数をチェックする ■■
'
'
Dim intTextCnt As String    'メッセージ用変数

'フォームを表示します
Sub frmSumple_Show()

    'フォームの表示
    frmSumple.Show
End Sub

'入力された文字数を数えて表示します
Sub TextCount()
    
    intTextCnt = Len(frmSumple.txtInput.Text)  '文字数のカウント

    frmSumple.lblDisp.Caption = intTextCnt '文字数の表示
    
End Sub





' [frmSumple] のコード

Private Sub cmdTextCount_Click()
    Call TextCount
End Sub