1. 程式人生 > >從文字框新增陣列值並顯示在一個標籤

從文字框新增陣列值並顯示在一個標籤

我是新來的和總是Stackoverflow,它幫助我總是與我的問題。 請幫我拿我的問題我需要做它為我下週的考試。 請幫我儘快。

使用Visual Basic。 我應該建立一個數組和一個整數字符串。 整數字符串= =距離的名字。 將會有兩個文字框,標籤和2按鈕。

txtname。 文字,txtdistance。 文字、lblname lbldistance,btninputdata btnshowcontent

btninputdata應該禁用後填滿30陣列,使btnshowcontent可見和顯示所有30值(通過文字框插入值)在lblname和lbldistance。

而他們都需要通過一個文字框插入儲存到陣列,然後使用btnshowcontent儲存陣列應該顯示在單獨的標籤名稱和距離。

“我的程式碼”

Public Class Form1 Dim ara(29) As String

Private Sub Form1_Load(sender As Object, e As EventArgs)

End Sub

Private Sub btninputdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btninputdata.Click

If txtname.Text <> "" Then
    For h As Integer = 0 To 29
        If ara(h) = "" Then
            ara(h) = txtname.Text
            txtname.Clear()
            Exit Sub
        End If
        Label1.Text = ara.ToString()


    Next
    MsgBox("arry full")
    btninputdata.Visible = False
    btnshowcontent.Visible = True

End If

End Sub

Private Sub btnshowcontent_Click(sender As Object, e As EventArgs) Handles btnshowcontent.Click 'ListBox1.Items.Clear() 'ListBox1.Items.AddRange(ara) ''Label1.Text &= ara(I) & “”

End Sub

Private Sub Form1_Load_1(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub End Class 謝謝你!