Office中国论坛/Access中国论坛

标题: 按下按钮时使用IE连接网页时如何控制IE窗口大小？ [打印本页]

作者: sunsysjp 时间: 2006-4-29 00:15
标题: 按下按钮时使用IE连接网页时如何控制IE窗口大小？
按下按钮时使用IE连接网页时如何控制IE窗口大小？

我是这样打开网站的，代码如下：

Private Sub 汇市情况_Click()
On Error GoTo Err_汇市情况_Click

Dim stAppName As String

stAppName = "C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.cnforex.com/partner/yahoo/FXCalculator.asp"
Call Shell(stAppName, 1)

Exit_汇市情况_Click:
Exit Sub

Err_汇市情况_Click:
MsgBox err.Description
Resume Exit_汇市情况_Click

End Sub

现在想制定打开的IE窗口的大小，请高手指点，代码也可以完全换成另外一种写法。

作者: andymark 时间: 2006-4-29 01:27
用webbrower 控件,把窗口设定成你要的大小

作者: fan0217 时间: 2006-4-29 02:27
Shell 常数

可在代码中的任何地方使用下列常数代替实际值：

常数

值

描述

vbHide

0

窗口是隐藏的，并且焦点被传递给隐藏窗口。

vbNormalFocus

1

窗口拥有焦点，并且恢复到原来的大小与位置。

vbMinimizedFocus

2

窗口缩小为图符并拥有焦点。

vbMaximizedFocus

3

窗口最大化并拥有焦点。

vbNormalNoFocus

4

窗口被恢复到最近一次的大小与位置。当前活动窗口仍为活动窗口。

vbMinimizedNoFocus

6

窗口缩小为图符。当前活动窗口仍为活动窗口。

[此贴子已经被作者于2006-4-28 18:27:22编辑过]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)