التعامل مع ال Class

السلام عليكم ...

بسيط جداً ... <_< <_<

عدل الكود الخاص بالـ class للدالة GetMsg

Public Function GetMsg()
GetMsg = MsgBox("Get Msg Valuee", vbYesNo, "test")
End Function

و في حدث النثر على الزر :

Private Sub Command1_Click()
Text1.Text = a.GetMsg
End Sub

وإذا أردت عرض القيمة 1 و 2 .. عدل الكود الأول إلى :

Public Function GetMsg()
Dim Back As Integer
Back = MsgBox("Get Msg Valuee", vbYesNo, "test")

If Back = 6 Then
    GetMsg = 1
ElseIf Back = 7 Then
    GetMsg = 2
End If
End Function

تحياتي ...

كلام مظبوط أخي العريق لكن الدالة الأخيرة لا حاجة إليها أقصد

Public Function GetMsg()
GetMsg = MsgBox("Get Msg Valuee", vbYesNo, "test")
End Function

و

Private Sub Command1_Click()
Text1 = a.GetMsg - 5
End Sub

تحياتي

class.zip

عزيزي العريق الف شكر لك

وفعلا بسيطه لكن للأسف هذه أول مره أتعامل مع ال كلاس

لذلك لم تكن بسيطه بالنسبه لي

فأنا أيضا ليس لي مده طويله في الفيجوال بيسك

وتعلمت من هذا المنتدى الرائع الكثير

بارك الله فيكم

شكراً لكم جميعاً :rolleyes: