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

[rabbitwy]

先到先得啊：）

[付长松_华为云MVP]

你是想知道：怎么获得屏幕的分辨率吗？

[付长松_华为云MVP]

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！！

[mywebcn]

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

[付长松_华为云MVP]

不好意思，贴错了！！！

[greystar]

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

[cegcegceg]

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+');