PROPERTY LET/GET

[shachr23]

PROPERTY LET/GET

אני בה ל VB מ ASP כלומר VBS. עכשיו אני מבין שבשביל לכתוב תוכנה ביעילות צריכים להשתמש ב CLASS MODULE. אז יצרתי CLASS השתמשתי שם ב API - SEND MESSAGE , בכל מקרה יצרתי כמה LET שמקבלים נתונים ושומרים ב PRIVATE. עכשיו ה LET הראשון שמו : OBJECT והוא בעצם אמור לקבל את האובייקט שעליו הוא יעבוד בהמשך...

Private mObj As Object Public Property Let Object(ByVal obj As Object) mObj = obj End Property​

בFORM עצמו ישנם השורות הבאות...

בהתחלה: Dim mSendMessage As New sendMessage בתוך ה Form_Load() mSendMessage.Object = ProgressBar1​

כשאני מריץ את זה אני מקבל שגיאה...

Run-time error 91 Object variable or with block variable not set​

אני מניח שמשהו לא בסדר במה שרשמתי מישהו יכול לתת לי קצת כיוון? תודה!

 

[shachr23]

כמובן להוסיף SET

 

[davidea]

הערה

היה לך רצון לייצר תוכנה ב VB, ניסית שיטה מורכבת יחסית (יצירת אובייקט) ואז נתקלת בבעיה. כעת, אתה מבקש פתרון לבעיה שנוצרה. אני מציע, ובאמת כביקורת בונה, ספר לנו מה מטרת התוכנה. לדעתי (מאחר ואתה משתמש ב ProgressBar) סביר מאד שהשיטה שבחרת (אובייקט) אינה הנכונה ושיש דרך מאד פשוטה להשיג את מבוקשך. הצג את המטרה הראשונית ואשמח ליעץ על שיטה מתאימה. אגב, אני לא שולל את שיטת האובייקטים. נהפוך הוא, זוהי דרך מצויינת לייצר תוכנות מודולרויות. אבל דווקא כאן הניחוש שלי הוא שזה לא נחוץ.