vb.net 类中属性中的事件 并向新加窗体中用代码添加控件

 

Public Class Form1

    WithEvents s As New Student

    Dim ss As New Student



    Private Sub s_Fail(ByVal frm As Form, ByVal str As String) Handles s.Fail

        Dim g As Graphics = frm.CreateGraphics

        Dim f As Font = New Font("宋体", 30, FontStyle.Bold)

        Dim br As SolidBrush = New SolidBrush(Color.Red)

        frm.Size = New Size(400, 500)

        Dim z_text = New TextBox

        z_text.Location = New System.Drawing.Point(70, 80)

        z_text.Size = New Size(120, 21)

        z_text.Text = str



        frm.Show()

        frm.Controls.Add(z_text)



        g.DrawString(str, f, br, 30, 40)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        s.学号 = Val(TextBox1.Text)

        s.姓名 = TextBox2.Text

        s.成绩 = Val(TextBox3.Text)

    End Sub



    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Debug.WriteLine(s.学号)

        Debug.WriteLine(s.姓名)

        Debug.WriteLine(s.成绩)

    End Sub





End Class

Public Class Student

    Private No As Integer

    Private Name As String

    Private Score As Integer



    Public Event Fail(ByVal frm As Form, ByVal str As String)



    Public Sub New()

        No = 123

        Name = "zxl"

        Score = 100

    End Sub



    Public Property 学号() As Integer

        Get

            Return No

        End Get

        Set(ByVal value As Integer)

            If value <> 0 Then

                No = value

            End If

        End Set

    End Property

    Public Property 姓名() As String

        Get

            Return Name

        End Get

        Set(ByVal value As String)

            If value <> "" Then

                Name = value

            End If



        End Set

    End Property

    Public Property 成绩() As Integer

        Get

            Return Score

        End Get

        Set(ByVal value As Integer)

            Score = value

            If value <> 0 Then

                If (Score < 60) Then

                    RaiseEvent Fail(New Form, "成绩：：：" + value.ToString())

                End If

            End If



        End Set

    End Property



End Class