VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2007/06/18(Mon) 20:46
投稿者： yukka
Ｅメール：
ＵＲＬ：
タイトル： Textbox入力時、vbCrLfの検出

テキストボックス入力中、最後に改行がいくつ行われたかを判定し、
次のイベントを発生させたいと思っています。
しかし、下記の単純な命令がうまく機能せず、困っています。
どこが悪いのか、ご教授をいただけませんでしょうか？

'=======================================================================
Private Sub Text1_Change()
If Right(Text1.Text, 2) = vbCrLf & vbCrLf Then・・・改行２回連続の場合
If Right(Text1.Text, 1) = vbCrLf Then・・・改行１回の場合
'=======================================================================

vbCrLfを"aaa"など、具体的なワードにするとうまく動きます。
基本的な話で申し訳ありませんが、
よろしくお願い致します。

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -