按下按钮时使用IE连接网页时如何控制IE窗口大小？

sunsysjp

按下按钮时使用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窗口的大小，请高手指点，代码也可以完全换成另外一种写法。

fan0217

Shell 常数





   






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











常数



值



描述





vbHide


0


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





vbNormalFocus


1


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





vbMinimizedFocus


2


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





vbMaximizedFocus


3


窗口最大化并拥有焦点。





vbNormalNoFocus


4


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





vbMinimizedNoFocus


6


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

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

andymark

用webbrower 控件,把窗口设定成你要的大小