Πώς να κάνει ένα τρίγωνο σε Visual Basic

Μαθαίνοντας να σχεδιάσετε ένα τρίγωνο σε Visual Basic παρέχει μια ήπια εισαγωγή σε 2 - D γραφικών λειτουργίες αυτής της γλώσσας προγραμματισμού του . Το εικονικό αντικείμενο που καθιστά την κατάρτιση σχήματα όπως το τρίγωνο δυνατό είναι το αντικείμενο γραφικών . Μόλις μάθετε να σχεδιάσετε γραμμές και γεμάτο σχήματα , όπως ορθογώνια και τρίγωνα , μπορείτε να δημιουργήσετε σχήματα της αυθαίρετης πολυπλοκότητας σε Visual Basic προγράμματα σας . Χρησιμοποιήστε αυτή τη λειτουργία για να δημιουργήσει προγράμματα για την ψηφιακή ζωγραφική , γραφικά αριθμητικά δεδομένα και πολλές άλλες εφαρμογές που απαιτούν γραφήματα 2 - Δ . Οδηγίες
Η

1 Κάντε κλικ στο κουμπί " Νέα " εντολή του μενού "Αρχείο" για να δημιουργήσετε ένα νέο έργο της Visual Basic . Κάντε κλικ στο " Windows φόρμας " σημείο να πει Visual Basic που θέλετε να δημιουργήσετε ένα έργο που χρησιμοποιεί γραφικά . Visual Basic δημιουργεί ένα βασικό σχέδιο που μπορείτε να προσαρμόσετε για να σχεδιάσετε ένα τρίγωνο . 2

Κάντε διπλό κλικ στο userform που φαίνεται να εισέλθουν στο περιβάλλον προγραμματισμού . Κάντε κλικ στο αριστερότερο λίστα drop-down πάνω από το παράθυρο προγραμματισμού και κάντε κλικ στο " Φόρμα1 . " Κάντε κλικ στο δεξιότερο drop-down λίστα για να εμφανίσετε τις λειτουργίες περίπτωση που είναι μέλη της " Φόρμα1 " αντικείμενο .
Εικόνων 3

Κάντε κλικ στο " Paint " σημείο να πει Visual Basic θέλετε να δημιουργήσετε μια άδειο λειτουργία που θα εκτελείται κάθε φορά που τα Windows λέει το πρόγραμμά σας για να ζωγραφίσει η ίδια , η οποία συμβαίνει όταν η φόρμα σας εμφανίζεται αφού κρύβεται , καθώς επίσης και όταν το πρόγραμμα που συνδέεται με τη φόρμα σας εκτελείται .
Η 4

Επικολλήστε τον ακόλουθο κώδικα προγράμματος σε λειτουργία " Paint " . Αυτό το πρόγραμμα χρησιμοποιεί την " DrawLine " λειτουργία , που ονομάζεται επίσης μια «μέθοδος », των γραφικών αντίρρηση να σχεδιάσετε μια ενιαία γραμμή στην οθόνη . Επειδή ένα τρίγωνο αποτελείται από τρεις γραμμές , χρησιμοποιούν αυτή τη μέθοδο για να σχεδιάσετε ένα τρίγωνο :

e.Graphics.DrawLine ( Pens.Brown , Νέα PointF ( 0.0f , 0.0f ) , Νέα PointF ( 60.0F , 60.0 F ) )
5

Εκτελέστε το πρόγραμμα πατώντας το πλήκτρο " F5 ". Η φόρμα σας εμφανίζει μόνο τη γραμμή που ορίζεται στο πρόγραμμα σας . Τέλος εκτέλεση του προγράμματος κάνοντας κλικ στο κουμπί " X " της φόρμας . Visual Basic επιστρέφει στην καταχώρισή του προγράμματός σας .
Η 6

Πληκτρολογήστε ή επικολλήστε τις παρακάτω δύο δηλώσεις μετά την πρώτη " DrawLine " δήλωση. Οι δηλώσεις αυτές εξαγάγουμε δύο επιπλέον γραμμές , με σημείο εκκίνησης κάθε γραμμής το ίδιο τελικό σημείο της προηγούμενης γραμμής . Τελικό σημείο της τελευταία γραμμή συνδέει το σημείο εκκίνησης της πρώτης γραμμής, για να ολοκληρώσει το τρίγωνο .

E.Graphics.DrawLine ( Pens.Brown , Νέα PointF ( 60.0F , 60.0F ) , Νέα PointF ( 180.0F , 60.0F ) )

e.Graphics.DrawLine ( Pens.Brown , Νέα PointF ( 180.0F , 60.0F ) , Νέα PointF ( 0.0f , 0.0f ) )
Η 7

Εκτελέστε το προγράμματος, όπως κάνατε στο Βήμα 5 για να δείτε το τρίγωνο .
Η
εικόνων