unity3d api 离线文档怎么做
发布网友
发布时间：2022-05-02 10:45
共1个回答
热心网友
时间：2022-06-19 11:01
Private Sub Form_Load()
Me.AutoRedraw = True
Timer1.Interval = 2000
Timer1.Enabled = True
End Sub
Sub Timer1_Timer()
Dim p As RECT
Dim h As Long
Dim str1 As String
h = GetActiveWindow '获得活动窗口句柄
str1 = String(255, 0)
GetWindowText h, str1, 255 '获得标题
GetWindowRect h, p '获得窗口位置、大小
Print "窗口标题：" & Left(str1, InStr(str1, Chr(0)) - 1) & " 窗口位置：Left=" & p.Left & " Top=" & p.Top & " 大小是：" & p.Right - p.Left & "X" & p.Bottom - p.Top
End Sub
