vb中怎么判断一个字符串中包含另一个字符串

1、启动VB新建工程1，在form1的合适位置画出3个Label框、2个Text框以及1个Command按钮（可以预先对各控件的Caption等属性进行修改）。

2、双击“统计”（即Command1）按钮，在d出的代码框中编写如下代码：

PrivateSubCommand1_Click()DimxAsStringa=Text1.Textb=Text2.Textn=0Fori=1ToLen(a)x=Mid(a,i,1)

If x = b Then n = n + 1  Next i  Label3.Caption = "字符" &b &"在字符串”" &a &"“中" &vbCrLf &"共出现了" &n &"次。"End Sub

这样便达到了检索所有字符、统计某个字符出现次数的需求了。

3、同理，对text2进行设置，当光标停留在text2中，按下回车键时，光标将跳到Command上，方便 *** 作：

PrivateSubtext2_keypress(keyasciiAsInteger)Ifkeyascii=13ThenCommand1.SetFocusEndSub

4、最后点击运行即可。

第一个其实不用设置，因为计算机默认的文本选择就是Ctrl+A，不过原理还是给你看看吧、text1的tabindex=0

Private

Sub

text1_KeyDown(KeyCode

As

Integer,

Shift

As

Integer)

If

KeyCode

=

65

And

Shift

=

2

Then

Text1.SelStart

=

0

Text1.SelLength

=

Len(Text1)

End

If

End

Sub

Private

Sub

Text2_GotFocus()

Text2.SelStart

=

0

Text2.SelLength

=

Len(Text1)

End

Sub

首先要说明的是光标的闪烁只能在一个text框中

不是text1就是text2中不可能两个文本中都存在光标并让其闪烁

同样打开两个记事本也只能让一个记事本程序有光标并让其闪烁

不可能同时闪烁

如果你想自己将text1的光标定在第五个字符上

时再点text2时光标也让其在text2的第五个字符上闪烁

那么这样做

private

sub

text2_mousedown(button

as

integer,

shift

as

integer,

x

as

single,

y

as

single)

text1.selstart

=

5

end

sub

---