📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmMain
BorderStyle = 4 'Fixed ToolWindow
Caption = "Firestorm"
ClientHeight = 5865
ClientLeft = 1845
ClientTop = 1845
ClientWidth = 6900
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 391
ScaleMode = 3 'Pixel
ScaleWidth = 460
ShowInTaskbar = 0 'False
Begin VB.CommandButton Command5
Caption = "Add a preset"
Height = 435
Left = 270
TabIndex = 28
Top = 5385
Width = 1275
End
Begin VB.ComboBox Combo1
Height = 315
Left = 1725
TabIndex = 27
Text = "Presets"
Top = 4455
Width = 1470
End
Begin VB.CommandButton Command4
Caption = "About"
Height = 435
Left = 270
TabIndex = 26
Top = 4905
Width = 1275
End
Begin VB.PictureBox Picture2
AutoSize = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
Height = 735
Left = 6045
ScaleHeight = 49
ScaleMode = 3 'Pixel
ScaleWidth = 71
TabIndex = 25
Top = 5055
Visible = 0 'False
Width = 1065
End
Begin VB.CommandButton Command3
Caption = "Pause"
Height = 435
Left = 270
TabIndex = 24
Top = 4440
Width = 1275
End
Begin MSComDlg.CommonDialog CD
Left = 5850
Top = 4890
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CheckBox Check1
Caption = "Random Shift"
Height = 240
Left = 5010
TabIndex = 22
Top = 5415
Width = 1545
End
Begin VB.TextBox Text3
Height = 300
Left = 3780
TabIndex = 20
Text = "1"
Top = 5430
Width = 960
End
Begin VB.TextBox Text2
Height = 300
Left = 4965
TabIndex = 18
Text = "5"
Top = 4785
Width = 960
End
Begin VB.TextBox Text1
Height = 300
Left = 3795
TabIndex = 16
Text = "100"
Top = 4785
Width = 960
End
Begin MSComctlLib.Slider Slider1
Height = 495
Left = 3690
TabIndex = 3
Top = 225
Width = 2805
_ExtentX = 4948
_ExtentY = 873
_Version = 393216
Max = 60
SelStart = 2
TickFrequency = 3
Value = 2
End
Begin VB.CommandButton Command2
Caption = "Load Picture"
Height = 600
Left = 1710
TabIndex = 2
Top = 3300
Width = 1425
End
Begin VB.CommandButton Command1
Caption = "Exit"
Height = 600
Left = 285
TabIndex = 1
Top = 3300
Width = 1335
End
Begin VB.PictureBox Picture1
BackColor = &H00000000&
BorderStyle = 0 'None
Height = 3000
Left = 270
ScaleHeight = 200
ScaleMode = 3 'Pixel
ScaleWidth = 200
TabIndex = 0
Top = 180
Width = 3000
End
Begin MSComctlLib.Slider Slider2
Height = 495
Left = 3690
TabIndex = 4
Top = 1050
Width = 2805
_ExtentX = 4948
_ExtentY = 873
_Version = 393216
Min = -60
Max = 60
SelStart = 4
TickFrequency = 3
Value = 4
End
Begin MSComctlLib.Slider Slider3
Height = 495
Left = 3690
TabIndex = 8
Top = 1860
Width = 2805
_ExtentX = 4948
_ExtentY = 873
_Version = 393216
Max = 10000
SelStart = 1000
TickFrequency = 500
Value = 1000
End
Begin MSComctlLib.Slider Slider4
Height = 495
Left = 3690
TabIndex = 10
Top = 2610
Width = 2805
_ExtentX = 4948
_ExtentY = 873
_Version = 393216
Max = 200
SelStart = 4
TickFrequency = 10
Value = 4
End
Begin MSComctlLib.Slider Slider5
Height = 495
Left = 3690
TabIndex = 12
Top = 3360
Width = 2805
_ExtentX = 4948
_ExtentY = 873
_Version = 393216
Max = 255
SelStart = 102
TickFrequency = 8
Value = 102
End
Begin MSComctlLib.Slider Slider6
Height = 495
Left = 3690
TabIndex = 14
Top = 4080
Width = 2805
_ExtentX = 4948
_ExtentY = 873
_Version = 393216
Min = -1000
Max = 1000
SelStart = 1
TickFrequency = 50
Value = 1
End
Begin VB.Label lblFPS
Caption = "FPS:"
Height = 240
Left = 285
TabIndex = 23
Top = 4185
Width = 2850
End
Begin VB.Label Label8
Caption = "Blur Iterations:"
Height = 180
Left = 3780
TabIndex = 21
Top = 5205
Width = 1155
End
Begin VB.Label Label10
Caption = "Y:"
Height = 180
Left = 4965
TabIndex = 19
Top = 4560
Width = 990
End
Begin VB.Label Label9
Caption = "X:"
Height = 180
Left = 3795
TabIndex = 17
Top = 4560
Width = 990
End
Begin VB.Label Label6
Caption = "Gravity:"
Height = 390
Left = 3735
TabIndex = 15
Top = 3885
Width = 2625
End
Begin VB.Label Label5
Caption = "Length:"
Height = 390
Left = 3690
TabIndex = 13
Top = 3165
Width = 2625
End
Begin VB.Label Label4
Caption = "Base width:"
Height = 390
Left = 3690
TabIndex = 11
Top = 2415
Width = 2625
End
Begin VB.Label Label3
Caption = "Density:"
Height = 390
Left = 3690
TabIndex = 9
Top = 1665
Width = 2625
End
Begin VB.Label lblBits
Caption = "Bits per pixel:"
Height = 240
Left = 285
TabIndex = 7
Top = 3945
Width = 2850
End
Begin VB.Label Label2
Caption = "Force:"
Height = 390
Left = 3690
TabIndex = 6
Top = 870
Width = 2625
End
Begin VB.Label Label1
Caption = "Deviation:"
Height = 390
Left = 3690
TabIndex = 5
Top = 60
Width = 2625
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private BPF As Long, Hgt As Long, BPP As Long, C As Single
Private B(0 To 40400) As Byte, B2(0 To 40400) As Byte, X As Long, Y As Long, D As Long, Ending As Boolean, Pos As Long, I As Long, J As Long, CC As Long, II As Long
Private Dist(-20 To 20, -20 To 20) As Single
Private Type Particle
X As Single
Y As Single
V As Single
SV As Single
Life As Single
End Type
Private Type Preset
Name As String
PS(1 To 10) As Long
End Type
Private Type PresetList
PreCount As Long
Pre() As Preset
End Type
Private Pause As Boolean
Private Col As Long, VV As Single, SVV As Single, Svv2 As Single, S3 As Long, S4 As Long, Sze As Long, Heat As Single, Grav As Single, sx As Long, sy As Long, Bl As Long, T As Long, Tim
Private P(0 To 10000) As Particle
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -