Private Sub Command1_Click()
Dim pos As Long
pos = InStr(Text1.Text, "法论功", "法论大法")
If pos = 0 Then
MsgBox "没有法轮功言论"
Else
MsgBox "此书是禁书"
End If
End Sub
Dim pos As Long
pos = InStr(Text1.Text, "法论功", "法论大法")
If pos = 0 Then
MsgBox "没有法轮功言论"
Else
MsgBox "此书是禁书"
End If
End Sub
解决方案 »
- 有没有VB.NET的老师啊,帮我看看这份做错哪了,谢谢了
- 请教解析UDP包格式问题(解析出UDP包的源地制,目的地址等)
- VB用哪个函数建目录和复制文件
- 求教:我想写一个网络通讯的dll文件,如何创建一个socket组件?
- 在vb程序中怎样打开一个文件如word,记事本之类的。
- 简单问题!!100分由白送了!!
- VBScript的问题!(急)
- 请教专家关于VB安装程序的问题
- 我要做一个DLL,这样的功能如何实现?
- 如何在VB中调用IE的打印和打印预览!多谢!
- 随windows启动的cmmpu.exe文件是个什么文件?
- 提一个超难问题!我编写了一个修改去掉快捷方式小图标的软件,请问如何不重新启动就刷新桌面的图标呢?(就像超级兔子那样)
看看VB的关于字符串操作作的函数.很多的