Question

vb程序 中想让某个label中当包含8个空格时执行一个语句

请问怎么能弄
怎么搜索到label时有8个空格

Answer 1

是8个空格还是8个连续的空格？
如果是8个连续的空格，就是1楼回答的答案；
如果是8个空格，答案应该是
mid i,j as long
j=0
if len(lable1.caption)>0 then
for i=1 to len(lable1.caption)
if mid(str,i,1)=" " then j=j+1
next
if j=8 then 执行语句
end if

Answer 2

'使用代码前，请确保：
'=======================
'已在窗体上添加CommandButton控件一个，名字叫Command1
'已在窗体上添加Label控件一个，名字叫Label1

Private Sub Command1_Click()

If UBound(Split(Label1.Caption, " ")) = 8 Then
MsgBox "有8个空格"
Else
MsgBox "空格没有8个或者多于8个了"
End If

End Sub

Private Sub Form_Load()
Label1.Caption = "1 2 3 4 5 6 7 8 9"
End Sub

Answer 3

你加语句：
if instr(label1.caption,string(8," "))<>0 then 执行语句···