Private Sub Command1_Click()
aa = InStr(1, "[email protected]", "@") + 1
bb = Mid("[email protected]", aa, Len("[email protected]"))
MsgBox bb
End Sub
aa = InStr(1, "[email protected]", "@") + 1
bb = Mid("[email protected]", aa, Len("[email protected]"))
MsgBox bb
End Sub
解决方案 »
- vb导入到excel excel的格式问题
- 制作安装程序的自解压文件问题
- 求一段把get提交参数保存到txt文件的asp代码
- 神奇的Reflector输出的.NET源码与真正的源码有什么区别?
- 怎么样在自定义控件里面获得控件自己的位置?
- 如何单击一个COMMADN控件时TOOLBAR中的一个Button.Enabled = False
- 大家的源程序是怎么管理的?
- 请教:实时保存数据的问题~
- 请教斑竹及各位高手!(关于多显示器函数(Multiple Display Monitors Functions))?
- 请问一个vb中shell函数的问题!急!!!
- 帮帮忙吧,实在不好意思,没有分了!! 请问 如何动态地建立一个form??
- ShellExecute调用WORD打开文档时出现“应用程序错误”
MsgBox bb