能否帮忙逐句解释下意思

来源:百度知道 编辑:UC知道 时间:2024/06/07 19:01:03
Public Shared Function Checklines() As Integer
Dim result As Integer
Dim y As Integer = Height - 1
While y >= 0
If IslineFull(y) Then
result += 1
For i As Integer = y To 0 Step -1
If i > 0 Then
For x As Integer = 0 To Width - 1
arrGamefield(x, i) = arrGamefield(x, i - 1)
If Not arrGamefield(x, i) Is Nothing Then
arrGamefield(x, i).Location = New Point(arrGamefield(x, i).Location.X, arrGamefield(x, i).Location.Y + squaresize.Height)
End If
Next
Else
For x As Integer = 0 To Width - 1
arrGamefield(x, i) = Nothing

Next
End If

好长诶....
Public Shared Function Checklines() As Integer
定义共享函数,其中检查行数变量为单精度
Dim result As Integer
结果为单精度
Dim y As Integer = Height - 1
y轴坐标为单精度,且为高度值-1

While y >= 0
当y坐标大于等于0时

代码不全,不能叫我猜吧00~....

If IslineFull(y) Then
result += 1
For i As Integer = y To 0 Step -1
If i > 0 Then

你狠,这么长........