כיצד ליצור גרפיקה וצורות ב- "Visual Basic"

שלב 1

פתח פרוייקט Visual Basic חדש באמצעות התבנית "Standard EXE", אחת מהאפשרויות שמופיעות בעת בחירת פרוייקט חדש. שמור את הפרויקט ואת הטופס כאשר אתה מבקש את זה כמו MyGraphicsDemo. התאם את הגובה של "Form1" בחלון מאפיינים עם 5400 ורוחבו עם 6800.

שלב 2

לחץ פעמיים על הסמל "CommandButton" בעמודה ארגז הכלים בצד שמאל כדי להוסיף אותו לטופס. זהו מלבן קטן שמופיע בדרך כלל בעמודה הימנית של הכלים ובשורה השלישית מלמעלה. התג מופיע כשאתה מרחף מעליה. לחץ על כפתור להתמקד "מאפיינים" בחלון בצד ימין ולשנות את התווית "" נכס לקרוא "תראה לי כמה נקודות צבעוניות!" ללא ציטוטים. שנה את המאפיין גובה ל- 500 ולרוחב ל- 3000.

שלב 3

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

(0, 0) PST (20, 10), vbYellow CurrentX = 500: CurrentY = 500 עבור i = 1 עד 20 PSet שלב (0, 0) הבא עבור i = 1 עד 500 DrawWidth = Rnd * 5 + 1 PSet (Rnd * ScaleWidth, Rnd * ScaleHeight), RGB (Rnd * 255, Rnd * 255, Rnd * 255) Next DrawWidth = 1 End Sub

שלב 4

צור משולש גדול באמצעות הפקודה "Line" ב- Visual Basic, המשתמש בהגדרת המיקום כדי לצייר משולש. הוסף מלבן צבעוני עם הפקודה Line באמצעות נקודות מיקום שונות. הוסף שני CommandButtons נוספים לטופס כמו בשלב 2. לשנות את המאפיינים של תווית כך שהוא אומר "צייר משולש" ו "צייר מלבן" בהתאמה. ייתכן שיהיה עליך רק להגדיל את תיבות כמו בשלב 2. לאחר מכן להזין את הקוד הבא תחת השורות הקוד הקוד. לאחר שתסיים, לחץ על "F5" כדי לראות אותו.

(0, 1000), קו vbBlack - (1500, 3000), vbBlack End Sub Sub Private Command__Click () שורה (1200, 1500) - שלב (2100, 1100), vbGreen, B End Sub

שלב 5

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

פרטי Sub Sub4_Click () DrawWidth = 5 FillStyle = vbFSSolid FillColor = מעגל vbCyan (2000, 2000), 1000, vbBlue End Sub