emcbas.bas

电梯检测系统是对电梯性能进行检测的系统。是一个用来学习的程序。

Attribute VB_Name = "EmcBas"
Option Explicit

'函数
Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)
Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Declare Function WinHelp Lib "user32" Alias "WinHelpA" (ByVal hwnd As Long, ByVal lpHelpFile As String, ByVal wCommand As Long, ByVal dwData As Long) As Long
Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


'常量
Global Const HELP_QUIT = 2
Global Const HELP_INDEX = 3
Global Const HELP_HELPONHELP = 4
Global Const HELP_PARTIALKEY = &H105
Public Const HELP_CONTENTS = &H3&
Public Const HELP_CONTEXT = &H1          '  Display topic in ulTopic
Public Const HELP_COMMAND = &H102&
Public Const HELP_KEY = &H101            '  Display topic for keyword in offabData

Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long

Function GetFromINI(SectionHeader$, VarName$, FileName$) As String
   Dim RetString As String
   RetString = String(255, Chr(0))
  'Get Requested Information
   GetFromINI = left(RetString, GetPrivateProfileString(SectionHeader$, ByVal VarName$, "", RetString, Len(RetString), FileName$))

End Function



Sub WriteINI(sAppname$, sKeyName$, sNewString$, sFileName As String)
Dim r As Integer
    
  r = WritePrivateProfileString(sAppname$, sKeyName$, sNewString$, sFileName$)

End Sub




Sub HelpFunction(lhWnd As Long, HelpCmd As Integer, HelpKey As String)
   
Dim lRtn As Long 'declare the needed variables
   
If HelpCmd = HELP_PARTIALKEY Then
   lRtn = WinHelp(lhWnd, App.HelpFile, HelpCmd, HelpKey)
Else
   lRtn = WinHelp(lhWnd, App.HelpFile, HelpCmd, 0&)
End If
   
End Sub