|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
queena1024
註冊時間: 2007-04-16 文章: 37
第 1 樓
|
發表於: 星期五 三月 04, 2022 1:39 pm 文章主題: 讓網頁不要置頂 |
|
|
各位先進您好...若使用
loHyperlink = CREATEOBJECT("hyperlink")
loHyperlink.navigateto(lUrl)
開啟網頁...有什麼方式不要讓它置頂嗎 ? |
|
回頂端 |
|
|
garfield Site Admin
註冊時間: 2003-01-30 文章: 2158
第 2 樓
|
發表於: 星期五 三月 04, 2022 3:47 pm 文章主題: |
|
|
通常都用
OBJIE = NEWOBJECT('InternetExplorer.Application')
OBJIE.VISIBLE = .T.
OBJIE.NAVIGATE('http://vfp.sunyear.com.tw') _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
|
queena1024
註冊時間: 2007-04-16 文章: 37
第 3 樓
|
發表於: 星期五 三月 04, 2022 4:33 pm 文章主題: |
|
|
您好..因為用NEWOBJECT('InternetExplorer.Application')的方式...若客戶想要以預設瀏覽器chrome會開不起來.. |
|
回頂端 |
|
|
garfield Site Admin
註冊時間: 2003-01-30 文章: 2158
第 4 樓
|
發表於: 星期五 三月 04, 2022 5:29 pm 文章主題: |
|
|
DECLARE ShowWindow IN Win32api INTEGER,INTEGER
DECLARE SetForegroundWindow IN Win32api INTEGER
lUrl='http://vfp.sunyear.com.tw'
*loHyperlink = CREATEOBJECT("hyperlink")
*loHyperlink.navigateto(lUrl)
*WAIT windows ' 無法用內定的chrome, 還是開ie ' TIMEOUT 1
oRun=createobject("wscript.shell")
oRun.run(lUrl ,.f.)
WAIT windows '要等一下, 再切回VFP ' TIMEOUT 1
*ShowWindow(_screen.HWnd,5)
*SetForegroundWindow(_screen.HWnd)
*用SetForegroundWindow 只能用於目前沒有開啟chrome時, 它會單獨開一個window, 就可有效切回vfp, 如果目前已經有開啟chrome則無效
*改用alt+tab 切回vfp
Declare keybd_event IN Win32API SHORT bVk, SHORT bScan, INTEGER dwFlags, INTEGER deExtraInfo
VK_MENU = 0x12
VK_TAB = 0x09
KEYEVENTF_KEYUP = 0x02
VK_CONTROL = 0x11
*切到另一個程式
keybd_event(VK_MENU,0xb8,0 , 0) &&-- Alt Press
keybd_event(VK_TAB,0x8f,0 , 0) &&-- Tab Press
keybd_event(VK_TAB,0x8f, KEYEVENTF_KEYUP,0) &&-- Tab Release
keybd_event(VK_MENU,0xb8,KEYEVENTF_KEYUP,0) &&-- Alt Release
*又要延遲一下
INKEY(1) _________________ 利用>>搜尋<<的功能會比問的還要快得到答案.
garfield 在 星期三 三月 09, 2022 10:18 am 作了第 1 次修改 |
|
回頂端 |
|
|
syntech
註冊時間: 2003-05-16 文章: 4225 來自: Taipei,Taiwan
第 5 樓
|
發表於: 星期五 三月 04, 2022 7:53 pm 文章主題: |
|
|
這看起來要做一下筆記. _________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
|
queena1024
註冊時間: 2007-04-16 文章: 37
第 6 樓
|
發表於: 星期一 三月 07, 2022 12:09 pm 文章主題: 讓網頁不要置頂 |
|
|
您好..謝謝您的回覆...我使用了garfield 大大的做法..網頁是會跳到最上面耶..但我是想要開啟網頁不要蓋住原本應用程式的畫面.... |
|
回頂端 |
|
|
garfield Site Admin
註冊時間: 2003-01-30 文章: 2158
第 7 樓
|
發表於: 星期三 三月 09, 2022 10:23 am 文章主題: |
|
|
原程式有調整切換windwos 方式.
再附上找到的其它怪方法, 比如說讓使用者看不到 chrome
Declare integer FindWindow in Win32API string class_name, string window_title
Declare integer SetWindowPos in user32 integer hWnd, integer hWndInsertAfter,integer x,integer y,integer cx,integer cy,integer wFlags
SWPHIDEWINDOW = 0x80
SWPSHOWWINDOW = 0x40
ClassName = "Chrome_WidgetWin_1"
mhwnd = FindWindow(ClassName, .null.)
? SetWindowPos(_screen.HWnd, 0, 0, 0, 0, 0, SWPHIDEWINDOW)
wait windows '火大了, 讓chrome 消失在我眼前10秒鐘' timeout 10
? SetWindowPos(_screen.HWnd, 0, 0, 0, 0, 0, SWPSHOWWINDOW) _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
|
ufochen
註冊時間: 2003-09-17 文章: 165
第 8 樓
|
發表於: 星期日 三月 03, 2024 7:06 am 文章主題: |
|
|
請問一下,有沒有辦法讓網頁一出現就在left = 1920,top = 0的地方,我想讓網頁顯示在
延伸螢幕上。 |
|
回頂端 |
|
|
garfield Site Admin
註冊時間: 2003-01-30 文章: 2158
第 9 樓
|
發表於: 星期二 三月 05, 2024 6:13 pm 文章主題: |
|
|
參考試看看
HWND hWnd = FindWindow(NULL, "視窗標題")
SetWindowPos(hWnd, NULL, 0, 0, 0, 0, SWP_NOSIZE | SWP_NOZORDER)
其中,第一個參數hWnd 是視窗句柄,
第二個參數NULL 表示視窗的Z 軸順序不變,
第三個和第四個參數是視窗左上角的座標,這裡設定為(0,0),表示移動到螢幕左上角。
最後兩個參數分別表示視窗的寬度和高度,這裡設定為 0,表示不改變視窗的大小。
SWP_NOSIZE 和 SWP_NOZORDER 是 SetWindowPos 函數的兩個標誌,分別表示不改變視窗大小和 Z 軸順序。 _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|