1 Ανοίξτε το πρόγραμμα της Visual Basic . Δείτε το παράθυρο κώδικα 2
Ανοίξτε τη λειτουργία Form_MouseMove και πληκτρολογήστε τα εξής: .
Form1.MousePointer = vbCrosshair
Όταν ο χρήστης τοποθετήσει το δείκτη πάνω της τη μορφή , οι προεπιλεγμένες κέρσορας αλλάζει σε σταυρόνημα
εικόνων 3
Ανοίξτε τη λειτουργία Label1_MouseMove και πληκτρολογήστε τα εξής: .
Label1.MousePointer = vbSizeNS
Όταν η χρήστης αιωρείται πάνω Label1 ( υποθέτοντας ότι ο έλεγχος αυτός υπάρχει στη φόρμα σας ) , οι προεπιλεγμένες κέρσορας αλλάζει σε ένα βέλος που δείχνει βόρεια και νότια. Αυτό αντικαθιστά το δρομέα σταυρόνημα που εμφανίζεται στην υπόλοιπη φόρμα
Η 4
Ανοίξτε τη λειτουργία Label2_MouseMove και πληκτρολογήστε τα εξής: .
Label2.MouseIcon = LoadPicture ( " C : \\ myCursor . τρέχουσα » )
Label2.MousePointer = vbCustom
Όταν ο χρήστης αιωρείται πάνω από Label2 ( υποθέτοντας ότι ο έλεγχος αυτός υπάρχει στη φόρμα σας ) , οι προεπιλεγμένες κέρσορας αλλάζει σε μια προσαρμοσμένη δρομέα που προβλέπεται στη λειτουργία LoadPicture . Βεβαιωθείτε ότι η διαδρομή από τη λίστα παραμέτρων αγώνες όπου αποθηκεύσατε το αρχείο δρομέα στο .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα