Page 93 - Programming VB.NET
P. 93

Code With VB.Net                              89


                    Public Property regnum() As String

                            Get
                                Return strregnum

                            End Get

                            Set(ByVal value As String)
                                strregnum = value

                            End
                    Set

                        End Property

                    Public Property mark() As Integer
                            Get

                                Return intmark

                            End Get
                            Set(ByVal value As Integer)

                              If value >= 0 And value <= 100 Then

                                    intmark = value
                                Else

                                MessageBox.Show("Invalid value")

                                End If
                            End Set

                        End Property
   88   89   90   91   92   93   94   95   96   97   98