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,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
原文地址:https://www.jb51.cc/vb/258802.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。