小问题，怎样使window.open弹出来的窗口处在屏幕的中间啊？ －－ 在线给分

Question

Protected mybox() As TextBox
'页面动态加入控件
    Sub AddTextBox(ByVal CanFillFields As String)
        Dim i As Integer
        Dim Fields() As String
        Fields = Split(CanFillFields, "#")
        ReDim mybox(Fields.Length - 1)
        For i = 0 To Fields.Length - 1
            If Fields(i).Trim <> "" Then
                mybox(i) = New TextBox
                'mybox(i).Enabled = False
                mybox(i).Style.Item("width") = 0
                If Left(Fields(i), 1) = "签" Then mybox(i).ID = "sign" + Right(Fields(i), Fields(i).Length - 3)
                If Left(Fields(i), 1) = "多" Then mybox(i).ID = "m" + Right(Fields(i), Fields(i).Length - 4)
                If Left(Fields(i), 1) = "单" Then mybox(i).ID = "s" + Right(Fields(i), Fields(i).Length - 4)
                Ph1.Controls.Add(mybox(i))
            End If
        Next
    End Sub‘把PH1改成TABLE！！

Answer 1

var xposition = (screen.width - width) / 2;
var yposition = (screen.height - height) / 2;

Answer 2

screen.width
screen.height
得到这个二个。你算一个你的窗体的高度与宽度，不就可以得到中央了吗

Answer 3

var width=xxxx
var height=xxx
var wt=(screen.width - width) / 2;
var wl=(screen.height - height) / 2;
var nwindow=window.open('',null,'top='+ wt +',left='+ wl +',width='+widht+',height='+height+');