Πώς να καλέσετε μια συνάρτηση που Ισοπαλίες σε VB.NET

VB.NET της Microsoft είναι μια γλώσσα προγραμματισμού που βασίζεται στη γλώσσα BASIC , των οποίων τα γράμματα θέσει υποψηφιότητα για « αρχάριους Όλα Σκοπός Συμβολική Οδηγίες κώδικα . " VB.NET έχει δυνατότητες για τη δημιουργία πολλών διαφορετικών τύπων των εφαρμογών , συμπεριλαμβανομένων και εκείνων με γραφικά . Κάνοντας ένα πρόγραμμα VB.NET που καλεί σε λειτουργία σχεδίασης περιλαμβάνει συνεργασία με τις κατηγορίες γραφικά στο μοντέλο αντικειμένου VB.NET ' s . Αυτό το μοντέλο αντικειμένου είναι σαν ένα οικογενειακό δέντρο των εικονικών σχεδιαγράμματα , που ονομάζεται τάξεις , από τις οποίες οι προγραμματιστές δημιουργούν εικονικά αντικείμενα . Κάνοντας μια λειτουργία που βασίζεται σε VB.NET είναι ένα ορόσημο για τους προγραμματιστές που θέλουν να χτίσουν σύνθετες εφαρμογές γραφικών όπως τα παιχνίδια και τα προγράμματα σχεδιασμού . Οδηγίες
Η 1

Open VB.NET , στη συνέχεια, κάντε κλικ στο σύνδεσμο " New Project" στην αρχική οθόνη . 2

Κάντε κλικ στο " Windows φόρμας " στοιχείο στη λίστα που εμφανίζεται. Η ενέργεια αυτή δημιουργεί ένα πρόγραμμα με μια φόρμα εισαγωγής δεδομένων του χρήστη . Θα προσαρμόσετε το έντυπο για να καλέσετε μια συνάρτηση γραφικών σχεδίασης .
Εικόνων 3

Ανοίξτε το παράθυρο σχεδίασης φόρμας πατώντας το πλήκτρο " Shift " και " F7 " ταυτόχρονα , στη συνέχεια, κάντε κλικ στο εικονίδιο με το σφυρί στη γραμμή εργαλείων κάτω από τα κονδύλια του μενού για να εμφανίσετε την εργαλειοθήκη ελέγχου .
Η 4

Σύρετε ένα " κουμπί" στοιχείο από εργαλειοθήκη του ελέγχου σε οποιαδήποτε θέση στη φόρμα , στη συνέχεια, κάντε διπλό κλικ στο κουμπί . VB.NET θα σας φέρει στο παράθυρο κωδικοποίηση για να εισάγετε τον κωδικό του προγράμματός σας .
5

Επικολλήστε τον ακόλουθο πρόγραμμα επιχείρηση στο παράθυρο κωδικοποίησης . Το πρόγραμμα αυτό καλεί τους λειτουργία " DrawGraphics » που αντλεί ένα σχήμα πάνω στο έντυπο στο οποίο έχετε προσθέσει ένα κουμπί . Το "Me" στο πρόγραμμα αναφέρεται στη μορφή . Για να σχεδιάσετε πάνω στο έντυπο , το πρόγραμμα δημιουργεί ένα εικονικό " Pen " αντικείμενο , το οποίο είναι αποθηκευμένο στη μεταβλητή " gpen . "

Δημόσιας Τάξης Φόρμα1

Private Sub Button1_Click ( ByVal αποστολέα Όπως System.Object , ByVal e Όπως System.EventArgs ) Λαβές Button1.Click

DrawGraphics ( )

End Sub

Private DrawGraphics Function ( )

Dim gpen As New Drawing.Pen ( System.Drawing.Color.Black , 1 )

Me.CreateGraphics.DrawEllipse ( gpen , 20 , 20 , 80 , 80 )

gpen.Dispose ( )

End Function

End Class
Η 6

Εκτελέστε το πρόγραμμα πατώντας το πλήκτρο " F5 " και στη συνέχεια πατήστε το κουμπί της φόρμας . VB θα εκτελέσει την « Button1_Click " κώδικα , το οποίο αποκαλεί « DrawGraphics " λειτουργία. Αυτή η λειτουργία θα σχεδιάσετε μια έλλειψη στη φόρμα .
Η

7 Κάντε κλικ στο εικονίδιο " X " της φόρμας για να κλείσετε τη φόρμα και να τερματίσετε το πρόγραμμα .
8

Πατήστε " Shift " και " F7 " ταυτόχρονα για να εισέλθετε στο παράθυρο σχεδίασης φόρμας και, στη συνέχεια σύρετε τέσσερα πλαίσια κειμένου , το καθένα κάτω από το προηγούμενο , από τους ελέγχους εργαλειοθήκη στη φόρμα . Αυτά τα κουτιά θα κρατήσει τις παραμέτρους που θα περάσει στον γραφικών σχεδίασης λειτουργία που δημιουργήσατε προηγουμένως.
Η 9

Ξαναγράψτε την κωδικοποίηση παράθυρο με το κουμπί διπλό κλικ στη φόρμα , στη συνέχεια, επιλέξτε όλα τα υπάρχοντα κώδικα του προγράμματος και πατήστε το πλήκτρο "Διαγραφή " για να διαγράψετε .
Η 10

Επικολλήστε τον ακόλουθο αναθεώρηση του κώδικα του προγράμματος στο παράθυρο κώδικα . Αυτό το νέο πρόγραμμα καλεί τα γραφικά σχεδίασης λειτουργία " DrawGraphics " σε ένα νέο τρόπο . Το πρόγραμμα δίνει τις παραμέτρους από τα πλαίσια κειμένου που μόλις προσθέσατε στο DrawGraphics , η οποία καθορίζει την θέση και το μέγεθος της έλλειψης από αυτές τις παραμέτρους .

Δημόσιας Τάξης Φόρμα1

Private Sub Button1_Click ( ByVal αποστολέα Όπως System.Object , ByVal e Όπως System.EventArgs ) Λαβές Button1.Click

DrawGraphics ( CInt ( TextBox1.Text ) , CInt ( TextBox2.Text ) , CInt ( TextBox3.Text ) , CInt ( TextBox4.Text ) )

End Sub

Private DrawGraphics Λειτουργία ( ByVal x1 , y1 ByVal , ByVal x2 , y2 ByVal )

Dim gpen As New Drawing.Pen ( System.Drawing.Color.Black , 1 )

Me.CreateGraphics.DrawEllipse ( gpen , x1 , y1 , x2 , y2 )

gpen.Dispose ( )

Function End

End Κατηγορία
Η 11

Εκτελέστε το πρόγραμμα που κάναμε την προηγούμενη. Εισάγετε οποιεσδήποτε ακέραιοι από 0 έως 100 σε κάθε ένα από τα πλαίσια κειμένου . Αυτοί οι αριθμοί αντιπροσωπεύουν τις συντεταγμένες της οθόνης , οι οποίες καθορίζουν τη θέση της έλλειψης .
Η 12

Πατήστε το κουμπί της φόρμας . Η αναθεωρημένη λειτουργία DrawGraphics θα σχεδιάσετε μια έλλειψη στην οθόνη συντεταγμένες που δώσατε .
Η
εικόνων