📄 frm.frm
字号:
VERSION 5.00
Object = "{24365B29-A3B5-11D1-B8B0-444553540000}#1.0#0"; "xfxFormShaper.ocx"
Begin VB.Form frm
BackColor = &H00FFC0C0&
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 7800
ClientLeft = 1650
ClientTop = 225
ClientWidth = 7200
LinkTopic = "Form1"
LockControls = -1 'True
ScaleHeight = 7800
ScaleWidth = 7200
ShowInTaskbar = 0 'False
Begin VB.PictureBox Picture4
Appearance = 0 'Flat
BackColor = &H00FF8080&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 375
Left = 0
ScaleHeight = 375
ScaleWidth = 7155
TabIndex = 3
Top = 7380
Width = 7155
End
Begin VB.PictureBox Picture3
Appearance = 0 'Flat
BackColor = &H00FF8080&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 6990
Left = 6780
ScaleHeight = 6990
ScaleWidth = 375
TabIndex = 2
Top = 540
Width = 375
End
Begin VB.PictureBox Picture2
Appearance = 0 'Flat
BackColor = &H00FF8080&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 6810
Left = 0
ScaleHeight = 6810
ScaleWidth = 375
TabIndex = 1
Top = 585
Width = 375
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H00FF8080&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 555
Left = 0
ScaleHeight = 555
ScaleWidth = 7155
TabIndex = 0
Top = 60
Width = 7155
Begin VB.Label Label1
BackColor = &H00FF8080&
Caption = "系统服务终结者v2.0.1"
ForeColor = &H00FFC0C0&
Height = 210
Left = 450
TabIndex = 4
Top = 285
Visible = 0 'False
Width = 1845
End
Begin VB.Shape Shape6
BorderColor = &H00FFC0C0&
Height = 300
Left = 390
Shape = 4 'Rounded Rectangle
Top = 225
Width = 1920
End
End
Begin xfxFormShaper.FormShaper fs
Left = 5625
Top = 5880
_ExtentX = 1852
_ExtentY = 1296
End
Begin VB.Shape Shape12
BorderColor = &H00FF8080&
Height = 435
Left = 5625
Shape = 4 'Rounded Rectangle
Top = 6900
Width = 1095
End
Begin VB.Shape Shape2
BorderColor = &H00FF8080&
Height = 435
Left = 4440
Shape = 4 'Rounded Rectangle
Top = 6900
Width = 1095
End
Begin VB.Shape Shape10
BorderColor = &H00FF8080&
Height = 435
Left = 1515
Shape = 4 'Rounded Rectangle
Top = 6900
Width = 2820
End
Begin VB.Shape Shape11
BorderColor = &H00FF8080&
Height = 435
Left = 435
Shape = 4 'Rounded Rectangle
Top = 6900
Width = 975
End
Begin VB.Shape Shape9
BorderColor = &H00FF8080&
Height = 5085
Left = 435
Top = 1770
Width = 6285
End
Begin VB.Shape Shape8
BorderColor = &H00FF8080&
Height = 630
Left = 435
Shape = 4 'Rounded Rectangle
Top = 1110
Width = 6285
End
Begin VB.Shape Shape7
BackColor = &H00FFFFFF&
BorderColor = &H00FF8080&
FillColor = &H00FF8080&
Height = 300
Left = 3180
Shape = 4 'Rounded Rectangle
Top = 735
Width = 525
End
Begin VB.Shape lab3
BackColor = &H00FF8080&
BorderColor = &H00FF8080&
Height = 300
Left = 2280
Shape = 4 'Rounded Rectangle
Top = 735
Width = 870
End
Begin VB.Shape Shape5
BorderColor = &H00FF8080&
Height = 300
Left = 1380
Shape = 4 'Rounded Rectangle
Top = 735
Width = 870
End
Begin VB.Shape Shape4
BorderColor = &H00FF8080&
Height = 300
Left = 480
Shape = 4 'Rounded Rectangle
Top = 735
Width = 870
End
Begin VB.Shape Shape3
BorderColor = &H00FF8080&
Height = 390
Left = 435
Shape = 4 'Rounded Rectangle
Top = 690
Width = 6285
End
Begin VB.Shape Shape1
Height = 7695
Left = 60
Shape = 4 'Rounded Rectangle
Tag = "shaper"
Top = 60
Width = 7095
End
End
Attribute VB_Name = "frm"
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
Dim ret As Long, hKey As Long, hnd As Long
Dim idx As Long, lendata As Long
Dim typeData As Long, vlu As Long
Dim itm(1 To 100) As ListItem, start As Long
Dim chg As Byte, btsvc(-1 To 40) As String, bootnum As Integer
'窗体载入
Private Sub Form_Load()
fs.ShapeIt "shaper"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -