📄 form1.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmMain
AutoRedraw = -1 'True
BackColor = &H00C0C0C0&
Caption = "牛顿法解方程之混沌情况 1.32"
ClientHeight = 4920
ClientLeft = 6060
ClientTop = 3810
ClientWidth = 6000
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "Form1.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
ScaleHeight = 4920
ScaleWidth = 6000
StartUpPosition = 2 '屏幕中心
Begin VB.TextBox Text7
Height = 405
Left = 3945
TabIndex = 7
Top = 1575
Visible = 0 'False
Width = 510
End
Begin MSComDlg.CommonDialog CommonDialogBMP
Left = 1050
Top = 1410
_ExtentX = 847
_ExtentY = 847
_Version = 393216
Filter = "*.BMP|*.BMP"
End
Begin VB.Timer Timer3
Interval = 50
Left = 3450
Top = 1575
End
Begin VB.Timer Timer2
Enabled = 0 'False
Interval = 50
Left = 2820
Top = 1560
End
Begin VB.CommandButton CommandSatrt
Caption = "commandstart"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 60
TabIndex = 6
Top = 1815
Visible = 0 'False
Width = 1500
End
Begin VB.PictureBox Picture2
AutoRedraw = -1 'True
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1.80000e5
Left = 4785
MousePointer = 2 'Cross
ScaleHeight = 12000
ScaleMode = 3 'Pixel
ScaleWidth = 16000
TabIndex = 5
Top = 1665
Visible = 0 'False
Width = 2.40000e5
End
Begin VB.TextBox Text6
Height = 405
Left = 5025
TabIndex = 4
Text = "0"
Top = 1590
Visible = 0 'False
Width = 735
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 500
Left = 4560
Top = 1575
End
Begin VB.CommandButton Command4
Caption = "clear"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 105
TabIndex = 3
Top = 3015
Visible = 0 'False
Width = 1095
End
Begin VB.CommandButton Command2
Caption = "Stop"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 105
TabIndex = 2
Top = 2625
Visible = 0 'False
Width = 1095
End
Begin VB.CommandButton Command1
Caption = "Start"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 105
TabIndex = 1
Top = 2220
Visible = 0 'False
Width = 1095
End
Begin VB.PictureBox Picture1
AutoRedraw = -1 'True
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3810
Left = 1635
MousePointer = 2 'Cross
OLEDropMode = 1 'Manual
ScaleHeight = 254
ScaleMode = 3 'Pixel
ScaleWidth = 298
TabIndex = 0
Top = 2340
Width = 4470
Begin MSComDlg.CommonDialog CommonDialog1
Left = 3000
Top = 2760
_ExtentX = 847
_ExtentY = 847
_Version = 393216
Filter = "*.mh|*.mh|所有文件（*.*）|*.*"
End
Begin VB.Shape Shape1
BorderColor = &H00000000&
BorderStyle = 3 'Dot
Height = 1455
Left = 735
Top = 480
Visible = 0 'False
Width = 2295
End
End
Begin MSComDlg.CommonDialog CommonDialogSaveH
Left = 1590
Top = 1395
_ExtentX = 847
_ExtentY = 847
_Version = 393216
Filter = "*.HTXT|*.HTXT"
End
Begin MSComDlg.CommonDialog CommonDialogOpen
Left = 2160
Top = 1425
_ExtentX = 847
_ExtentY = 847
_Version = 393216
Filter = "*.HTXT|*.HTXT"
End
Begin VB.Image ImageLine3
Height = 330
Left = 3420
Picture = "Form1.frx":0CCA
ToolTipText = " 上一幅图像 "
Top = 1215
Visible = 0 'False
Width = 330
End
Begin VB.Image ImageLine2
Height = 330
Left = 3420
Picture = "Form1.frx":12E4
ToolTipText = " 上一幅图像 "
Top = 840
Visible = 0 'False
Width = 330
End
Begin VB.Image ImageLine1
Height = 330
Left = 3390
Picture = "Form1.frx":18FE
ToolTipText = " 上一幅图像 "
Top = 435
Visible = 0 'False
Width = 330
End
Begin VB.Image ImageLine
Height = 330
Left = 3330
Picture = "Form1.frx":1F18
ToolTipText = " 绘制边框 "
Top = 15
Width = 330
End
Begin VB.Image ImagePIC3
Height = 330
Left = 4995
Picture = "Form1.frx":2532
ToolTipText = " 打开控制面板 "
Top = 1215
Visible = 0 'False
Width = 330
End
Begin VB.Image ImagePIC2
Height = 330
Left = 4980
Picture = "Form1.frx":2B4C
ToolTipText = " 打开控制面板 "
Top = 885
Visible = 0 'False
Width = 330
End
Begin VB.Image ImagePIC1
Height = 330
Left = 4950
Picture = "Form1.frx":3166
ToolTipText = " 打开控制面板 "
Top = 465
Visible = 0 'False
Width = 330
End
Begin VB.Image ImagePIC
Height = 330
Left = 4845
Picture = "Form1.frx":3780
ToolTipText = " RGB颜色调整 "
Top = 15
Width = 330
End
Begin VB.Image ImageR3
Height = 330
Left = 4515
Picture = "Form1.frx":3D9A
ToolTipText = " 打开控制面板 "
Top = 1215
Visible = 0 'False
Width = 330
End
Begin VB.Image ImageR2
Height = 330
Left = 4500
Picture = "Form1.frx":43B4
ToolTipText = " 打开控制面板 "
Top = 870
Visible = 0 'False
Width = 330
End
Begin VB.Image ImageR1
Height = 330
Left = 4500
Picture = "Form1.frx":49CE
ToolTipText = " 打开控制面板 "
Top = 480
Visible = 0 'False
Width = 330
End
Begin VB.Image ImageR
Height = 330
Left = 4320
Picture = "Form1.frx":4FE8
ToolTipText = " 下一幅图像 "
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -