Ανοίξτε έργο της Visual Basic . 2
Σύρετε ένα κουμπί στο έργο σας από την εργαλειοθήκη . Στο μενού Properties , δίνουν το κουμπί το όνομα " ανάκτηση ".
Εικόνων 3
Κάντε διπλό κλικ στο κουμπί για να δημιουργήσετε ένα συμβάν κλικ. Αυτό θα σας μεταφέρει στην κατάλληλη θέση στον πηγαίο κώδικα σας για να επικολλήσετε τον κώδικα ανάκτησης σας
Η
4 Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα : .
Δημ. itemsPerColumn = η math.floor ( ListBox1 . ClientRectangle.Height /ListBox1.ItemHeight )
REM η στήλη για να ανακτήσει από . καταμέτρηση ξεκινά από 0
Dim στήλη = 1
REM τη σειρά για να ανακτήσει από . καταμέτρηση ξεκινά από 0
Dim σειρά = 0
REM Αυτό το combo x και y θα πάρει το πρώτο στοιχείο από τη δεύτερη στήλη .
Δημ. item = ListBox1.Items ( itemsPerColumn * στήλη + γραμμή
MsgBox ( item.toString )
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα