vb.net查找未使用的函數(shù)

您是想問(wèn)vb.net查找未使用的函數(shù)方法嗎？vb.net查找未使用的函數(shù)方法是：

巴楚網(wǎng)站建設(shè)公司創(chuàng)新互聯(lián)公司,巴楚網(wǎng)站設(shè)計(jì)制作，有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為巴楚千余家提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\外貿(mào)營(yíng)銷(xiāo)網(wǎng)站建設(shè)要多少錢(qián)，請(qǐng)找那個(gè)售后服務(wù)好的巴楚做網(wǎng)站的公司定做！

1、在VS.NET中右鍵單擊主RESX文件，然后從上下文菜單中選擇FindUsages。

2、雙擊解決方案窗口中的每個(gè)匹配項(xiàng)，這將打開(kāi)包含該資源的源代碼窗口。

3、在源代碼窗口中重命名此資源，它將彈出ReSharper的“重命名資源”對(duì)話(huà)框。

4、它將重命名資源和自動(dòng)生成的C#包裝器/訪(fǎng)問(wèn)類(lèi)。

5、對(duì)"Usages“窗口中的所有資源重復(fù)上述步驟2、3和4。

6、在VisualStudio的資源編輯器中打開(kāi)RESX文件，并選擇所有不帶前綴的文件。

7、您最終得到了一個(gè)RESX文件，其中有未使用的函數(shù)。

vb.net 如何用通配符查找文件

步驟如下：

窗體上添加2個(gè)列表框，一個(gè)按鈕：

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim MyDir As String = "C:\123"

'搜索并顯示子文件夾

ListBox1.Items.Clear()

For Each MySubDir As String In System.IO.Directory.GetDirectories(MyDir)

ListBox1.Items.Add(MySubDir)

Next

'搜索并顯示文件

ListBox2.Items.Clear()

For Each MyFile As String In System.IO.Directory.GetFiles(MyDir)

ListBox2.Items.Add(MyFile)

Next

End Sub

End Class

vb.net 搜索子目錄下的文件

vb.net編程查找搜索指定目錄下面的所有文件和其子目錄下的文件，方法如下：

''=============================================

''名稱(chēng):?FindPath

''作用:?查找搜索指定目錄下面的所有文件和其子目錄下的文件

''參數(shù)：strPath?要查找的目錄，

''strFiles?用于存查找結(jié)果的緩沖區(qū)，String?類(lèi)型的動(dòng)態(tài)數(shù)組，調(diào)用時(shí)事先初始化，?如Redim?strFiles(0)

''FileCount?用于返回文件個(gè)數(shù)

''=============================================

Public?Sub?FindPath(ByVal?strPath?As?String,?strFiles()?As?String,?FileCount?As?Long)

Dim?strDirs()???As?String

Dim?strResult???As?String

Dim?FileLimit???As?Long

Dim?dirLimit????As?Long

Dim?dirCount????As?Long

Dim?I???????????As?Long

FileLimit?=?UBound(strFiles)?+?1

dirLimit?=?0

If?Right$(strPath,?1)??"/"?Then?strPath?=?strPath??"/"

strResult?=?Dir(strPath,?vbDirectory?+?vbSystem?+?vbReadOnly?+?vbHidden?+?vbNormal?+?vbArchive)

Do?While?Len(strResult)??0

If?strResult??"."?And?strResult??".."?Then

If?(GetAttr(strPath??strResult)?And?vbDirectory)??vbDirectory?Then

If?FileCount?=?FileLimit?Then

ReDim?Preserve?strFiles(FileLimit?+?10)

FileLimit?=?FileLimit?+?10

End?If

strFiles(FileCount)?=?strPath??strResult

FileCount?=?FileCount?+?1

Else

If?dirCount?=?dirLimit?Then

ReDim?Preserve?strDirs(dirLimit?+?10)

dirLimit?=?dirLimit?+?10

End?If

strDirs(dirCount)?=?strPath??strResult

dirCount?=?dirCount?+?1

End?If

End?If

strResult?=?Dir(,?vbDirectory?+?vbSystem?+?vbReadOnly?+?vbHidden?+?vbNormal?+?vbArchive)

Loop

For?I?=?0?To?dirCount?-?1

Call?FindPath(strDirs(I),?strFiles,?FileCount)

Next?I

End?Sub

vb.net關(guān)鍵字搜索文件

窗體上添加一個(gè)文本框，一個(gè)列表框，一個(gè)按鈕：

代碼如下：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim MyDir As String = "C:\123"

Dim MyFilter As String = "*" TextBox1.Text "*"

ListBox1.Items.Clear()

For Each MyFile As String In System.IO.Directory.GetFiles(MyDir, MyFilter)

ListBox1.Items.Add(MyFile)

Next

End Sub