作者redclock (红色时锺)
看板Visual_Basic
标题Re: [VB6 ] 请问如何抓取空字元..
时间Wed Aug 10 14:14:05 2005
※ 引述《mhc (路边小草)》之铭言：
: ※ 引述《redclock (红色时锺)》之铭言：
: : 以下是小弟的部份程式码
: 不确定你表达的东西是什麽阿..你是要这种东西吗？ @@
: Private Sub Command1_Click()
: If Trim(Chr) = "" Then
: rtvl = MsgBox("首字不得为空白！", vbCritical Or vbOKOnly, "注意!")
: Unload Me
: End If
: 还是
: Private Sub Command1_Click()
: If Left(Chr,1) = " " Then
: rtvl = MsgBox("首字不得为空白！", vbCritical Or vbOKOnly, "注意!")
: Unload Me
: End If
: anyway,去看一下字串处理函示吧~
感谢各位先进的帮忙
我找到写的方法了~
If Mid(RichTextBox1.SelText, 1, 1) = Chr(32) Then
rtvl = MsgBox("首字不得为空白！", vbCritical Or vbOKOnly, "注意!")
Uload Me
End If
感谢各位 <(_ _)>
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 203.70.54.215
1F：推 fumizuki:Left(...., 1) = " " 61.222.155.162 08/10
2F：推 runtime:mid(....,1)=""220.133.250.210 08/11