📄 四方图.frm
字号:
VERSION 5.00
Begin VB.Form frmMain
BackColor = &H80000009&
BorderStyle = 5 'Sizable ToolWindow
Caption = "四方图"
ClientHeight = 4905
ClientLeft = 60
ClientTop = 330
ClientWidth = 7950
FillColor = &H00C0FFFF&
FillStyle = 3 'Vertical Line
Icon = "四方图.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 327
ScaleMode = 3 'Pixel
ScaleWidth = 530
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox Text3
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 180
Left = 1830
TabIndex = 18
Text = "1"
Top = 60
Width = 405
End
Begin VB.PictureBox Picture2
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 180
Left = 3900
ScaleHeight = 150
ScaleWidth = 360
TabIndex = 7
Top = 45
Width = 390
Begin VB.Label Label2
Appearance = 0 'Flat
BackColor = &H00C0FFFF&
ForeColor = &H80000008&
Height = 195
Index = 1
Left = 180
TabIndex = 9
Top = 0
Width = 195
End
Begin VB.Label Label2
Appearance = 0 'Flat
BackColor = &H00C0FFFF&
ForeColor = &H80000008&
Height = 195
Index = 0
Left = 0
TabIndex = 8
Top = 0
Width = 195
End
End
Begin VB.CommandButton Command1
Appearance = 0 'Flat
BackColor = &H80000009&
Height = 255
Left = 0
Picture = "四方图.frx":038A
Style = 1 'Graphical
TabIndex = 6
Top = 0
Width = 315
End
Begin VB.Timer Timer1
Interval = 100
Left = 7650
Top = 4830
End
Begin VB.CheckBox Check1
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "保持在前"
ForeColor = &H80000008&
Height = 195
Left = 6630
TabIndex = 5
Top = 30
Width = 1275
End
Begin VB.TextBox Text2
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 180
Left = 2790
TabIndex = 4
Text = "255"
Top = 60
Width = 405
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 180
Left = 900
TabIndex = 1
Text = "1"
Top = 60
Width = 405
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
FillColor = &H00FFC0FF&
FillStyle = 0 'Solid
ForeColor = &H00808080&
Height = 4845
Left = 60
ScaleHeight = 323
ScaleMode = 3 'Pixel
ScaleWidth = 491
TabIndex = 0
Top = 300
Width = 7365
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "步长:"
Height = 255
Index = 3
Left = 1320
TabIndex = 17
Top = 60
Width = 585
End
Begin VB.Label Label3
Appearance = 0 'Flat
BackColor = &H00FFC0FF&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 180
Index = 5
Left = 5550
TabIndex = 16
Top = 45
Width = 195
End
Begin VB.Label Label3
Appearance = 0 'Flat
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 180
Index = 4
Left = 5340
TabIndex = 15
Top = 45
Width = 195
End
Begin VB.Label Label3
Appearance = 0 'Flat
BackColor = &H00FFFFC0&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 180
Index = 3
Left = 5130
TabIndex = 14
Top = 45
Width = 195
End
Begin VB.Label Label3
Appearance = 0 'Flat
BackColor = &H00C0FFC0&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 180
Index = 2
Left = 4920
TabIndex = 13
Top = 45
Width = 195
End
Begin VB.Label Label3
Appearance = 0 'Flat
BackColor = &H00C0C0FF&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 180
Index = 1
Left = 4710
TabIndex = 12
Top = 45
Width = 195
End
Begin VB.Label Label3
Appearance = 0 'Flat
BackColor = &H00C0FFFF&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 180
Index = 0
Left = 4500
TabIndex = 11
Top = 45
Width = 195
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "颜色:"
Height = 255
Index = 2
Left = 3360
TabIndex = 10
Top = 60
Width = 585
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "透明:"
Height = 255
Index = 1
Left = 2280
TabIndex = 3
Top = 60
Width = 585
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "起点:"
Height = 255
Index = 0
Left = 390
TabIndex = 2
Top = 60
Width = 585
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'中心位置
Dim hfntprev As Long
Dim hMasterFont As Long
Dim FX As Long, FY As Long, L As Long, I As Long
Dim i圈数 As Integer
Dim i边长 As Integer
Dim i行高 As Integer
Dim i行宽 As Integer
Dim i起点 As Integer
Dim i总数 As Integer
Dim i索引 As Integer
Dim i字体 As Integer
Dim i反锯齿 As Boolean
Dim typSize As Size
Dim i0, i1, i2, i3, i4, i5, i6, i7, i8 As Single
Private Sub DrawTextStr(Index As Long)
Dim I As Long
Dim LpStr As String
Picture1.Cls
KX = (i行宽 - typSize.cx) \ 2 + 1
KY = (i行高 - typSize.cy) \ 2 + 1
For I = 1 To i总数
If inBuff(I).i角度 Then
Picture1.FillColor = &HC0FFFF
Picture1.Line (inBuff(I).X, inBuff(I).Y)-(inBuff(I).X + i行宽, inBuff(I).Y + i行高), , B
End If
If inBuff(I).i选择 Then
If inBuff(I).Color Then
Picture1.FillColor = inBuff(I).Color
Else
Picture1.FillColor = &HC0FFFF
End If
Picture1.Line (inBuff(I).X, inBuff(I).Y)-(inBuff(I).X + i行宽, inBuff(I).Y + i行高), , B
End If
inBuff(I).LpStr = CStr(Round(Index + (I - 1) * Val(Text3.Text)))
KX = (i行宽 - (typSize.cx * Len(inBuff(I).LpStr))) \ 2 + 1
TextOut Picture1.hDC, inBuff(I).X + KX, inBuff(I).Y + KY, inBuff(I).LpStr, Len(inBuff(I).LpStr)
Next
End Sub
Private Sub DrawLineSub()
Dim LX As Long, LY As Long
LX = FX - i圈数 * i行宽: LY = FY - i圈数 * i行高
i边长 = (i圈数 + i圈数 + 1) * i行宽
For I = 0 To i圈数 + i圈数 + 1
LY = LY + i行高
Picture1.Line (LX, LY)-(LX + i边长, LY)
Next
LY = FY - i圈数 * i行高 + i行高
i边长 = (i圈数 + i圈数 + 1) * i行高
For I = 0 To i圈数 + i圈数 + 1
Picture1.Line (LX, LY)-(LX, LY + i边长)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -