modopenweblink.bas

MSHFLEXGRID 的打印的问题啊 啊就是打开附件啊时代

Attribute VB_Name = "modOpenWebLink"
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：05/06/10
'描  述：MSHFlexGrid 控件数据显示示例
'网  站：http://www.mndsoft.com/
'e-mail：[e-mail]
'OICQ  : 88382850
'****************************************************************************

'打开网页的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

'常数声明
Const SW_SHOWNORMAL = 1

'打开枕善居链接
Public Sub openWebLink()
    ShellExecute frmDisplay.hwnd, vbNullString, "http://www.mndsoft.com", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub