vb双缓冲画平滑曲线闪烁严重 第2页

'打开游戏
Private Sub OPEN_Click()
  Open App.Path & "\save.db" For Binary As #1
   
  For i = 0 To 5
  For j = 0 To 5
  Get #1, , arr(i, j)
  Next j
  Next i
  Close 1#
   
  calcDC
  Me.Refresh
End Sub

'保存游戏
Private Sub SAVE_Click()
  Open App.Path & "\save.db" For Binary As #1
   
  For i = 0 To 5
  For j = 0 To 5
  Put #1, , arr(i, j)
  Next j
  Next i
  Close 1#
End Sub

'开始游戏
Private Sub START_Click()
  drops = 15
  newgame
End Sub

Private Sub Timer1_Timer()
  check
End Sub

'撤销
Private Sub UNDO_Click()

End Sub

'重做
Private Sub REDO_Click()

End Sub

Function CreateMyFont(nSize As Integer, nDegrees As Long) As Long
  'Create a specified font
  CreateMyFont = CreateFont(-MulDiv(nSize, GetDeviceCaps(GetDC(0), LOGPIXELSY), 288), 0, nDegrees * 10, 0, FW_NORMAL, False, False, False, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH, "Times New Roman")
End Function

Sub check()
  Dim str As String
  Dim i As Long, j As Long
   
  Dim isdone As Boolean

上一页  [1] [2] [3] [4] 下一页