miTest_WjStudentIDSelectorY2008M03D11_Click [2008-04-22-PM-09-15-27]

    Private Sub miTest_WjStudentIDSelectorY2008M03D11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miTest_WjStudentIDSelectorY2008M03D11.Click
        'Dim O As WjStudentIDSelectorY2008M03D11
        'O = New WjStudentIDSelectorY2008M03D11(50)

        'Dim StudentIdNumber As String
        'StudentIdNumber = O.SelectAStudentIdNumber

        'Me.Do_PasteStringToTopOfRichTextBox(StudentIdNumber)
        'Me.StatusBar1.Text = StudentIdNumber

        Dim 班號挑選器 As 學生之班號的挑選器Y2008M03D11
        Dim 學生的班號 As String
        班號挑選器 = New 學生之班號的挑選器Y2008M03D11(50)

        學生的班號 = 班號挑選器.挑選一個學生的號碼
        Me.Do_PasteStringToTopOfRichTextBox(學生的班號)
        Me.StatusBar1.Text = "學生的班號 = " & 學生的班號

    End Sub