Public strcategoryid As String
Public strproviderid As String
Public stremployeeid As String
Public stremployee As String
Public strprovider 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
'the above is used to link the online web
Private Sub mnuTopic_Click()
App.HelpFile = App.Path + "\help\efuhelp.chm"
mnuTopic.HelpContextID = 1
SendKeys "{F1}", True
End Sub
Option Explicit
Private 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
Private Sub Command3_Click()
ShellExecute 0, "open", App.Path & "\" & "readme.htm", vbNullString, App.Path, 0
End Sub
Private 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
'前面的回复人: yheng() 对
窗体背景色 me.backcolor=vbblue
窗体背景 me.picture=loadpicture(“图片路径”)
或用api
Private 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
Private Sub Command4_Click() '打开 "C:\ReadMe.htm"
ShellExecute Me.hwnd, "open", "C:\ReadMe.htm", "", App.Path, 1
End Sub