Πώς να δημιουργήσετε γραφικά και σχήματα σε Visual Basic

Δημιουργία γραφικών και σχήματα σε Visual Basic ( VB ) αρχίζει με τα απαραίτητα βήματα προγραμματισμού για να εξαχθούν απλά στοιχεία όπως σημεία , γραμμές, ορθογώνια , κύκλοι, ελλείψεις και τα τόξα . Με το συνδυασμό αυτών των στοιχείων με διάφορους τρόπους και μορφές , πολύπλοκα γραφικά μπορούν να εμφανίζονται στην οθόνη του υπολογιστή σας . Η διαδικασία απαιτεί επίπονη γραφή κώδικα υπολογιστή απουσία εξελιγμένου λογισμικού γραφικών, αλλά είναι απολύτως εφικτό χρησιμοποιώντας τα δομικά στοιχεία που περιγράφονται εδώ. Τα πράγματα που θα χρειαστείτε
Visual Basic 6.0
Η Εμφάνιση Περισσότερες οδηγίες
Η

1 Ανοίξτε ένα νέο έργο της Visual Basic , χρησιμοποιώντας την « Standard EXE » πρότυπο , μια από τις επιλογές που εμφανίζονται όταν επιλέγετε ένα νέο έργο . Αποθηκεύστε το έργο και τη μορφή , όταν σας ζητηθεί ως MyGraphicsDemo . Ρυθμίστε το " Form1 " Ύψος στο παράθυρο Ιδιότητες έως το 5400 και το πλάτος έως 6800 . 2

Κάντε διπλό κλικ στο εικονίδιο " CommandButton " στη στήλη Toolbox αριστερή πλευρά για να το προσθέσετε στη φόρμα . Αυτό είναι ένα μικρό ορθογώνιο συνήθως βρίσκεται στο δεξιά στήλη των εργαλείων και την τρίτη από την κορυφή . Η ετικέτα εμφανίζεται όταν βάλετε τον κέρσορα πάνω του . Κάντε κλικ στο κουμπί για να επικεντρωθεί στην "Ιδιότητες" του στο παράθυρο στα δεξιά και να αλλάξετε την " Λεζάντα " περιουσία για να διαβάσετε "Show Me Μερικές Χρωματιστά Points ! " , Χωρίς να εισέρχονται τα εισαγωγικά . Αλλάξτε την ιδιότητα Ύψος 500 και το πλάτος ιδιοκτησίας 3000 .
Εικόνων 3

Ανοίξτε ένα παράθυρο κώδικα κάνοντας κλικ στο "Προβολή" και στη συνέχεια "Κώδικας" στο ανώτερο επίπεδο μενού της Visual Basic . Ρυθμίστε τα σημεία θέση στην οθόνη , το μέγεθος και το χρώμα πρώτα με το ενδεικτικό κωδικό . Στη συνέχεια, ποικίλλουν τις ρυθμίσεις για να μάθετε τι είναι δυνατό με τη χρήση μόνο και μόνο σημεία . Σε αυτόν τον κώδικα οι γραμμές " Pset " δημιουργούν διαφορετικού χρώματος τελείες , ενώ οι γραμμές κώδικα που περιέχει " γύρος " duplicate πολλά σημεία σε τυχαία χρώματα και τοποθεσίες . Όταν τελειώσετε , πατήστε το πλήκτρο "F5 " για να δείτε το αποτέλεσμα

Private Sub Command1_Click ( ) φόντουΙδιότητα = vbRedPSet ( 0 , 0 ) το chipset ( 15 , 5 ) , vbCyanPSet ( 20 , 10 ) , vbYellowCurrentX = 500 : . Currenty = 500For i = 1 Για να 20PSet Βήμα ( 0 , 0 ) NextFor i = 1 Για να 500DrawWidth = γύρος * 5 + 1PSet ( γύρος * ScaleWidth , γύρος * ScaleHeight ) , RGB ( γύρος * 255 , * 255 γύρος , γύρος * 255 ) NextDrawWidth = 1End Sub
Η 4

Δημιουργήστε ένα μεγάλο τρίγωνο χρησιμοποιώντας το "Line " εντολή της Visual Basic , η οποία χρησιμοποιεί τις ρυθμίσεις της τοποθεσίας για να σχεδιάσετε το τρίγωνο . Προσθέστε ένα έγχρωμο ορθογώνιο με την εντολή Line , χρησιμοποιώντας διαφορετικά σημεία των τοποθεσιών . Προσθήκη δύο CommandButtons στη μορφή όπως στο Βήμα 2 . Αλλάξτε τις ιδιότητες Caption να διαβάσει " Σχεδιάστε ένα τρίγωνο » και « Σχεδιάστε ένα ορθογώνιο ", αντίστοιχα . Μπορεί να χρειαστεί να διευρύνουν τα πλαίσια , όπως στο βήμα 2 . Στη συνέχεια, πληκτρολογήστε τον παρακάτω κώδικα κάτω από τις προηγούμενες γραμμές κώδικα . Όταν τελειώσετε , πατήστε το πλήκτρο "F5 " για να δείτε

Private Sub Command2_Click ( ) Γραμμή ( 1500 , 3000) - . Στάδιο ( 1000 , 0 ) , vbBlackLine - Βήμα ( 0 , 1000 ) , vbBlackLine - ( 1500 , 3000 ) , vbBlackEnd SubPrivate Sub Command3_Click ( ) Γραμμή ( 1200 , 1500 ) - Στάδιο ( 2100 , 1100 ) , vbGreen , Μπεντ Sub
5

Σχεδιάστε ένα κύκλο με τις παρακάτω γραμμές κώδικα . Σχέδιο ελλείψεις και τα τόξα χρησιμοποιεί την ίδια διαδικασία ? Απλά να μεταβάλλουν τις διαστάσεις και όπου οι κύκλοι έναρξης και λήξης . Με τη διεύρυνση μια πτυχή του κύκλου , μπορείτε να το μετατρέψει σε μια έλλειψη και μη κλείνοντας τον κύκλο , να κάνετε ένα τόξο . Να θέσει αυτό επάνω , προσθέστε ένα ακόμα CommandButton , ονομάζει αυτήν ένα « Σχεδιάστε ένα κύκλο " .

Private Sub Command4_Click ( ) DrawWidth = 5FillStyle = vbFSSolidFillColor = vbCyanCircle ( 2000 , 2000 ) , 1000 , vbBlueEnd Sub


εικόνων