Αυτός ο κωδικός θα απενεργοποιήσει το ποντίκι σας και εισόδους πληκτρολόγιο, ο κώδικας που έχω δανειστεί ήταν μόνο η δήλωση και τα μέρη blockinput. Τα υπόλοιπα ήταν όλα μου. τόσο εδώ είναι ο κώδικας .... Για όσους έχουν δει αυτό το βίντεο πριν. Μόλις θυμήθηκα ότι ο κώδικας έχει συσταθεί για να ALTER Το ρολόι ΜΙΑ ΦΟΡΑ ΤΟ ProgressBar ΕΙΝΑΙ ΠΛΗΡΗΣ. SO Δεν χρειάζεται να επανεκκινήσετε, όταν ξεκινά χωρίς να το θέλουν να. Private Declare Function BlockInput Lib "User32" (ByVal Όπως fBlock Long) Όπως πολυετή Ιδιωτική Σάντουιτς Command1_Click () Timer1.Enabled = True End Sub Private Sub Timer1_Timer () BlockInput True ProgressBar1 = Val (ProgressBar1) + Val (10) Αν ProgressBar1.Value = 100 Μετά χρονιστή Timer1.Enabled = False False BlockInput MsgBox ("Μπορείτε τώρα να χρησιμοποιήσετε το ποντίκι και το πληκτρολόγιο σας"), vbInformation ProgressBar1.Value = 0 End Sub Αν finish
Βαθμολογία: 5
Ετικέτες: VB6, microsoft, οπτική, τραχύ, απενεργοποιήστε, ποντίκι, και, πληκτρολόγιο, ηλεκτρονικών υπολογιστών, προγραμματισμός
Δεν υπάρχουν σχόλια:
Δημοσίευση σχολίου