题目
一个文本框，一个按钮
在文本框中输入文本，然后点击按钮。如果文本框中包含空格，则弹出消息框，如何编写代码？请高手不吝赐教。

Private Sub Command1_Click()
If InStr(1, Text1.Text, " ") > 1 Then MsgBox "空格"
End Sub

嗯,就是用instr函数

本人比较无聊

[CODE]Private Sub Command1_Click()
If Replace(Text1.Text," ")<>Text1.Text Then MsgBox "空格"
End Sub[/CODE]

[此贴子已经被作者于2007-9-8 16:53:35编辑过]

非常感谢，我会了！~

会了这个.不叫会..
会懂得举一反三.才叫会.

6楼美女说得很对

楼上真好人啊!

天下间还是好人多

好人多是好事啊　！