VB link 的问题

ohoh

VB link 的问题

我的VB 里的cmd不function, 我按了cmd本来会link去IE我的网页，可是我按它没反应。。。
谁可以给code我？？？

还有一个问题：
如何按了cmd run another .exe file。
谢谢。

goatstudio

你的 code 呢?

ohoh

Private Sub cmdWebSite_Click()
WebBrowser1.navigate ("http://chinese.cari.com.my")
End Sub

goatstudio

看看这里的例子: http://big5.yesky.com/b5/dev.yesky.com/36/2151036.shtml

雪儿与小鱼儿

回 如何按了cmd run another .exe file :


例子如下：

当我按一个 button（cmdButton1）后，我要开到 Paint program。

首先，declare 以下两个

Public Const PROCESS_QUERY_INFORMATION = &H400

Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

过后，

Private Sub cmdButton1_Click()
   Dim slAppToRun As String

   slAppToRun = C:\windows\system32\Mspaint.exe

   AppID = OpenProcess(PROCESS_QUERY_INFORMATION, 1, Shell(slAppToRun, vbNormalFocus))

End Sub


这样就可以了。。。

meemee

Private Sub cmdButton1_Click()
   Dim slAppToRun As String

   slAppToRun = C:\windows\system32\Mspaint.exe

   AppID = OpenProcess(PROCESS_QUERY_INFORMATION, 1, Shell(slAppToRun, vbNormalFocus))

End Sub

红色这行没有quotation mark???

其实，可以用vb的build-in function shell，不需要调用WINAPI

1. Private Sub Command1_Click()
   
2. Shell "notepad.exe", vbNormalFocus
   
3. End Sub

复制代码

ohoh

谢谢你，我会了。。。。

ohoh

还不是很明白，可以给一个example吗？
我只要run IE 和set the address。

hooi1983

原帖由 ohoh 于 9-3-2007 02:38 PM 发表
还不是很明白，可以给一个example吗？
我只要run IE 和set the address。

我用的方法

1. 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 ipDirectory As String, ByVal nShowCmd As Long) As Long

复制代码

要 run 的时候

1. ShellExecute hWnd, "open", "http://google.com", vbNullString, vbNullString, conSwNormal

复制代码

雪儿与小鱼儿

原帖由 meemee 于 8-3-2007 02:55 PM 发表

红色这行没有quotation mark???

其实，可以用vb的build-in function shell，不需要调用WINAPI

Private Sub Command1_Click()
Shell "notepad.exe", vbNormalFocus
End Sub

不好意思，忘记了

谢谢你的分享