الكلاس موديول class modules الجزء الثالث

Sub Alsaqr_Eslam()

Dim E As Long

Let E = 99999

MsgBox E

End Sub

Public Property Get StName() As String

    StName = "Eslam Abdullah"

End Property

Sub Alsaqr_Eslam2()

Dim St As New Student

MsgBox St.StName

End Sub

Private AStName As String

Public StAge As Double

Public Property Get StName() As String

    StName = AStName

End Property

Public Property Let StName(ByVal name As String)

If Len(name) < 2 Then

    AStName = "The Name assigned is too short"

Else

    AStName = name

End If

End Property

Private AStName As String

Public StAge As Double



Public Property Get StName() As String

    StName = AStName

End Property



Public Property Let StName(ByVal name As String)

If Len(name) < 2 Then

    AStName = "The Name assigned is too short"

Else

    AStName = name

End If

End Property

Sub Alsaqr_Eslam()

Dim St As New Student

St.StName = "E"

MsgBox St.StName

End Sub