Πώς να χρησιμοποιήσετε το API σε Visual Basic

Το λειτουργικό σύστημα των Windows βασίζεται σε μια συνεχή ανταλλαγή μηνυμάτων ανάμεσα σε αυτό που κάνει ένας χρήστης στον υπολογιστή ή για άλλα γεγονότα που συμβαίνουν εν αγνοία του χρήστη . Για παράδειγμα , για να διαβάσετε τα περιεχόμενα ενός πλαισίου κειμένου , τα Windows στέλνει ένα μήνυμα WM_GETTEXT . Visual Basic ( VB ) απλοποιεί τον προγραμματισμό επειδή ο κωδικός συγγραφέας δεν έχει να γράψει λεπτομερή κώδικα για να συμβεί αυτό . Ωστόσο , υπάρχουν όρια στην ικανότητα της Visual Basic για να συνεργαστεί με όλα τα απαραίτητα μηνύματα . API ( Application Programming Interface ) λειτουργίες μπορεί να παρακάμψει αυτούς τους περιορισμούς . Για να αποδείξει τη διαδικασία , τα ακόλουθα βήματα, χρησιμοποιήστε μια λειτουργία API για να μετατρέψει ένα πλαίσιο λίστας σε έναν πίνακα τεσσάρων στηλών . Τα πράγματα που θα χρειαστείτε
Visual Basic ή Visual Basic Express
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Ανοίξτε Visual Basic , κάντε κλικ στο " Αρχείο" " New Project" και επιλέξτε " Standard EXE " από τον κατάλογο των προτύπων . 2

κάντε διπλό κλικ στο " Πλαίσιο λίστας " ελέγχου στο παράθυρο Toolbox στα αριστερά για να τοποθετήσετε αυτό το στοιχείο ελέγχου στη φόρμα . Χρησιμοποιήστε τις λαβές drag ( τα μικρά τετράγωνα κουτιά στις γωνίες και μέσα από το κουτί ) για να αυξήσει το μέγεθος για να γεμίσει περίπου τα 3/4 της φόρμας.
Εικόνων 3

Κάντε κλικ στο " Προβολή " " Κωδικός " για να ανοίξετε το παράθυρο κώδικα . Πληκτρολογήστε την ακόλουθη φράση ως μια μακρά σειρά : Private Declare Function SendMessage Lib " user32 " Alias ​​" SendMessageA " ( ByVal hWnd Όπως Long , ByVal wMsg Όπως Long , ByVal wParam Όπως Long , ByVal lParam Όπως Long ) Όπως Long
4

Πληκτρολογήστε το ακόλουθο κάτω από το κείμενο στο Βήμα 3 : Private Sub Form_Load ( ) Dim καρτέλες ( 1 έως 3) Όπως Longtabs ( 1 ) = 20 : tabs ( 2 ) = 50 : tabs ( 3 ) = 50SendMessage List1.hWnd , LB_SETTABSTOPS , 3 , καρτέλες ( 1 ) List1.AddItem " 1 " & vbTab & "Ιανουάριος " & vbTab & " 2009 " & vbTab & "Ιταλία" List1.AddItem " 2 " & vbTab & vTab & "Φεβρουάριος " & vbTab & " 2009 " & vbTab & " Γαλλία " List1.AddItem " 3 " & vbTab & " March " & vbTab & " 2009 " & vbTab &" Ισπανία " End Sub
5

Πατήστε το" F5 "για να δείτε το αποτέλεσμα . Θα πρέπει να δείτε τέσσερις στήλες με αριθμούς , μήνες , ημερομηνίες και τόπους . Αν όχι , ελέγξτε ξανά τον κώδικα στο Βήμα 3 .
Η
εικόνων