📄 formshapes.frm
字号:
VERSION 5.00
Begin VB.Form formShapes
BorderStyle = 1 'Fixed Single
Caption = "Shapes"
ClientHeight = 6495
ClientLeft = 45
ClientTop = 330
ClientWidth = 5715
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6495
ScaleWidth = 5715
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton cmndClearScreen
Height = 315
Left = 5340
TabIndex = 15
Top = 5880
Width = 255
End
Begin VB.CommandButton cmndDrawTriangle
Caption = "&Triangle"
Height = 315
Left = 4320
TabIndex = 14
Top = 5880
Width = 855
End
Begin VB.CommandButton cmndDrawBox
Caption = "&Box"
Height = 315
Left = 3300
TabIndex = 13
Top = 5880
Width = 855
End
Begin VB.CommandButton cmndDrawSquare
Caption = "&Square"
Height = 315
Left = 2280
TabIndex = 12
Top = 5880
Width = 855
End
Begin VB.CommandButton cmndDrawLine
Caption = "&Line"
Height = 315
Left = 1260
TabIndex = 11
Top = 5880
Width = 855
End
Begin VB.CommandButton cmndDrawCircle
Caption = "&Cricle"
Height = 315
Left = 240
TabIndex = 10
Top = 5880
Width = 855
End
Begin VB.PictureBox PictSurface
Height = 4215
Left = 60
ScaleHeight = 4155
ScaleWidth = 5535
TabIndex = 16
Top = 1320
Width = 5595
End
Begin VB.ComboBox cmboPickPattern
Height = 300
Left = 2880
Style = 2 'Dropdown List
TabIndex = 9
Top = 960
Width = 2715
End
Begin VB.ComboBox cmboPickPen
Height = 300
Left = 60
Style = 2 'Dropdown List
TabIndex = 7
Top = 960
Width = 2715
End
Begin VB.ComboBox cmboPickLine
Height = 300
Left = 2880
Style = 2 'Dropdown List
TabIndex = 5
Top = 360
Width = 2715
End
Begin VB.ComboBox cmboPickColor
Height = 300
Left = 1200
Style = 2 'Dropdown List
TabIndex = 3
Top = 360
Width = 1575
End
Begin VB.ComboBox cmboPickWidth
Height = 300
Left = 60
Style = 2 'Dropdown List
TabIndex = 1
Top = 360
Width = 1035
End
Begin VB.Line Line2
BorderWidth = 2
X1 = 120
X2 = 120
Y1 = 5760
Y2 = 6340
End
Begin VB.Line Line1
BorderWidth = 2
X1 = 100
X2 = 5600
Y1 = 5760
Y2 = 5760
End
Begin VB.Shape Shape1
BorderColor = &H00FFFFFF&
BorderWidth = 2
Height = 615
Left = 120
Top = 5760
Width = 5535
End
Begin VB.Label Label5
Caption = "&Pattern"
Height = 255
Left = 2880
TabIndex = 8
Top = 720
Width = 1395
End
Begin VB.Label Label4
Caption = "Pe&n"
Height = 255
Left = 60
TabIndex = 6
Top = 720
Width = 1335
End
Begin VB.Label Label3
Caption = "Lin&e"
Height = 255
Left = 2880
TabIndex = 4
Top = 120
Width = 1455
End
Begin VB.Label Label2
Caption = "C&olor"
Height = 255
Left = 1200
TabIndex = 2
Top = 120
Width = 1155
End
Begin VB.Label Label1
Caption = "&Width"
Height = 195
Left = 60
TabIndex = 0
Top = 120
Width = 735
End
End
Attribute VB_Name = "formShapes"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmboPickColor_Click()
PictSurface.FillColor = QBColor(cmboPickColor.ListIndex)
End Sub
Private Sub cmboPickLine_Click()
PictSurface.DrawStyle = cmboPickLine.ListIndex
End Sub
Private Sub cmboPickPattern_Click()
PictSurface.FillStyle = cmboPickPattern.ListIndex
End Sub
Private Sub cmboPickPen_Click()
PictSurface.DrawMode = cmboPickPen.ListIndex + 1
End Sub
Private Sub cmboPickWidth_Click()
PictSurface.DrawWidth = cmboPickWidth.ListIndex + 1
End Sub
Private Sub cmndClearScreen_Click()
PictSurface.Cls
End Sub
Private Sub cmndDrawBox_Click()
X1 = Int((75 - 1) * Rnd + 1)
Y1 = Int((75 - 1) * Rnd + 1)
X2 = Int((50 - 1) * Rnd + 1)
Y2 = Int((50 - 1) * Rnd + 1)
PictSurface.Line (X1, Y1)-Step(X2, Y2), , B
End Sub
Private Sub cmndDrawCircle_Click()
X = Int((100 - 1) * Rnd + 1)
Y = Int((100 - 1) * Rnd + 1)
R = Int((25 - 1) * Rnd + 1)
PictSurface.Circle (X, Y), R
End Sub
Private Sub cmndDrawLine_Click()
X1 = Int((100 - 1) * Rnd + 1)
Y1 = Int((100 - 1) * Rnd + 1)
X2 = Int((100 - 1) * Rnd + 1)
Y2 = Int((100 - 1) * Rnd + 1)
PictSurface.Line (X1, Y1)-(X2, Y2)
End Sub
Private Sub cmndDrawSquare_Click()
X1 = Int((50 - 1) * Rnd + 1)
Y1 = Int((50 - 1) * Rnd + 1)
X2 = Int((50 - 1) * Rnd + 1)
Y2 = X2
PictSurface.Line (X1, Y1)-Step(X2, Y2), , B
End Sub
Private Sub cmndDrawTriangle_Click()
X1 = Int((100 - 1) * Rnd + 1)
Y1 = Int((100 - 1) * Rnd + 1)
X2 = Int((100 - 1) * Rnd + 1)
Y2 = Int((100 - 1) * Rnd + 1)
X3 = Int((100 - 1) * Rnd + 1)
Y3 = Int((100 - 1) * Rnd + 1)
PictSurface.Line (X1, Y1)-(X2, Y2)
PictSurface.Line (X2, Y2)-(X3, Y3)
PictSurface.Line (X3, Y3)-(X1, Y1)
End Sub
Private Sub Form_Load()
For i = 1 To 10
cmboPickWidth.AddItem Str(i)
Next i
cmboPickColor.AddItem "Black"
cmboPickColor.AddItem "Blue"
cmboPickColor.AddItem "Green"
cmboPickColor.AddItem "Cyan"
cmboPickColor.AddItem "Red"
cmboPickColor.AddItem "Magenta"
cmboPickColor.AddItem "Yellow"
cmboPickColor.AddItem "White"
cmboPickColor.AddItem "Gray"
cmboPickColor.AddItem "Light Blue"
cmboPickColor.AddItem "Light Green"
cmboPickColor.AddItem "Light Cyan"
cmboPickColor.AddItem "Light Red"
cmboPickColor.AddItem "Light Magenta"
cmboPickColor.AddItem "Light Yellow"
cmboPickColor.AddItem "Bright White"
cmboPickPattern.AddItem "Solid"
cmboPickPattern.AddItem "Transparent"
cmboPickPattern.AddItem "Horizontal Line"
cmboPickPattern.AddItem "Vertical Line"
cmboPickPattern.AddItem "Upward Diagonal"
cmboPickPattern.AddItem "Downward Diagonal"
cmboPickPattern.AddItem "Cross"
cmboPickPattern.AddItem "Diagonal Cross"
cmboPickPen.AddItem "Blackness"
cmboPickPen.AddItem "Not Merge Pen"
cmboPickPen.AddItem "Mask Not Pen"
cmboPickPen.AddItem "Not Copy Pen"
cmboPickPen.AddItem "Mask Pen Not"
cmboPickPen.AddItem "Invert"
cmboPickPen.AddItem "Xor Pen"
cmboPickPen.AddItem "Not Mask Pen"
cmboPickPen.AddItem "Mask Pen"
cmboPickPen.AddItem "Not Xor Pen"
cmboPickPen.AddItem "Not"
cmboPickPen.AddItem "Merge Not Pen"
cmboPickPen.AddItem "Copy Pen"
cmboPickPen.AddItem "Merge Pen Not"
cmboPickPen.AddItem "Merge Pen"
cmboPickPen.AddItem "Whiteness"
cmboPickLine.AddItem "Solid"
cmboPickLine.AddItem "Dash"
cmboPickLine.AddItem "Dot"
cmboPickLine.AddItem "Dash-Dot"
cmboPickLine.AddItem "Dash-Dot-Dot"
cmboPickLine.AddItem "Invisible"
cmboPickLine.AddItem "Inside Solid"
cmboPickWidth.ListIndex = 0
cmboPickColor.ListIndex = 0
cmboPickPattern.ListIndex = 0
cmboPickPen.ListIndex = 13
cmboPickLine.ListIndex = 0
PictSurface.ScaleHeight = 100
PictSurface.ScaleWidth = 100
PictSurface.AutoRedraw = True
formCopyShapes.Show
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Private Sub PictSurface_DblClick()
PictSurface.Cls
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -