| 投稿日 | ： 2003/05/22(Thu) 19:56 |
| 投稿者 | ： なると |
| ＵＲＬ | ： |
| タイトル | ： Re^3: テキストボックスでスペースキー |
> 多分こちらの方が条件に合うのでは
> 全角・半角の両方のスペースに対応しており、貼り付け等の途中に入っているスペースを無視し、最後が
> スペースの時だけ表示します
>
> Private Sub Text1_Change()
> If Len(Text1.Text) >= 1 And _
> StrConv(Right$(Text1.Text, 1), vbNarrow) = " " Then
> Form2.Show
> End If
> End Sub
ありがとうございます。
おかげさまでうまく作れました。