Microsoft VB技术

来源：百度知道 编辑：UC知道 时间：2024/06/05 10:27:42
如何用 Microsoft VB 中 标准EXE 加入一个 Image 控件

运行后单击可以弹出用户浏览器，
并跳转到指定页面，（假设页面网址为dggyx52.5d6d.com）

这段代码怎么写？

Microsoft VB

首先在声明中粘贴如下的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 Const SW_SHOWNORMAL = 1
Private Const SW_SHOWMINIMIZED = 2

然后给给图像控件的Click事件中加入如下的代码即可：

Call ShellExecute(Me.hwnd, "open", "http://dggyx52.5d6d.com", vbNullString, vbNullString, SW_SHOWNORMAL)