📄 frmmain.frm
字号:
VERSION 5.00
Object = "{24365B29-A3B5-11D1-B8B0-444553540000}#1.0#0"; "xfxFormShaper.ocx"
Begin VB.Form frmMain
BorderStyle = 0 'None
Caption = "FormShaper 1.0"
ClientHeight = 5640
ClientLeft = 3270
ClientTop = 3015
ClientWidth = 6750
ClipControls = 0 'False
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5640
ScaleWidth = 6750
ShowInTaskbar = 0 'False
Begin VB.PictureBox Picture1
BackColor = &H8000000D&
Height = 645
Left = 585
ScaleHeight = 585
ScaleWidth = 5820
TabIndex = 2
Top = 15
Width = 5880
Begin VB.PictureBox Picture3
Height = 300
Left = 120
Picture = "frmMain.frx":0442
ScaleHeight = 240
ScaleWidth = 240
TabIndex = 4
Top = 120
Width = 300
End
Begin VB.PictureBox Picture2
Height = 300
Left = 5235
Picture = "frmMain.frx":0544
ScaleHeight = 240
ScaleWidth = 240
TabIndex = 3
Top = 120
Width = 300
End
Begin VB.Line Line6
BorderColor = &H00808080&
BorderWidth = 4
X1 = 5790
X2 = 5790
Y1 = 90
Y2 = 495
End
Begin VB.Line Line5
BorderColor = &H00E0E0E0&
BorderWidth = 4
X1 = 30
X2 = 30
Y1 = 90
Y2 = 495
End
Begin VB.Line Line4
BorderColor = &H00808080&
BorderWidth = 4
X1 = 30
X2 = 5790
Y1 = 540
Y2 = 540
End
Begin VB.Line Line3
BorderColor = &H00E0E0E0&
BorderWidth = 4
X1 = 15
X2 = 5775
Y1 = 30
Y2 = 30
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "FormShaper 1.0 by Xavier Flix"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 315
Left = 555
TabIndex = 5
Top = 150
Width = 3255
End
End
Begin VB.TextBox Text1
Height = 375
Left = 2400
TabIndex = 1
Text = "COOL UH??"
Top = 4170
Width = 2115
End
Begin VB.CommandButton Command1
Caption = "Shape It!"
Height = 315
Left = 5535
TabIndex = 0
Top = 4995
Width = 900
End
Begin xfxFormShaper.FormShaper FormShaper1
Left = 180
Top = 4650
_ExtentX = 1852
_ExtentY = 1296
End
Begin VB.Shape Shape6
BackColor = &H8000000D&
BorderColor = &H80000012&
Height = 630
Left = 585
Shape = 4 'Rounded Rectangle
Tag = "shaper"
Top = 15
Width = 5865
End
Begin VB.Shape Shape15
Height = 450
Left = 5445
Tag = "shaper"
Top = 4920
Width = 1080
End
Begin VB.Line Line2
BorderWidth = 4
X1 = 3855
X2 = 4920
Y1 = 1485
Y2 = 1695
End
Begin VB.Line Line1
BorderWidth = 4
X1 = 2115
X2 = 3150
Y1 = 1665
Y2 = 1530
End
Begin VB.Shape Shape14
BackStyle = 1 'Opaque
Height = 495
Left = 2355
Top = 4110
Width = 2220
End
Begin VB.Shape Shape13
BackColor = &H80000006&
BackStyle = 1 'Opaque
Height = 330
Left = 3630
Shape = 3 'Circle
Top = 3240
Width = 285
End
Begin VB.Shape Shape12
BackColor = &H80000006&
BackStyle = 1 'Opaque
Height = 330
Left = 3060
Shape = 3 'Circle
Top = 3240
Width = 285
End
Begin VB.Shape Shape11
BackColor = &H000000C0&
BackStyle = 1 'Opaque
Height = 780
Left = 2850
Shape = 2 'Oval
Top = 2805
Width = 1305
End
Begin VB.Shape Shape10
BackColor = &H80000006&
BackStyle = 1 'Opaque
Height = 330
Left = 4065
Shape = 3 'Circle
Top = 1995
Width = 285
End
Begin VB.Shape Shape9
BackStyle = 1 'Opaque
FillColor = &H00FFFFFF&
Height = 750
Left = 3915
Shape = 3 'Circle
Top = 1740
Width = 720
End
Begin VB.Shape Shape8
BackColor = &H80000006&
BackStyle = 1 'Opaque
Height = 330
Left = 2610
Shape = 3 'Circle
Top = 1995
Width = 285
End
Begin VB.Shape Shape7
BackStyle = 1 'Opaque
FillColor = &H00FFFFFF&
Height = 750
Left = 2370
Shape = 3 'Circle
Top = 1725
Width = 720
End
Begin VB.Shape Shape5
Height = 2505
Left = 4800
Shape = 2 'Oval
Tag = "shaper"
Top = 2085
Width = 1050
End
Begin VB.Shape Shape4
Height = 2505
Left = 1200
Shape = 2 'Oval
Tag = "shaper"
Top = 2085
Width = 1050
End
Begin VB.Shape Shape2
Height = 4050
Left = 1725
Shape = 2 'Oval
Tag = "shaper"
Top = 1275
Width = 3540
End
Begin VB.Shape Shape1
Height = 2490
Left = 3120
Shape = 2 'Oval
Tag = "shaper"
Top = 840
Width = 2145
End
Begin VB.Shape Shape3
Height = 2505
Left = 1740
Shape = 2 'Oval
Tag = "shaper"
Top = 855
Width = 2145
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim mouseIsDown As Boolean
Dim cx As Single
Dim cy As Single
Private Sub Command1_Click()
FormShaper1.ShapeIt "shaper"
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
mouseIsDown = True
cx = X
cy = Y
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If mouseIsDown Then
Move Left + (X - cx), Top + (Y - cy)
End If
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
mouseIsDown = False
End Sub
Private Sub Picture2_Click()
End
End Sub
Private Sub Picture3_DblClick()
End
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -