|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
Ruey
註冊時間: 2003-03-12 文章: 1698 來自: tunglo
第 1 樓
|
發表於: 星期二 五月 20, 2003 6:48 pm 文章主題: VFP桌面瀏覽器(轉貼) |
|
|
VFP桌面瀏覽器(轉貼)
將VFP桌面變成瀏覽器,小品 |
|
回頂端 |
|
|
Ruey
註冊時間: 2003-03-12 文章: 1698 來自: tunglo
第 2 樓
|
發表於: 星期二 五月 20, 2003 6:49 pm 文章主題: |
|
|
部分程式如下
* This code adds a browser to the vfp desktop
IF VARTYPE(_Screen.myBrowse) = "O"
WAIT WINDOW TIMEOUT 3 "Browser already loaded!"
RETURN
ENDIF
_Screen.AddObject("myBrowse", "iNet")
_Screen.myBrowse.Visible = .T.
WAIT WINDOW TIMEOUT 2 "Browser Loaded"
Define Class iNet As Container
Width = _screen.Width
Height = _screen.Height
Name = "MyBrowser"
Add Object olecontrol1 As OleControl With ;
Name = "Olecontrol1",;
OLEClass = "shell.explorer.2"
Top=0
Left=0
Height=_screen.Height
Width=_screen.Width
Procedure Load
On Error Retry
Endproc
* to remove it use
* _screen.RemoveObject("myBrowse")
Procedure Init
With This
.olecontrol1.Top = 0
.olecontrol1.Width = .Width
.olecontrol1.Left = 0
.olecontrol1.Height = .Height
.olecontrol1.navigate("http://www.universalthread.com")
.Visible = .T.
Endwith
Endproc
Enddefine |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|