テキストファイルからツールチップを生成する方法

Question

私はこの段落を含むtxtファイルを持っています。各段落は^記号で始まり、各行を識別することができます。私のコードでは、ロード時にランダムな段落を表示するフォームでツールチップを生成したいと考えています。

私はツールチップに文字列値を取得してその位置を管理していますが、テキストファイル全体を別の文字列値に「読み込む」ことができました。 "^"記号を削除し、その記号をツールチップに表示します。私は将来、txtファイルを編集して、これが自動化されたプロセスになることを考えています。^で始まる各行に、乱数を生成して表示する関数を考えました。私はここまでそれを作っています

Public Class Question 
Dim quote As String 
Dim qn As Double 
Private Sub Question_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load 
    ToolTip1.ShowAlways = True 

    Dim bquote As String 
    bquote = My.Computer.FileSystem.ReadAllText("C:\texts.txt") 

    Dim thesearch As String 
    thesearch = "^" 

    ' for test quote = "i've made it" 
    ToolTip1.SetToolTip(Me, quote) 
End Sub 

この特定の問題のために働く

Answer 1

コードを助けてくださいです：

Public Class Question 
Dim quote As String 
Private Sub Question_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load 
    ToolTip1.ShowAlways = True 
    Dim inital_text_load As String 
    inital_text_load = My.Computer.FileSystem.ReadAllText("C:\texts.txt") 

    Dim quote_array As String() 

    quote_array = inital_text_load.Split("^".ToCharArray(), StringSplitOptions.RemoveEmptyEntries) 

    Dim rand As New Random() 
    Dim index As Integer = rand.Next(0, quote_array.Length - 1) 

    quote = quote_array(index) 

    ToolTip1.SetToolTip(Me, quote) 

End Sub 
End Class