Ανοίξτε Visual Basic 6 . 2
Επιλέξτε "Standard EXE " από τη νέα λίστα των έργων . Αυτό θα τοποθετήσει ένα κύριο έντυπο VB στην οθόνη , καθώς εμφανίζεται ως το VB εργαλειοθήκη .
Εικόνων 3
Επιλέξτε " κουμπί" από το Vlaams Belang εργαλειοθήκη και αφήστε το πάνω κύριο έντυπο VB σας . Αυτό θα τοποθετήσει ένα CommandButton στη φόρμα σας .
Η
4 Κάντε διπλό κλικ στο κύριο έντυπο VB έχετε τοποθετήσει το κουμπί ελέγχου πάνω για να μπει σε μονάδα κώδικα της .
5
Πληκτρολογήστε ή αντιγράψτε και επικολλήστε τον παρακάτω κώδικα :
Option Explicit
« Εδώ είναι μια κλήση API
Private Declare Function WinHelp Lib " user32 " Alias " WinHelpA " _
( ByVal hwnd Όπως Long , ByVal lpHelpFile As String , _
ByVal wCommand Όπως Long , ByVal dwData Όπως Long ) Όπως Long
Private Const HELP_CONTENTS = 3
Private Const HELP_FINDER = 11
Private Sub Command1_Click ( )
Dim lResult όπως Long
Dim sHelpFile όπως String Dim
lCommand ως Long , όπως lOption Long
sHelpFile = " winfile.hlp "
lCommand = HELP_CONTENTS
lOption = 0
lResult = WinHelp ( Me.hwnd , sHelpFile , lCommand , lOption )
End Sub
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα