VB中如何設定超連結,vb如何使用超連結開啟網頁

時間 2022-03-12 01:50:28

1樓:飛塵

shell 函式

執行一個可執行檔案,返回一個 variant (double),如果成功的話,代表這個程式的任務 id,若不成功,則會返回 0。

語法shell(pathname[,windowstyle])

shell 函式的語法含有下面這些命名引數:

部分 描述

pathname 必要引數。variant (string),要執行的程式名,以及任何必需的引數或命令列變數,可能還包括目錄或資料夾,以及驅動器。在macintosh中,可以使用macid函式來指定一個應用程式的署名而不是名稱。

下面的例子使用了microsoft word的署名:

shell macid("mswd")

windowstyle 可選引數。variant (integer),表示在程式執行時視窗的樣式。如果 windowstyle 省略,則程式是以具有焦點的最小化視窗來執行的。

在macintosh(系統7.0或更高)中,windowstyle僅決定當應用程式執行時是否獲得焦點。

windowstyle 命名引數有以下這些值:

常量 值 描述

vbhide 0 視窗被隱藏,且焦點會移到隱式視窗。常數vbhide在macintosh平臺不可用。

vbnormalfocus 1 視窗具有焦點,且會還原到它原來的大小和位置。

vbminimizedfocus 2 視窗會以一個具有焦點的圖示來顯示。

vbmaximizedfocus 3 視窗是一個具有焦點的最大化視窗。

vbnormalnofocus 4 視窗會被還原到最近使用的大小和位置,而當前活動的視窗仍然保持活動。

vbminimizednofocus 6 視窗會以一個圖示來顯示。而當前活動的的視窗仍然保持活動。

說明如果 shell 函式成功地執行了所要執行的檔案,則它會返回程式的任務 id。任務 id 是一個唯一的數值,用來指明正在執行的程式。如果 shell 函式不能開啟命名的程式,則會產生錯誤。

在macintosh中,vbnormalfocus、vbminimizedfocus和vbmaximizedfocus都將應用程式置於前臺;vbhide、vbnofocus、vbminimizefocus都將應用程式置於後臺。

注意 預設情況下,shell 函式是以非同步方式來執行其它程式的。也就是說,用 shell 啟動的程式可能還沒有完成執行過程,就已經執行到 shell 函式之後的語句。

2樓:匿名使用者

在窗體上新增一個按鈕,名字自取,預設為command1.

雙擊它進入**編寫區,照以下形式書寫。

private sub command1_click()shell "shishikan.exe"

shell "shishi.bat"

end sub

關於shell函式的用法和引數,上面的已經說了

3樓:無聊耍耍酷

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 command1_click()dim temp as string

temp = "www.baidu.com" '連線**,可以是任何地址,可以開啟任務東西

shellexecute 0&, vbnullstring, temp, vbnullstring, vbnullstring, 0

end sub

vb如何使用超連結開啟網頁

4樓:大海針

在form1上新增一個文字框text1,新增一個按鈕command1用以下語句即可實現:

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 openurl(turl as string)

shellexecute me.hwnd, "open", turl, 0, 0, 0

end sub

private sub command1_click()

str_open = text1.text

openurl (str_open)

end sub

5樓:匿名使用者

private sub command1_click()

shell "explorer.exe " & text1

end sub

6樓:茜魚三千

上面的太麻煩 給你個簡單的private sub command4_click()

關於vb的檔案超連結

7樓:zhidao投訴哥

'如果開啟c盤的32.exe 檔案

option explicit

private sub myshell(path as string)

shell "rundll32 url.dll,fileprotocolhandler """ & path & """", vbnormalfocus

end sub

private sub form_click()myshell "c:\32.exe"

end sub

8樓:匿名使用者

試用系統的api shellexecute()函式或使用vb內建函式shell()都行

9樓:

shell "c:\windows\explorer.exe" '引號裡是程式的名字以及路徑。

有些檔案需要一些方式開啟,比如doc檔案,這個需要用word開啟,就必須是 word路徑+空格+doc檔案路徑

你也可以呼叫api,網上有相關資料。

vb中如何給label標籤做超連結?

10樓:匿名使用者

標籤做超連結的**示例:

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 form_load()

with label1

.caption = "申請帳號"

.font.underline = true

.forecolor = vbblue

end with '修改標籤的屬性

end sub

private sub form_mousemove(button as integer, shift as integer, x as single, y as single)

label1.forecolor = vbblue

end sub '在把滑鼠移到標籤上時標籤顯示為藍色

com可以改成你的網頁

end sub '點選標籤時開啟相應的網頁。

VB6 0中如何設定延時

private sub form load dim x x shell notepad.exe vbnormalfocus sendkeys 這是一個文字檔案的測試程式.true 模擬輸入英文字串 sendkeys true 兩次回車 waittime 2 延時 2 秒 sendkeys 自動輸入文...

超連結怎麼去掉,如何去掉超連結

如果想取消某一個超級連結,可以用滑鼠右鍵單擊該超級連結,並在彈出的快捷選單中選擇 取消超級連結 選項。如果想一次取消文件中所有的超級連結,則可以選擇 全選 選中文件中的所有內容,然後按ctrl shift f9即可。不過需要注意的是,這個快捷鍵的功能是將所有的 域 其中包括超級連結 轉換為普通文字,...

中,如何做目錄超連結

要想自動生成目錄,打檔案時應設定題目格式。一 輸入題目時這樣操作 1 開啟word文件輸入題目時,點選單字型欄左側樣式視窗,選 題目1 並選好字型和字號 如果想在目錄中顯示二級題目,輸入二級題目時應選擇 題目2 2 輸入正文時,則應在樣式視窗選擇 正文 3 檔案已經寫作完成,也可比照1的辦法給題目設...