یک مشکل ابتدایی با تعریف نوع داده

[bijibuji]

من یک برنامه فوق العاده ساده دارم که با خطای (Object Required (RT424 مواجه می شه.
اگر ممکنه کمکم کنید...

کل برنامه یک ماژول فرمه که در قسمت اعلان این ماژول داریم:



Private Type Lesson
Multi As Integer
Mean As Single
End Type

Dim English As Lesson

و در قسمت بدنه هم این رو دارم:


Private Sub cmdCalculate_Click()
Assignment
lblLevelEnglish.Caption = '500'
*
*
*
*
End Sub

Private Sub Assignment()
English.Multi = Val(txtMultiEnglish.Text)
*
*
*
*
End Sub

[xxxxx_xxxxx]

توي ماژول خط آخر رو به اين صورت بنويسيد:


Public English As Lesson

[bijibuji]

توي ماژول خط آخر رو به اين صورت بنويسيد:


Public English As Lesson


متأسفانه در ماژول های Obejct مثل ماژول فرم (همینجایی که من هستم) نمی شه برای Declare و تعریف از Public استفاده کرد. این خطا رو VB گزارش داد:


http://barnamenevis.org/forum/attachment.php?attachmentid=34854&stc=1&d=1249638150

[xxxxx_xxxxx]

اگر امكانش هست برنامه رو اينجا قرار بديد. يا فقط همون بخشي كه ارور ميده.
وقتي ارور ميده روي debug كليك كنيد، روي كدوم خط ارور ميده؟

[bijibuji]

روي كدوم خط ارور ميده؟

روی این خط:




English.Multi = Val(txtMultiEnglish.Text)



این هم پیغام خطا:


http://barnamenevis.org/forum/attachment.php?attachmentid=34856&stc=1&d=1249639930


چیزی که نمی تونه پیدا کنه Multi هستش. اما با English مشکلی نداره.

[xxxxx_xxxxx]

اتفاقاً مشكل با English هست، اگه از Multi باشه ارور ميده چنين متدي پيدا نشد. وقتي ميگه object يعني همون English

من فكر كردم تعريف نوع داده Lesson توي ماژول انجام شده براي همين گفتم بنويسيد پابليك. اما شما ميگيد كه همش تو فرم هست. مشكلي نبايد داشته باشه. نمونه ضميمه رو نگاه كنيد!

[Max Payne]

به جوابشون پاسخ داده شدش هرچند داخل يك فروم ديگه بودش نه مشكل از اين نبودش، ايشون اومده بودن چندتا رو با هم يه جا معرفي كرده بودن و بهتر بودش تك تك اعلان ميكردن به صورت
Dim English as Lesson يا از يه Dim براي اعلان استفاده مي كردن
Dim English as Lesson, Data as Lesson,... در قسمت جنرال(ژنرال) برنامه