📄 form1.frm
字号:
VERSION 5.00
Begin VB.Form PctQiPan
AutoRedraw = -1 'True
BackColor = &H00FFC0C0&
BorderStyle = 1 '屌掕(幚慄)
ClientHeight = 9165
ClientLeft = 150
ClientTop = 435
ClientWidth = 9960
Icon = "Form1.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 9165
ScaleWidth = 9960
StartUpPosition = 2 '夋柺偺拞墰
Begin VB.Menu Start
Caption = "&Start"
End
Begin VB.Menu End
Caption = "&End"
End
End
Attribute VB_Name = "PctQiPan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim H_B As Boolean
Dim PosX%, PosY%
Private Sub DaJie(PosX, PosY)
Static Pcolor, DJ As Single
With PctQiPan
If Not H_B Then
Pcolor = RGB(0, 0, 0)
Else
Pcolor = RGB(255, 255, 255)
End If
DJ = 0
If PosX = 1 And PosY = 1 Then
PosX = 2
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
PosX = 1: PosY = 2
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
If DJ = 2 Then
.ForeColor = .BackColor
.FillStyle = 0
.FillColor = .BackColor
PctQiPan.Circle (1, 1), 0.3
.ForeColor = RGB(0, 0, 0)
.FillStyle = 0
.FillColor = RGB(0, 0, 0)
PctQiPan.Line (1, 1)-(1.4, 1)
PctQiPan.Line (1, 1)-(1, 1.4)
H_B = Not H_B
End If
Exit Sub
End If
DJ = 0
If PosX = 1 And PosY = 19 Then
PosX = 2
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
PosX = 1: PosY = 18
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
If DJ = 2 Then
.ForeColor = .BackColor
.FillStyle = 0
.FillColor = .BackColor
PctQiPan.Circle (1, 19), 0.3
.ForeColor = RGB(0, 0, 0)
.FillStyle = 0
.FillColor = RGB(0, 0, 0)
PctQiPan.Line (1, 19)-(1.4, 19)
PctQiPan.Line (1, 19)-(1, 18.6)
H_B = Not H_B
End If
Exit Sub
End If
DJ = 0
If PosX = 19 And PosY = 1 Then
PosX = 18
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
PosX = 19: PosY = 2
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
If DJ = 2 Then
.ForeColor = .BackColor
.FillStyle = 0
.FillColor = .BackColor
PctQiPan.Circle (19, 1), 0.3
.ForeColor = RGB(0, 0, 0)
.FillStyle = 0
.FillColor = RGB(0, 0, 0)
PctQiPan.Line (19, 1)-(18.6, 1)
PctQiPan.Line (19, 1)-(19, 1.4)
H_B = Not H_B
End If
Exit Sub
End If
DJ = 0
If PosX = 19 And PosY = 19 Then
PosX = 18
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
PosX = 19: PosY = 18
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
If DJ = 2 Then
.ForeColor = .BackColor
.FillStyle = 0
.FillColor = .BackColor
PctQiPan.Circle (19, 19), 0.3
.ForeColor = RGB(0, 0, 0)
.FillStyle = 0
.FillColor = RGB(0, 0, 0)
PctQiPan.Line (19, 19)-(18.6, 19)
PctQiPan.Line (19, 19)-(19, 18.6)
H_B = Not H_B
End If
Exit Sub
End If
Rem 333333333333333333
DJ = 0
If PosX = 1 Then
PosY = PosY - 1
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
PosY = PosY + 1: PosX = 2
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
PosY = PosY + 1: PosX = 1
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
If DJ = 3 Then
.ForeColor = .BackColor
.FillStyle = 0
.FillColor = .BackColor
PctQiPan.Circle (1, PosY - 1), 0.3
.ForeColor = RGB(0, 0, 0)
.FillStyle = 0
.FillColor = RGB(0, 0, 0)
PctQiPan.Line (1, PosY - 0.6)-(1, PosY - 1.6)
PctQiPan.Line (1, PosY - 1)-(1.4, PosY - 1)
H_B = Not H_B
End If
Exit Sub
End If
DJ = 0
If PosX = 19 Then
PosY = PosY - 1
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
PosY = PosY + 1: PosX = 18
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
PosY = PosY + 1: PosX = 19
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
If DJ = 3 Then
.ForeColor = .BackColor
.FillStyle = 0
.FillColor = .BackColor
PctQiPan.Circle (19, PosY - 1), 0.3
.ForeColor = RGB(0, 0, 0)
.FillStyle = 0
.FillColor = RGB(0, 0, 0)
PctQiPan.Line (19, PosY - 0.6)-(19, PosY - 1.6)
PctQiPan.Line (19, PosY - 1)-(18.6, PosY - 1)
H_B = Not H_B
End If
Exit Sub
End If
DJ = 0
If PosY = 1 Then
PosX = PosX - 1
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
PosX = PosX + 1: PosY = 2
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
PosX = PosX + 1: PosY = 1
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
If DJ = 3 Then
.ForeColor = .BackColor
.FillStyle = 0
.FillColor = .BackColor
PctQiPan.Circle (PosX - 1, 1), 0.3
.ForeColor = RGB(0, 0, 0)
.FillStyle = 0
.FillColor = RGB(0, 0, 0)
PctQiPan.Line (PosX - 0.6, 1)-(PosX - 1.6, 1)
PctQiPan.Line (PosX - 1, 1)-(PosX - 1, 1.4)
H_B = Not H_B
End If
Exit Sub
End If
DJ = 0
If PosY = 19 Then
PosX = PosX - 1
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
PosX = PosX + 1: PosY = 18
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
PosX = PosX + 1: PosY = 19
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
If DJ = 3 Then
.ForeColor = .BackColor
.FillStyle = 0
.FillColor = .BackColor
PctQiPan.Circle (PosX - 1, 19), 0.3
.ForeColor = RGB(0, 0, 0)
.FillStyle = 0
.FillColor = RGB(0, 0, 0)
PctQiPan.Line (PosX - 0.6, 19)-(PosX - 1.6, 19)
PctQiPan.Line (PosX - 1, 19)-(PosX - 1, 18.6)
H_B = Not H_B
End If
Exit Sub
End If
Rem 444444444444444444444444444444
DJ = 0
PosX = PosX - 1
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
PosX = PosX + 2
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
PosX = PosX - 1: PosY = PosY - 1
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
PosY = PosY + 2
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
If DJ = 4 Then
PosY = PosY - 1
.ForeColor = .BackColor
.FillStyle = 0
.FillColor = .BackColor
PctQiPan.Circle (PosX, PosY), 0.3
.ForeColor = RGB(0, 0, 0)
.FillStyle = 0
.FillColor = RGB(0, 0, 0)
PctQiPan.Line (PosX - 0.4, PosY)-(PosX + 0.4, PosY)
PctQiPan.Line (PosX, PosY - 0.4)-(PosX, PosY + 0.4)
H_B = Not H_B
End If
End With
End Sub
Private Sub QiPan()
With PctQiPan
.Cls
H_B = False
Dim i%
.DrawWidth = 2
.DrawStyle = 0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -