p; Clip.Window = P
BS = New Surface(fn, desc2, Dev)
PS = New Surface(desc, Dev)
PS.Clipper = Clip
Me.Text = "loaded"
End Sub
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
run = Not run
If TT Is Nothing Then
TT = New Threading.Thread(AddressOf main2)
TT.Start()
End If
End Sub
Sub blt()
If PS Is Nothing Then Exit Sub
Dim r1 As Rectangle
Dim r2 As Rectangle
r2.Height = desc2.Height
r2.Width = desc2.Width
r1.Height = P.Size.Height
r1.X = 0
r1.Y = 0
r1.Width = P.Size.Width
PS.Draw(r1, BS, r2, DrawFlags.Wait)
End Sub
Sub main2()
Dim tfp As Integer = 0 ''''''''''''fps
Dim mytime As Date = DateTime.Now ''''''''''''临时用一下
While (run = True) ''''''''''''如果游戏没有结束
blt() ''''''''''''主要绘制过程
tfp += 1 ''''''''''''fps++
If tfp = 200 Then ''''''''''''200次的时候计算时间
tfp = 0
Dim ts As New TimeSpan
ts = (DateTime.Now.Subtract(mytime))
mytime = DateTime.Now
If ts.TotalSeconds <> 0 Then
Dim qiqi As Double = 200 / (ts.TotalSeconds)
Me.Text = qiqi.ToString("##.##") + "F c"
End If
End If 上一页 [1] [2] [3] [4] [5] 下一页 [学习帮助]已知直线Y=-x+1 交X,Y 轴于A,B [办公软件]如何在Excel表格单元格中输入比例(如4:1并让其正确… [常用软件]休息一下!网络资源搜罗 (1) [VB.NET程序]VB6升级到VB.NET(1) App的变化 [VB.NET程序]VB.NET实现DirectDraw9 (2) 动画 [VB.NET程序]学习笔记,VB.NET使用DirectSound9 (1) [VB.NET程序]Visual Basic 6 逆向工程与反逆向工程 (1) [VB.NET程序]几个 WMI 的例子(初级) - 1 [VB.NET程序]VBCOM TUTORIAL(1) [VB.NET程序]Common Control - The VB Way (1)
|