Vb.net 如何通过从文件中拖动按钮来更改按钮上的文本

我试图让我的按钮显示与给定文件中的文本相对应的文本，到目前为止，我成功地隐藏了我不希望拥有的按钮，但遗憾的是，名称被固定为“Button2”等等。显然我的帖子主要是代码，所以我需要添加更多的细节，我想不出任何我的想法，所以希望这就足够了，如果没有，请欣赏下面的诗

提前谢谢！：{（）

选项显式打开
导入System.IO
导入System.Net.Sockets
公开课表格2
将用户名设置为字符串
Dim FriendsArray作为新列表（字符串）
私有子表单2_Load（ByVal发送方作为System.Object，ByVal e作为System.EventArgs）处理MyBase.Load
表格1.Hide（）
username=File.ReadAllText（“C:\Program Files\PolarisChatUser\TempUser\UserID.txt”）
Directory.CreateDirectory（“C:\ProgramFiles\PolarisChatUser\”+用户名+“\Friends”）
对于My.Computer.FileSystem.GetFiles（“C:\Program Files\PolarisChatUser\”+用户名+“\Friends”）中的每个foundFile作为字符串
FriendsArray.Add（foundFile）
下一个
如果FriendsArray.Count=0，则
btnF1.Hide（）
btnF2.Hide（）
btnF3.Hide（）
btnF4.Hide（）
btnF5.Hide（）
btnF6.Hide（）
btnF7.Hide（）
btnF8.Hide（）
btnF9.Hide（）
btnF10.Hide（）
btnF11.Hide（）
btnF12.Hide（）
btnF13.Hide（）
btnF14.Hide（）
ElseIf FriendsArray.Count=1则
FriendsArray（0）=btnF1.Text
btnF2.Hide（）
btnF3.Hide（）
btnF4.Hide（）
btnF5.Hide（）
btnF6.Hide（）
btnF7.Hide（）
btnF8.Hide（）
btnF9.Hide（）
btnF10.Hide（）
btnF11.Hide（）
btnF12.Hide（）
btnF13.Hide（）
btnF14.Hide（）
ElseIf FriendsArray.Count=2那么
FriendsArray（0）=btnF1.Text
FriendsArray（1）=btnF2.Text
btnF3.Hide（）
btnF4.Hide（）
btnF5.Hide（）
btnF6.Hide（）
btnF7.Hide（）
btnF8.Hide（）
btnF9.Hide（）
btnF10.Hide（）
btnF11.Hide（）
btnF12.Hide（）
btnF13.Hide（）
btnF14.Hide（）
ElseIf FriendsArray.Count=3那么
FriendsArray（0）=btnF1.Text
FriendsArray（1）=btnF2.Text
FriendsArray（2）=btnF3.Text
btnF4.Hide（）
btnF5.Hide（）
btnF6.Hide（）
btnF7.Hide（）
btnF8.Hide（）
btnF9.Hide（）
btnF10.Hide（）
btnF11.Hide（）
btnF12.Hide（）
btnF13.Hide（）
btnF14.Hide（）
ElseIf FriendsArray.Count=4那么
FriendsArray（0）=btnF1.Text
FriendsArray（1）=btnF2.Text
FriendsArray（2）=btnF3.Text
FriendsArray（3）=btnF4.Text
btnF5.Hide（）
btnF6.Hide（）
btnF7.Hide（）
btnF8.Hide（）
btnF9.Hide（）
btnF10.Hide（）
btnF11.Hide（）
btnF12.Hide（）
btnF13.Hide（）
btnF14.Hide（）
ElseIf FriendsArray.Count=5那么
FriendsArray（0）=btnF1.Text
FriendsArray（1）=btnF2.Text
FriendsArray（2）=btnF3.Text
FriendsArray（3）=btnF4.Text
FriendsArray（4）=btnF5.Text
btnF6.Hide（）
btnF7.Hide（）
btnF8.Hide（）
btnF9.Hide（）
btnF10.Hide（）
btnF11.Hide（）
btnF12.Hide（）
btnF13.Hide（）
btnF14.Hide（）
ElseIf FriendsArray.Count=6那么
FriendsArray（0）=btnF1.Text
FriendsArray（1）=btnF2.Text
FriendsArray（2）=btnF3.Text
FriendsArray（3）=btnF4.Text
FriendsArray（4）=btnF5.Text
FriendsArray（5）=btnF6.Text
btnF7.Hide（）
btnF8.Hide（）
btnF9.Hide（）
btnF10.Hide（）
btnF11.Hide（）
btnF12.Hide（）
btnF13.Hide（）
btnF14.Hide（）
ElseIf FriendsArray.Count=7那么
FriendsArray（0）=btnF1.Text
FriendsArray（1）=btnF2.Text
FriendsArray（2）=btnF3.Text
FriendsArray（3）=btnF4.Text
FriendsArray（4）=btnF5.Text
FriendsArray（5）=btnF6.Text
FriendsArray（6）=btnF7.Text
btnF8.Hide（）
btnF9.Hide（）
btnF10.Hide（）
btnF11.Hide（）
btnF12.Hide（）
btnF13.Hide（）
btnF14.Hide（）
ElseIf FriendsArray.Count=8那么
FriendsArray（0）=btnF1.Text
FriendsArray（1）=btnF2.Text
FriendsArray（2）=btnF3.Text
FriendsArray（3）=btnF4.Text
FriendsArray（4）=btnF5.Text
FriendsArray（5）=btnF6.Text
FriendsArray（6）=btnF7.Text
FriendsArray（7）=btnF8.Text
btnF9.Hide（）
btnF10.Hide（）
btnF11.Hide（）
btnF12.Hide（）
btnF13.Hide（）
btnF14.Hide（）
ElseIf FriendsArray.Count=9那么
FriendsArray（0）=btnF1.Text
FriendsArray（1）=btnF2.Text
FriendsArray（2）=btnF3.Text
FriendsArray（3）=btnF4.Text
FriendsArray（4）=btnF5.Text
FriendsArray（5）=btnF6.Text
FriendsArray（6）=btnF7.Text
FriendsArray（7）=btnF8.Text
FriendsArray（8）=btnF9.Text
btnF10.Hide（）
btnF11.Hide（）
btnF12.Hide（）
btnF13.Hide（）
btnF14.Hide（）
ElseIf FriendsArray.Count=10那么
FriendsArray（0）=btnF1.Text
FriendsArray（1）=bt
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim Buttons() As Button = {Button1, Button2, Button3, Button4, Button5, Button6}
    For Each bt In Buttons
        bt.Visible = False
    Next
    Dim Friends = File.ReadAllLines("C:\Users\someUser\Desktop\Friends.txt")
    Dim index As Integer
    If Buttons.Length >= Friends.Length Then
        For Each line In Friends
            Buttons(index).Text = line
            Buttons(index).Visible = True
            index += 1
        Next
    Else
        MessageBox.Show("You have more friends than buttons!")
    End If
End Sub