マルチラインテキストの改行とIF

ささ 2008-02-19 20:38:26 No: 100321

マルチラインテキストtext1で、改行のみを入力します。

下記のコードで、改行だけの文字入力なしは、
文字列変数strには、""が格納されてるのですが
if文はFALSEになってしましいます。

OKと表示するIF文の条件はどうすればよいのでしょうか？

str = Text1.Text

If str = "" Then
MsgBox "OK"
End If

ガッ 2008-02-19 20:41:53 No: 100322

> 文字列変数strには、""が格納されてる
この確認方法がたまたま制御コードを無視するものだったのでしょう．
多分VB6だと思いますが，次のようにすればどうなりますか？
str=text1.text
if str=vbNewLine Then MsgBox "NewLine"
if str=vbCr Then MsgBox "Cr"
if str=vbLf Then MsgBox "Lf"
if str=vbCrLf Then MsgBox "CrLf"

ささ 2008-02-19 23:23:04 No: 100323

改行が２個あると、上記のコードではダメです。

left関数も使えまん。

KG 2008-02-20 04:03:43 No: 100324

Replace関数で改行を空白に置換してから比較してみればいいのでは？