さて、前のページでエディットボックスのハンドルを取得するようにできました。また、文字列をクリアする方法も述べました。従って、いきなり関数を書きたいと思います。

Private Const WM_SETTEXT = &HC '文字列をセットする

'---------------------------------------------------------------
' 関数名： ClearNotepad
' 機能 ： メモ帳の文字列をクリアする
' 引数 ： (in)hEditbox … メモ帳のエディットボックスのハンドル
' 返り値 ：正常：１ エラー：０
'---------------------------------------------------------------
Public Function ClearNotepad(ByVal hEditbox As Long) As Long

　　Dim ret As Long

　　'文字列をクリアする
　　ret = SendMessage(hEditbox, WM_SETTEXT, 0&, ByVal "")

　　ClearNotepad = IIf(ret, 1, 0)

End Function

例のごとく、コマンドボタン(オブジェクト名：cmdClearNotepad)を配置して次のコードを書きます。

Private Sub cmdClearNotepad_Click()

　　Call ClearNotepad(hEditbox)

End Sub

当然のことですが、メモ帳に適当な文字を入力してから動作を確認してみてくださいね。