התעלמות מפונקציה

jonigat

New member
התעלמות מפונקציה

שלום
בתוכנית המצורפת (יש לשנות את הסיומת ל-frm), הכרזתי על המשתנה pubNum כאל משתנה גלובאלי מסוג Integer. בשגרת main הגדרתי את הערך למשתנה ואת הטופס בו הוא יוצג. כמו כן, יצרתי לחצן פקודה שבעת הלחיצה עליו יודפס המשתנה על הטופס. העניין לא עבד - והערך 0 הודפס על הטופס. להלן הקוד:
Public pubNum As Integer Sub main() pubNum = 3 frmB.Show End Sub Private Sub cmdClick_Click() Print pubNum End Sub​
כנ"ל, הטופס מצורף להודעה ויש לשנות את הסיומת ל-frm. אשמח מאד אם תוכלו לעזור לי בעניין. תודה
 

מס1

New member
פשוט אתה לא נכנס ל SubMain

הפקוה שלך היא ב COMMANDCLICK ואתה לא מגיע לפקודה שמציבה ערך במשתנה הציבורי שלך שים נקודת עצירה על הפקודה שמציבה ערך במשתנה ותראה שאתה לא עוצר שם
 

מס1

New member
תכנס לקוד שלך ותדביק את הקוד הבא

Public pubNum As Integer Private Sub cmdClick_Click() Print pubNum End Sub Private Sub Form_Load() pubNum = 3 frmA.Show End Sub​
 
למעלה