|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
garfield Site Admin
註冊時間: 2003-01-30 文章: 2157
第 1 樓
|
發表於: 星期五 一月 13, 2006 2:22 pm 文章主題: 傳地址參數給form, 顯示 UrMap 線上地圖 |
|
|
oform1=CreateOBJECT("form1","大里市德芳南路")
oform1.Show
RETURN
***因為有用到ole物件: Microsoft Web Browser (shdocvw.dll) , 會無法直接貼上程式碼來執行, 請下載附件去測試.
代碼: |
DEFINE CLASS form1 AS form
Top = 0
Left = 0
Height = 460
Width = 500
DoCreate = .T.
Caption = "Form1"
Name = "Form1"
ADD OBJECT container1 AS container WITH ;
Top = 0, ;
Left = 0, ;
Width = 500, ;
Height = 460, ;
Name = "Container1"
ADD OBJECT form1.container1.ie AS olecontrol WITH ;
Top = -84, ;
Left = -12, ;
Height = 564, ;
Width = 792, ;
Name = "ie"
PROCEDURE Init
Lparameters maddress
With Thisform.container1.ie
.Navigate('http://www.urmap.com')
Do While .busy Or .readyState <> 4 And Inkey()#27
Wait Windows '等待連結到 urmap 中,可按[Esc]中止' Nowait
Enddo
If Lastkey()=27
Return .F.
Endif
.SetFocus
With .Document.Forms
IF EMPTY(maddress)
maddress ='大里市德芳南路'
endif
.queryform.queryText.Value=maddress
Inkey(1)
.queryform.queryBtn.Click
Endwith
Endwith
ENDPROC
ENDDEFINE
*
*-- EndDefine: form1
**************************************************
|
_________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
|
goto-dream
註冊時間: 2004-05-11 文章: 909
第 2 樓
|
|
回頂端 |
|
|
garfield Site Admin
註冊時間: 2003-01-30 文章: 2157
第 3 樓
|
發表於: 星期五 一月 13, 2006 4:16 pm 文章主題: |
|
|
是啊,
正確地址是: 大里市德芳南路385號
歡迎來喝茶聊天.
這個urmap 只能查到路口而已,
沒那個強到精確的定位到正確的地址,
但可以改用"僅交叉路口" 就不會差太離譜. _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
|
小賴
註冊時間: 2004-12-27 文章: 470
第 4 樓
|
發表於: 星期五 一月 13, 2006 4:33 pm 文章主題: |
|
|
>歡迎來喝茶聊天
應該有機會的; 正好我也是喜歡打泡 ...
別想歪了... 我是說打牌 & 泡茶啦 (簡稱打泡) |
|
回頂端 |
|
|
朱育興
註冊時間: 2003-08-25 文章: 661 來自: 台中市大里區
第 5 樓
|
發表於: 星期五 一月 13, 2006 5:22 pm 文章主題: |
|
|
我住在 garfield 家附近,有機會也可聊聊
TO garfield
題外話,上傳的檔案好像被鎖住不能超過 100 KB? _________________ 希望有更多人來參與
VFP wiki - 需要大家一起完成的VFP電子書與FAQ |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|