重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
字符串中指定文字位置查询,如:instr("inter","er")
让客户满意是我们工作的目标,不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户,将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴,公司提供的服务项目有:域名申请、虚拟空间、营销软件、网站建设、项城网站维护、网站推广。
返回待判断字符串在原字符串中第一次出现的位置,如果不包含的话返回0
看来您不了解vb.net的程序结构。vb.net的Windows方面的工程分为两种:窗体应用程序和控制台应用程序。窗体应用程序没有Main函数,直接从一个窗体启动(例如启动对象设置为Form1),启动时会自动加载Form1.Designer.vb获得控件信息(窗体设计器自动生成),Form1.vb获得你编写的代码和事件处理程序。控制台应用程序需要从一个Module启动。一个控制台应用程序可以含有多个模块,但启动时只调用选择的启动对象里面的Sub Main()。
首先新建一个类库项目,把你的代码以类(需要实例)或模块(静态)的形式封装好,生成过后在输出目录(bin/debug或bin/release)里面会有个项目名.dll文件,就是它了。
在调用方项目里,右键解决方案资源管理器中的引用,添加引用,浏览到你的dll文件。接着到你的代码中,代码最上面写:
Imports 项目名
然后调用这个类或模块即可。
根据你的情况,可能用模块封装更适合一些。比如:
Public Module MatrixSolve
Public Function Solve(para1 As Double,para2 As Double) As Double
'一些代码
Return result
End Function
End Module
调用起来只要这样即可:
Dim num As Double = MatrixSolve.Solve(x,y)
注意模块和函数的访问级别都用Public,否则外面无法访问。
有啊,用正则表达式,下面是简单的例子
Imports System.Text.RegularExpressions
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim str As String = "ABCDAEAFAG"
Dim Patter As String = "A"
Dim Matches As MatchCollection = Regex.Matches(str, Patter, RegexOptions.IgnoreCase Or RegexOptions.ExplicitCapture)
For Each ws In Matches
ListBox1.Items.Add("索引位置:" ws.index)
Next
End Sub
End Class
打开vs的对象管理器(快捷键Ctrl
+
Alt
+
J
)就可以看到所有的类的方法和属性等~