כיצד לבצע הנפשות ב- Visual Basic 6.0

שלב 1

עבור אל "התחל", ולאחר מכן "כל התוכניות". לחץ על "Visual Basic 6.0". ואז "קובץ", "חדש", ובחר "יישום Windows" בחלון שיח פרוייקט חדש. לחץ על "בקרת תמונה" ומקם אותו על הטופס. לחץ לחיצה ימנית על הפרויקט, בחר "מאפיינים", ולאחר מכן להזין את "משאבים" הכרטיסייה. במנהל המשאבים, הוסף שתי תמונות של כלבים. יש צורך כי שתי התמונות נמצאים באותה ספרייה שבה הפרויקט. בשני הדימויים, הכלב מתואר או שמאלה או ימינה.

שלב 2

לחץ פעמיים על הרקע של הטופס כדי לפתוח את המטפל באירוע Form_Load. להקצות את התמונה של הכלב כי הוא שורטט בצד שמאל כדי לשלוט על התמונה. הכלב יכול ללכת דרך הטופס משמאל לימין או בכיוון ההפוך. לכן, יש ארבע מדינות עבור הכלב: משמאל או ימינה, וללכת שמאלה או ימינה. הזן את קוד הספירה הבא כדי להגדיר את ארבעת מצבי הכלב: Enum DogState FacingLeftWalkingLeft = 1 FacingLeftWalkingRight = 2 FacingRightWalkingRight = 3 FacingRightWalkingLeft = 4 End Enum

שלב 3

הוסף טיימר כדי לשנות את התנועה של הכלב על ידי לחיצה על "שעון" סמל בסרגל הצד הכללי. הגדר את הטיימר להפעלת סימן כל 100 אלפיות השנייה. הגדר את המצב הראשוני כמו FacingLeftWalkingLeft ואת המהירות של 10 פיקסלים לכל שלב באמצעות הקוד הבא: המדינה = DogState.FacingLeftWalking מהירות מהירות = 10 DogImg.Image = My.Resources.Dog

שלב 4

העבר את בקרת התמונה לשמאל במהירות קבועה, ושנה את התמונה. בדוק את המיקום של בקרת התמונה כאשר היא נעה שמאלה או ימינה. ודא שהתמונה לא עוזבת את הטופס. הפוך את התמונות כשאתה מגיע לקצה השמאלי או הימני. זה יכול להיות מושגת באמצעות מקרה מקרה ו - אם אחרת סעיף:

בחר מקרה מקרה DogState.FacingLeftLeftLegs

DogImg.Left = DogImg.Left - מהירות DogImg.Image = My.Resources.Dog2 אם DogImg.Left> 5 ואז המדינה = DogState.FacingLeftRightLegs אלזה המדינה = DogState.FacingRightLeftLegs סוף אם