如何最大化IE視窗
出自VFP Wiki
（修訂版本間差異）
小 |
小 (→參考資料) |
||
| 第3行： | 第3行： | ||
===參考資料=== | ===參考資料=== | ||
*[http://www.faq-it.org/archives/vfp/2912ec1830dd0c6579131de3709f4d7b.php VFP中如何以全屏、最大化或不显示地址栏方式调用IE来登录某个网站？] | *[http://www.faq-it.org/archives/vfp/2912ec1830dd0c6579131de3709f4d7b.php VFP中如何以全屏、最大化或不显示地址栏方式调用IE来登录某个网站？] | ||
| + | |||
| + | ===代碼=== | ||
| + | <pre> | ||
| + | LOCAL loWebBrowser | ||
| + | DECLARE Integer SendMessage IN "user32" Integer, Integer, Integer, Integer | ||
| + | loWebBrowser = CREATEOBJECT("InternetExplorer.Application") | ||
| + | loWebBrowser.Navigate("http://www.163.com") | ||
| + | SendMessage(loWebBrowser.HWnd, 274,61488,0) | ||
| + | loWebBrowser.Visible = .T. | ||
| + | MESSAGEBOX('点击确定关闭IE',64,'信息提示') | ||
| + | loWebBrowser.Quit &&关闭 | ||
| + | </pre> | ||
在2006年10月2日 (一) 11:21的最新修訂版本
參考資料
代碼
LOCAL loWebBrowser
DECLARE Integer SendMessage IN "user32" Integer, Integer, Integer, Integer
loWebBrowser = CREATEOBJECT("InternetExplorer.Application")
loWebBrowser.Navigate("http://www.163.com")
SendMessage(loWebBrowser.HWnd, 274,61488,0)
loWebBrowser.Visible = .T.
MESSAGEBOX('点击确定关闭IE',64,'信息提示')
loWebBrowser.Quit &&关闭
