Ξεκινήστε το Microsoft Visual Basic Express , κάντε κλικ στο " New Project ... " στο αριστερό τμήμα της οθόνης σας , στη συνέχεια, επιλέξτε " Windows Forms Application ". Κάντε κλικ στο " OK". 2
διπλό κλικ στο " κουμπί" για την " Toolbox " για να προσθέσετε ένα νέο κουμπί . Κάντε διπλό κλικ στο " Πλαίσιο ελέγχου " για να προσθέσετε ένα νέο πλαίσιο κειμένου . Προσθέστε δύο πλαίσια ελέγχου στη φόρμα . Κάντε διπλό κλικ στο " ColorDialog " για να προσθέσετε το στοιχείο ελέγχου του προγράμματος . . Κάντε διπλό κλικ στο " Button1 " για να ανοίξει το μάθημα « Form1.vb "
εικόνων 3
αντιγραφή και επικόλληση τον παρακάτω κωδικό στο εσωτερικό της διαδικασίας " Button1_Click " να αφήσει το χρήστη να επιλέξει ένα χρώμα :
Me.ColorDialog1.ShowDialog ( )
Εάν Me.ColorDialog1.ShowDialog = DialogResult.OK τότε
clr = ColorDialog1.Color
End If
Φτηνές 4
αντιγραφή και επικόλληση του παρακάτω υπό τον τίτλο " Public Class Form1 " για να δημιουργήσετε δύο καθολικές μεταβλητές που χρησιμοποιούνται για τη δημιουργία γραφικών και το χρώμα :
Ιδιωτική gfx Όπως Graphics
Ιδιωτική CLR ως χρώμα
5
Κάντε κλικ στο βέλος πτώση από το πλαίσιο επάνω αριστερά combo και επιλέξτε " ( Form1 Events ) . " Επιλέξτε το "Load " για να δημιουργήσετε τη φόρμα εκδήλωσης και να αντιγράψετε και να επικολλήσετε τα ακόλουθα μέσα της εκδήλωσης :
gfx = Me.CreateGraphics ( )
Η
6 Κάντε κλικ στο " FormClosed " εκδήλωση για να δημιουργήσετε το γεγονός και να αντιγράψετε και να επικολλήσετε τα ακόλουθα για να διαθέσει τα γραφικά αντιρρήσεις :
gfx.Dispose ( )
Η
7 Κάντε κλικ στο " MouseMove " εκδήλωση για να δημιουργήσει το συμβάν , και να αντιγράψετε και να επικολλήσετε το παρακάτω κώδικα για να βγάλουμε τα αντικείμενα όταν ο χρήστης μετακινεί το ποντίκι :
Αν e.Button <> Windows.Forms.MouseButtons.Left συνέχεια Exit Sub
Dim rect Όπως ορθογώνιο
Dim myPen Όπως Pen
myPen = Νέα Pen ( clr , 2 )
Εάν Me.CheckBox1.Checked τότε
με ορθ
. X = eX - 1
Y = τΈ - . . 1.
Πλάτος = 15
Ύψος = 15
End With
gfx.DrawRectangle ( myPen , rect )
End If
Εάν Me.CheckBox2.Checked τότε
με ορθ
. Πλάτος = 15
Ύψος = 15
End With
gfx.DrawLine ( myPen , eX , τΈ , eX - 1 , τΈ - 1 )
End If
Αν Me.CheckBox3.Checked τότε
myPen = Νέα Pen ( clr , 2 )
με ορθ
X = eX - . 1
<. p> Y = τΈ - . 1.
Πλάτος = 15
Ύψος = 15
End With
gfx.DrawEllipse ( myPen , rect )
End If
8
Πατήστε το πλήκτρο " F5 " για να τρέξετε το πρόγραμμά σας , στη συνέχεια, κάντε κλικ στο κουμπί " Button1 " για να επιλέξετε ένα χρώμα για τα αντικείμενα σας . Ελέγξτε το πρώτο πλαίσιο ελέγχου για να σχεδιάσετε μια σειρά από ορθογώνια . Ελέγξτε το δεύτερο πλαίσιο για να σχεδιάσετε γραμμές ή ελέγξτε το πλαίσιο ελέγχου τρίτο για να σχεδιάσετε μια σειρά από κύκλους .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα