前言:
直到最近我才看到有这活动...，看大家那么热烈参予我也不好意思混下去..，虽然没得参赛但我还是分享一下。
名称:八后棋
编写语言:Visual Basic
操作:
使用滑鼠分为左键右键
左键:下棋及辅助性错误判断
右键:取消这一颗棋
编写流程:做好外观~>想好相关所需资讯~>使用类别编写相关栏位~>想好相关方法~>添增程序、函数及类别~>测试~>Debug~>测试..
程式说明:(为了那正八边形，把笔一直转呀转呀转..)
关于这程式我制作了3个类别(c1主物件、c2棋、C关联List)以方便作存取
c1主物件...(其实前面的c1是在选单的时候会比较快...)
这个类别制作出来的物件会是存取相关座标方法函数的管道。
其方法有Set_Star、Item(预设)、 CleanValue、Check、AllReShow、Win、(其余皆是Private级)，其中Set_Star是为了初始化而设立的，Item则是存取资讯的管道，CleanValue则是清除各个棋资讯Value值，AllReShow是将全部的位置换至回原本应有的图片，Win是用来判断是某达成目标。此类别相关内容大致上就这些了。
P.S.你会发现有个Change事件，那个你可以当作没看到..
Option Explicit
Dim mInformation() As c2棋 '(7,7)
Event Change(M As c2棋)
Public Sub Set_Star(N() As Image)
ReDim mInformation(7, 7)
Dim i As Integer, j As Integer
For i = 0 To 7
For j = 0 To 7
Set mInformation(i, j) = New c2棋
mInformation(i, j).Set_Star Me, N(i, j), i, j
Next
Next
For i = 0 To 7
For j = 0 To 7
mInformation(i, j).Set_Star2 GetList(i, j)
Next
Next
End Sub
Private Function GetList(X As Integer, Y As Integer) As C关联List
Dim i As Integer, j As Integer
Dim k As New C关联List
For i = 0 To 7
If i <> Y Then
'行
k.Add Me(X, i)
End If
If i <> X Then
'列
k.Add Me(i, Y)
End If
If i <> X Then
If Checkk(i, Y - X + i) = True Then
'(1,1)
k.Add Me(i, Y - X + i)
End If
If Checkk(i, X + Y - i) = True Then
'(1,-1)
k.Add Me(i, X + Y - i)
End If
End If
Next
Set GetList = k
End Function
Private Function Checkk(X As Integer, Y As Integer) As Boolean
If X < 0 Or Y < 0 Or X > 7 Or Y > 7 Then
Else
Checkk = True
End If
End Function
Function Item(IndexX As Integer, IndexY As Integer) As c2棋
On Error GoTo DoErr:
Set Item = mInformation(IndexX, IndexY)
Exit Function
DoErr:
Err.Raise 0, , "参数错误"
End Function
Private Sub Class_Initialize()
ReDim mInformation(7, 7)
ReDim mShapek(6, 6)
End Sub
Private Sub Class_Terminate()
Debug.Print "C1End"
End Sub
Public Sub CleanValue()
Dim i As Integer, j As Integer
For i = 0 To 7
For j = 0 To 7
mInformation(i, j).Value = False
Next
Next
End Sub
Public Sub C2_Change(M As c2棋)
RaiseEvent Change(M)
End Sub
Public Function Check(X As Integer, Y As Integer) As Boolean
Dim k As c2棋
Set k = Me(X, Y)
Dim i As Integer
If k = True Then Exit Function
Check = True
For i = 0 To k.List.Count - 1
If k.List(i).Value = True Then
Check = False
Exit For
End If
Next
End Function
Public Sub AllReShow()
Dim i As Integer, j As Integer
For i = 0 To 7
For j = 0 To 7
Me(i, j).ReShow
Next
Next
End Sub
Public Function Win() As Boolean
Dim i As Integer, j As Integer
Dim sum As Integer
For i = 0 To 7
For j = 0 To 7
If Me(i, j).Value = True Then
sum = sum + 1
End If
Next ..
访客只能看到部份内容，免费 加入会员 或由脸书 Google 
可以看到全部内容
