重庆分公司,新征程启航

为企业提供网站建设、域名注册、服务器等服务

vb.net获取函数名 vbnet获取当前目录下文件名

vb.net 如何能获取到 自定义函数的代码内容

首先新建一个类库项目,把你的代码以类(需要实例)或模块(静态)的形式封装好,生成过后在输出目录(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,否则外面无法访问。

VB.NET的函数,将值赋给函数名与 return 返回值得区别

有返回值:函数执行结束,必须将执行的某个结果数据返回给调用者

没有返回值:函数执行结束,没有返回任何结果给调用者

vb 还是vb.net这两种都有。不是说vb不带返回值而.net带返回值

vb.net从文件路径中获取文件名

获取方法,参考实例如下:

'获取路径名各部分: 如: c:\dir1001\aaa.txt

'获取路径路径 c:\dir1001\

Public Function GetFileName(FilePathFileName As String) As String '获取文件名 aaa.txt

On Error Resume Next

Dim i As Integer, J As Integer

i Len(FilePathFileName)

J InStrRev(FilePathFileName, "\")

GetFileName Mid(FilePathFileName, J + 1, i)

End Function

''获取路径路径 c:\dir1001\

Public Function GetFilePath(FilePathFileName As String) As String '获取路径路径 c:\dir1001\

On Error Resume Next

Dim J As Integer

J InStrRev(FilePathFileName, "\")

GetFilePath Mid(FilePathFileName, 1, J)

End Function

'获取文件名但不包括扩展名 aaa

Public Function GetFileNameNoExt(FilePathFileName As String) As String '获取文件名但不包括扩展名 aaa

On Error Resume Next

Dim i As Integer, J As Integer, k As Integer

i Len(FilePathFileName)

J InStrRev(FilePathFileName, "\")

k InStrRev(FilePathFileName, ".")

If k 0 Then

GetFileNameNoExt Mid(FilePathFileName, J + 1, i - J)

Else

GetFileNameNoExt Mid(FilePathFileName, J + 1, k - J - 1)

End If

End Function

'===== '获取扩展名 .txt

Public Function GetFileExtName(FilePathFileName As String) As String '获取扩展名 .txt

On Error Resume Next

Dim i As Integer, J As Integer

i Len(FilePathFileName)

J InStrRev(FilePathFileName, ".")

If J 0 Then

GetFileExtName ".txt"

Else

GetFileExtName Mid(FilePathFileName, J, i)

End If

End Function

vb.net如何读取其他人的网页,并且可以自动判断编码的哪种?求函数

'******************************

'函数名:GetHtml

'作 用:读取其他网站页面内容

'参 数:Url是要读取的网站地址

'返回值:读取后的网站内容

'******************************

Function GetHtml(ByVal Url As String, ByVal bm As String) As String

Dim httpReq As System.Net.HttpWebRequest

Dim httpResp As System.Net.HttpWebResponse

Dim httpURL As New System.Uri(Url)

Dim respHTML As String = ""

httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)

httpReq.Method = "GET"

Try

httpResp = CType(httpReq.GetResponse(), HttpWebResponse)

httpReq.KeepAlive = False ' 获取或设置一个值,该值指示是否与 Internet资源建立持久连接。

Dim reader As StreamReader = New StreamReader(httpResp.GetResponseStream, System.Text.Encoding.GetEncoding(bm))

respHTML = reader.ReadToEnd() 'respHTML就是网页源代码

Catch

respHTML = "zhongduan"

End Try

Return respHTML

End Function


新闻名称:vb.net获取函数名 vbnet获取当前目录下文件名
分享URL:http://cqcxhl.cn/article/dohepdd.html

其他资讯

在线咨询
服务热线
服务热线:028-86922220
TOP