vb.net计算窗口 vb的窗口( 二 )


Dim ksWND As integer
Dim ksTitle As String
Dim winS As RECT
If TextBox1.Text"" Then
ksTitle = TextBox1.Text
ksWND = FindWindow(vbNullString, ksTitle)
GetWindowRect(ksWND, winS)
MsgBox("左上角坐标("winS.Left","winS.Top")"vbCrLf"右下角坐标("winS.Right","winS.Bottom")"vbCrLf"窗口高"winS.Bottom - winS.Top"窗口宽"winS.Right - winS.Left)
Else
MsgBox("请填写窗口名称")
End If
End Sub
【vb.net计算窗口 vb的窗口】vb.net计算窗口的介绍就聊到这里吧 , 感谢你花时间阅读本站内容,更多关于vb的窗口、vb.net计算窗口的信息别忘了在本站进行查找喔 。

推荐阅读