以下是引用sunion在2018/2/22 21:07:00的发言:
请问打开速度在哪里控制?
e.Form.TimerInterval = 1
static n As Integer = 1
static n1 As Integer = 1
n = n + 5
n1 = n1 + 5
Dim x As Integer = (SysInfo.WorkingAreaWidth - e.Form.width) / 2
Dim y As Integer = (SysInfo.WorkingAreaHeight - e.Form.height) / 2
e.Form.SetBounds(x,y,n,n1)
If n > 300 Then
e.Form.TimerEnabled = False
End If
http://www.foxtable.com/webhelp/scr/1301.htm