13518219792
RichTextBox1.SelectionStart = RichTextBox1.Text.IndexOf(string3,RichTextBox1.SelectionStart1)
成都創新互聯公司是一家集網站建設,鹿泉企業網站建設,鹿泉品牌網站建設,網站定制,鹿泉網站建設報價,網絡營銷,網絡優化,鹿泉網站推廣為一體的創新建站企業，幫助傳統企業提升企業形象加強企業競爭力。可充分滿足這一群體相比中小企業更為豐富、高端、多元的互聯網需求。同時我們時刻保持專業、時尚、前沿，時刻以成就客戶成長自我，堅持不斷學習、思考、沉淀、凈化自己，讓我們為更多的企業打造出實用型網站。
這樣可以查找多個重復的值.但是到最后沒有的時候就會提示:InvalidArgument=“-1”的值對于“SelectionStart”無效。
參數名: SelectionStart
怎么搞定.查找就是這個問題不能解決,至于替換感謝你們提供的replace.
wuyazhe 朋友,你那個我不太懂啊.而且我也不需要太復雜.現在主要的問題是查找！
步驟如下：
窗體上添加2個列表框，一個按鈕：
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
思路：
1，使用ListBox1控件來存放搜索到的文件名，然后ListBox1.SelectedItem就可以返回選中項的文本；
2，利用獲得的選中項文本（即文件與路徑），使用打開文本文件的方法，讀取內容顯示在文本框里。
1、首先打開Visual Studio 2008代碼窗口，添加引用。
2、輸入以下代碼：Public conn1 ?As SqlConnection = New SqlConnection 。
3、聲明關鍵字 Public；（因為是全局變量，所以用Public 來聲明）。
4、如果SQL 數據庫就在本機，則用以下代碼連接。
5、如果代碼太長，影響可讀性，可以用空格加"_"后，回車換行即可。
您是想問vb.net查找未使用的函數方法嗎？vb.net查找未使用的函數方法是：
1、在VS.NET中右鍵單擊主RESX文件，然后從上下文菜單中選擇FindUsages。
2、雙擊解決方案窗口中的每個匹配項，這將打開包含該資源的源代碼窗口。
3、在源代碼窗口中重命名此資源，它將彈出ReSharper的“重命名資源”對話框。
4、它將重命名資源和自動生成的C#包裝器/訪問類。
5、對"Usages“窗口中的所有資源重復上述步驟2、3和4。
6、在VisualStudio的資源編輯器中打開RESX文件，并選擇所有不帶前綴的文件。
7、您最終得到了一個RESX文件，其中有未使用的函數。
解壓密碼：1299
假設路徑為C:\abc
代碼：
Public?Class?Form1
Private?Sub?Form1_Load(sender?As?Object,?e?As?EventArgs)?Handles?MyBase.Load
Dim?Files?As?ObjectModel.ReadOnlyCollection(Of?String)?=?My.Computer.FileSystem.GetFiles("C:\abc")
Dim?FileSize?As?Long,?FileName?As?String?=?Nothing
Dim?oFileSize?As?Long
For?Each?File?As?String?In?Files
oFileSize?=?My.Computer.FileSystem.GetFileInfo(File).Length
If?oFileSize??FileSize?Then
FileSize?=?oFileSize
FileName?=?File
End?If
Next
Dim?ListN?As?ListViewItem?=?New?ListViewItem(My.Computer.FileSystem.GetName(FileName))
ListN.SubItems.Add(oFileSize??"?byte")
ListN.SubItems.Add(My.Computer.FileSystem.GetFileInfo(FileName).Extension??"?文件")
ListN.SubItems.Add(FileName)
ListView1.Items.Add(ListN)
End?Sub
End?Class
詳見源代碼！！
