help.bas

一个酒店管理系统

Attribute VB_Name = "Module1"

Public rusult As String
Public 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
Function showhelp(info As String, ByRef f As Form)  '调用帮助参数为信息
Unload MsgForm
If index <> 1 Then Unload frmAssist
With MsgForm
.A_SetBackColor RGB(254, 255, 204)
.msgText.ForeColor = vbBlack
.msgText.FontName = "MS Sans Serif"
.msgText.FontBold = False
.msgText.FontItalic = False
.msgText.FontSize = 10
.A_SystemIcon = IDI_EXCLAMATION
.A_SendResultsTo f
.A_AddButton 0, "确定"
.A_AddButton 1, "取消"
.A_MsgText = info
.A_Initialize
End With
rg.frmZoom frmAssist, 2, ZoomFormOpen
End Function