www.pudn.com > 牛顿法解方程之混沌情况1.32源代码.zip > Form3.frm
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmCtrl
BorderStyle = 4 'Fixed ToolWindow
Caption = " 参 数 控 制"
ClientHeight = 5970
ClientLeft = 4950
ClientTop = 795
ClientWidth = 7410
ControlBox = 0 'False
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "Form3.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form3"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 398
ScaleMode = 3 'Pixel
ScaleWidth = 494
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin MSComDlg.CommonDialog CommonDialogSave
Left = 825
Top = 5250
_ExtentX = 847
_ExtentY = 847
_Version = 393216
Filter = "*.HTXT|*.HTXT"
End
Begin MSComDlg.CommonDialog CommonDialogOpen
Left = 900
Top = 5265
_ExtentX = 847
_ExtentY = 847
_Version = 393216
Filter = "*.HTXT|*.HTXT"
End
Begin VB.CommandButton Command4
Caption = "载入参数"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1890
TabIndex = 49
Top = 5400
Width = 975
End
Begin VB.CommandButton Command3
Caption = "保存参数"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 660
TabIndex = 48
Top = 5400
Width = 975
End
Begin VB.Frame Frame5
Height = 3345
Left = 3390
TabIndex = 46
Top = 1875
Width = 3915
Begin VB.OptionButton OptionZheSe
Caption = "方案32"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 31
Left = 2880
TabIndex = 94
Top = 2970
Width = 975
End
Begin VB.OptionButton OptionZheSe
Caption = "方案31"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 30
Left = 2880
TabIndex = 93
Top = 2730
Width = 975
End
Begin VB.ComboBox Combo4
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
ItemData = "Form3.frx":0CCA
Left = 2580
List = "Form3.frx":0CE6
Style = 2 'Dropdown List
TabIndex = 91
Top = 930
Width = 1230
End
Begin VB.ComboBox Combo3
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
ItemData = "Form3.frx":0D1F
Left = 705
List = "Form3.frx":0D3B
Style = 2 'Dropdown List
TabIndex = 89
Top = 930
Width = 1230
End
Begin VB.ComboBox Combo2
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
ItemData = "Form3.frx":0D74
Left = 2580
List = "Form3.frx":0D90
Style = 2 'Dropdown List
TabIndex = 87
Top = 600
Width = 1230
End
Begin VB.ComboBox Combo1
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
ItemData = "Form3.frx":0DC9
Left = 705
List = "Form3.frx":0DE5
Style = 2 'Dropdown List
TabIndex = 85
Top = 600
Width = 1230
End
Begin VB.OptionButton OptionZheSe
Caption = "方案30"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 29
Left = 2880
TabIndex = 80
Top = 2505
Width = 975
End
Begin VB.OptionButton OptionZheSe
Caption = "方案29"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 28
Left = 2880
TabIndex = 79
Top = 2265
Width = 975
End
Begin VB.OptionButton OptionZheSe
Caption = "方案28"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 27
Left = 2880
TabIndex = 78
Top = 2025
Width = 975
End
Begin VB.OptionButton OptionZheSe
Caption = "方案27"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 26
Left = 2880
TabIndex = 77
Top = 1785
Width = 975
End
Begin VB.OptionButton OptionZheSe
Caption = "方案26"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 25
Left = 2880
TabIndex = 76
Top = 1545
Width = 975
End
Begin VB.OptionButton OptionZheSe
Caption = "方案25"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 24
Left = 2880
TabIndex = 75
Top = 1305
Width = 975
End
Begin VB.OptionButton OptionZheSe
Caption = "方案24"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 23
Left = 1920
TabIndex = 74
Top = 2985
Width = 1100
End
Begin VB.OptionButton OptionZheSe
Caption = "方案23"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 22
Left = 1920
TabIndex = 73
Top = 2745
Width = 1100
End
Begin VB.OptionButton OptionZheSe
Caption = "方案22"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 21
Left = 1920
TabIndex = 72
Top = 2505
Width = 975
End
Begin VB.OptionButton OptionZheSe
Caption = "方案21"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 20
Left = 1920
TabIndex = 71
Top = 2265
Width = 975
End
Begin VB.OptionButton OptionZheSe
Caption = "方案20"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 19
Left = 1920
TabIndex = 70
Top = 2025
Width = 1100
End
Begin VB.OptionButton OptionZheSe
Caption = "方案19"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 18
Left = 1920
TabIndex = 69
Top = 1785
Width = 1100
End
Begin VB.OptionButton OptionZheSe
Caption = "方案18"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 17
Left = 1920
TabIndex = 68
Top = 1545
Width = 1100
End
Begin VB.OptionButton OptionZheSe
Caption = "方案17"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 16
Left = 1920
TabIndex = 67
Top = 1305
Width = 1100
End
Begin VB.OptionButton OptionZheSe
Caption = "方案16"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 15
Left = 960
TabIndex = 66
Top = 2985
Width = 1100
End
Begin VB.OptionButton OptionZheSe
Caption = "方案15"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 14
Left = 960
TabIndex = 65
Top = 2745
Width = 1100
End
Begin VB.OptionButton OptionZheSe
Caption = "方案14"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 13
Left = 960
TabIndex = 64
Top = 2505
Width = 1100
End
Begin VB.OptionButton OptionZheSe
Caption = "方案13"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 12
Left = 960
TabIndex = 63
Top = 2265
Width = 1100
End
Begin VB.OptionButton OptionZheSe
Caption = "方案12"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 11
Left = 960
TabIndex = 62
Top = 2025
Width = 1095
End
Begin VB.OptionButton OptionZheSe
Caption = "方案11"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 10
Left = 960
TabIndex = 61
Top = 1785
Width = 975
End
Begin VB.OptionButton OptionZheSe
Caption = "方案10"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 9
Left = 960
TabIndex = 60
Top = 1545
Width = 975
End
Begin VB.OptionButton OptionZheSe
Caption = "方案9"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 8
Left = 960
TabIndex = 59
Top = 1305
Width = 975
End
Begin VB.OptionButton OptionZheSe
Caption = "方案8"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 7
Left = 120
TabIndex = 58
Top = 2985
Width = 975
End
Begin VB.OptionButton OptionZheSe
Caption = "方案7"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 6
Left = 120
TabIndex = 57
Top = 2745
Width = 975
End
Begin VB.OptionButton OptionZheSe
Caption = "方案6"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 5
Left = 120
TabIndex = 56
Top = 2505
Width = 975
End
Begin VB.OptionButton OptionZheSe
Caption = "方案5"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 4
Left = 120
TabIndex = 55
Top = 2265
Width = 975
End
Begin VB.OptionButton OptionZheSe
Caption = "方案4"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 3
Left = 120
TabIndex = 54
Top = 2025
Width = 975
End
Begin VB.OptionButton OptionZheSe
Caption = "方案3"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 2
Left = 120
TabIndex = 53
Top = 1785
Width = 975
End
Begin VB.OptionButton OptionZheSe
Caption = "方案2"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 1
Left = 120
TabIndex = 52
Top = 1545
Width = 975
End
Begin VB.OptionButton OptionZheSe
Caption = "方案1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 0
Left = 120
TabIndex = 47
Top = 1290
Width = 855
End
Begin VB.Label Label27
Caption = "特效4:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 1980
TabIndex = 92
Top = 990
Width = 825
End
Begin VB.Label Label25
Caption = "特效3:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 105
TabIndex = 90
Top = 990
Width = 825
End
Begin VB.Label Label24
Caption = "特效2:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 1980
TabIndex = 88
Top = 660
Width = 825
End
Begin VB.Label Label20
Caption = "特效1:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 105
TabIndex = 86
Top = 660
Width = 825
End
Begin VB.Label Label26
BorderStyle = 1 'Fixed Single
Caption = " 着 色 方 案："
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 105
TabIndex = 84
Top = 225
Width = 3690
End
End
Begin VB.Frame Frame4
Height = 1050
Left = 105
TabIndex = 38
Top = 4170
Width = 3165
Begin VB.TextBox Text17
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 4830
TabIndex = 51
Text = "0"
Top = 855
Visible = 0 'False
Width = 1095
End
Begin VB.TextBox Text31
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 3315
TabIndex = 41
Text = "0"
Top = 855
Visible = 0 'False
Width = 1095
End
Begin VB.TextBox Text30
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 4830
TabIndex = 40
Text = "0"
Top = 495
Visible = 0 'False
Width = 1095
End
Begin VB.TextBox Text29
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 375
TabIndex = 39
Text = "0"
Top = 600
Width = 2670
End
Begin VB.Label Label19
Caption = "d:"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 4560
TabIndex = 50
Top = 945
Visible = 0 'False
Width = 285
End
Begin VB.Label Label23
Caption = "c:"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 3030
TabIndex = 45
Top = 945
Visible = 0 'False
Width = 285
End
Begin VB.Label Label18
Caption = "b:"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 4560
TabIndex = 44
Top = 585
Visible = 0 'False
Width = 285
End
Begin VB.Label Label22
BorderStyle = 1 'Fixed Single
Caption = " 颜 色 渐 变 参 数："
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 90
TabIndex = 43
Top = 180
Width = 2985
End
Begin VB.Label Label21
Caption = "a:"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 120
TabIndex = 42
Top = 645
Width = 375
End
End
Begin VB.Frame Frame3
Height = 1815
Left = 105
TabIndex = 14
Top = 2355
Width = 3165
Begin VB.HScrollBar HScroll3
Height = 240
Left = 1140
Max = 255
TabIndex = 83
Top = 1470
Width = 1245
End
Begin VB.HScrollBar HScroll2
Height = 240
Left = 1140
Max = 255
TabIndex = 82
Top = 1185
Width = 1245
End
Begin VB.HScrollBar HScroll1
Height = 240
Left = 1140
Max = 255
TabIndex = 81
Top = 900
Width = 1245
End
Begin VB.TextBox Text16
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2415
TabIndex = 22
Text = "0"
Top = 1470
Width = 660
End
Begin VB.TextBox Text15
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2415
TabIndex = 20
Text = "0"
Top = 1185
Width = 660
End
Begin VB.TextBox Text13
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2415
TabIndex = 18
Text = "0"
Top = 900
Width = 660
End
Begin VB.OptionButton Option3
Caption = "指定"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 180
TabIndex = 17
Top = 810
Value = -1 'True
Width = 735
End
Begin VB.OptionButton Option2
Caption = "随机"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 180
TabIndex = 16
Top = 540
Width = 1005
End
Begin VB.Label Label13
Caption = "(0-255)"
Height = 285
Left = 90
TabIndex = 24
Top = 1245
Width = 855
End
Begin VB.Label Label11
Caption = "B:"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 975
TabIndex = 23
Top = 1485
Width = 285
End
Begin VB.Label Label10
Caption = "G:"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 975
TabIndex = 21
Top = 1215
Width = 285
End
Begin VB.Label Label7
Caption = "R:"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 975
TabIndex = 19
Top = 945
Width = 285
End
Begin VB.Label Label5
BorderStyle = 1 'Fixed Single
Caption = " 调 色 参 数："
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 90
TabIndex = 15
Top = 180
Width = 2985
End
End
Begin VB.Frame Frame2
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1860
Left = 3390
TabIndex = 12
Top = 15
Width = 3915
Begin VB.TextBox Text24
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 2955
TabIndex = 36
Text = "5"
Top = 1425
Width = 495
End
Begin VB.TextBox Text23
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 1755
TabIndex = 35
Text = "5"
Top = 1425
Width = 495
End
Begin VB.TextBox Text22
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 4125
TabIndex = 34
Text = "5"
Top = 1125
Visible = 0 'False
Width = 825
End
Begin VB.TextBox Text21
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 555
TabIndex = 33
Text = "5"
Top = 1425
Width = 495
End
Begin VB.OptionButton Option1
Caption = "Z*(1+Z^A)/(1-Z^A)=R"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 165
TabIndex = 28
Top = 1110
Width = 2370
End
Begin VB.OptionButton Option5
Caption = "Z^3-1=0的特殊解法"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 165
TabIndex = 27
Top = 825
Value = -1 'True
Width = 2085
End
Begin VB.TextBox Text14
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1515
TabIndex = 26
Text = "5"
Top = 540
Width = 645
End
Begin VB.OptionButton Option4
Caption = "Z^N-1=0,N="
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 165
TabIndex = 25
Top = 555
Width = 1995
End
Begin VB.Label Label17
Caption = "N为整数>=2"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000001&
Height = 225
Left = 2310
TabIndex = 37
Top = 585
Width = 1125
End
Begin VB.Label Label16
Caption = "R虚部："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 2355
TabIndex = 32
Top = 1470
Width = 735
End
Begin VB.Label Label15
Caption = "R实部："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 1155
TabIndex = 31
Top = 1470
Width = 855
End
Begin VB.Label Label14
Caption = "C虚部："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 3525
TabIndex = 30
Top = 1065
Visible = 0 'False
Width = 735
End
Begin VB.Label Label12
Caption = "A："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 375
TabIndex = 29
Top = 1470
Width = 735
End
Begin VB.Label Label8
BorderStyle = 1 'Fixed Single
Caption = " 选 择 方 程："
ForeColor = &H80000006&
Height = 315
Left = 90
TabIndex = 13
Top = 180
Width = 3705
End
End
Begin VB.Frame Frame1
Height = 2355
Left = 105
TabIndex = 2
Top = 0
Width = 3165
Begin VB.TextBox Text1
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 570
TabIndex = 6
Text = "-2"
Top = 690
Width = 2355
End
Begin VB.TextBox Text2
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 570
TabIndex = 5
Text = "1.5"
Top = 1065
Width = 2355
End
Begin VB.TextBox Text3
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 570
TabIndex = 4
Text = "2"
Top = 1440
Width = 2355
End
Begin VB.TextBox Text4
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 570
TabIndex = 3
Text = "-1.5"
Top = 1815
Width = 2355
End
Begin VB.Shape Shape2
BorderStyle = 6 'Inside Solid
Height = 1590
Left = 120
Top = 615
Width = 2895
End
Begin VB.Label Label1
Caption = "x1:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 270
TabIndex = 11
Top = 765
Width = 765
End
Begin VB.Label Label2
Caption = "y1:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 270
TabIndex = 10
Top = 1140
Width = 765
End
Begin VB.Label Label3
Caption = "x2:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 270
TabIndex = 9
Top = 1515
Width = 915
End
Begin VB.Label Label4
Caption = "y2:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 270
TabIndex = 8
Top = 1815
Width = 915
End
Begin VB.Label Label6
BorderStyle = 1 'Fixed Single
Caption = " 右上角和左下角坐标值："
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 90
TabIndex = 7
Top = 180
Width = 2985
End
End
Begin VB.CommandButton Command2
Cancel = -1 'True
Caption = "取消(&C)"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5625
TabIndex = 1
Top = 5400
Width = 1095
End
Begin VB.CommandButton Command1
Caption = "确定(&K)"
Default = -1 'True
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4125
TabIndex = 0
Top = 5400
Width = 1095
End
End
Attribute VB_Name = "frmCtrl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command1_Click()
'确认参数设置
Dim i As Long
On Error GoTo aaa:
PSeData = 0
Call SeDataIN
SeData(0, 0) = 1
SeData(0, 1) = Val(Me.Text1.Text)
SeData(0, 2) = Val(Me.Text2.Text)
SeData(0, 3) = Val(Me.Text3.Text)
SeData(0, 4) = Val(Me.Text4.Text)
If Me.Option2.Value = True Then
SeData(0, 5) = 1
Else
SeData(0, 5) = 0
End If
SeData(0, 6) = Val(Me.Text13.Text)
SeData(0, 7) = Val(Me.Text15.Text)
SeData(0, 8) = Val(Me.Text16.Text)
SeData(0, 9) = Val(Me.Text29.Text)
SeData(0, 10) = Val(Me.Text30.Text)
SeData(0, 11) = Val(Me.Text31.Text)
SeData(0, 12) = Val(Me.Text17.Text)
If Me.Option4.Value = True Then
SeData(0, 13) = 1
ElseIf Me.Option5.Value = True Then
SeData(0, 13) = 2
ElseIf Me.Option1.Value = True Then
SeData(0, 13) = 3
End If
SeData(0, 14) = Val(Me.Text14.Text)
SeData(0, 15) = Val(Me.Text21.Text)
'SeData(0, 16) = Val(Me.Text22.Text)
SeData(0, 16) = Val(Me.Combo1.ListIndex) * 1 _
+ Val(Me.Combo2.ListIndex) * 100 _
+ Val(Me.Combo3.ListIndex) * 10000 _
+ Val(Me.Combo4.ListIndex) * 1000000
SeData(0, 17) = Val(Me.Text23.Text)
SeData(0, 18) = Val(Me.Text24.Text)
For i = 0 To 31
If Me.OptionZheSe(i).Value = True Then SeData(0, 19) = i
Next i
'===
frmCtrl.Hide
DoEvents
Call frmMain.Command1_Click
DoEvents
Exit Sub
aaa:
Call SeDataOUT
End Sub
Private Sub Command2_Click()
'取消参数设置
frmCtrl.Hide
End Sub
Private Sub Command3_Click()
'一窗口显示为准保存设置好的参数，保存为 *.HTXT 文件
Dim x1 As Double, i As Long
CommonDialogSave.fileName = ""
CommonDialogSave.ShowSave
If Me.CommonDialogSave.fileName = "" Then Exit Sub
If (Dir(CommonDialogSave.fileName)) <> "" Then
If MsgBox(" 文件已经存在，要覆盖吗？ ", vbOKCancel, "文件重名") <> vbOK Then Exit Sub
End If
SeData(-1, 0) = 1
SeData(-1, 1) = Val(Me.Text1.Text) '坐标 X1
SeData(-1, 2) = Val(Me.Text2.Text) '坐标 X1
SeData(-1, 3) = Val(Me.Text3.Text) '坐标 X1
SeData(-1, 4) = Val(Me.Text4.Text)
'If Me.Option2.Value = True Then
' SeData(-1, 5) = 1
'Else
SeData(-1, 5) = 0
'End If
SeData(-1, 6) = Val(Me.Text13.Text)
SeData(-1, 7) = Val(Me.Text15.Text)
SeData(-1, 8) = Val(Me.Text16.Text)
SeData(-1, 9) = Val(Me.Text29.Text)
SeData(-1, 10) = Val(Me.Text30.Text)
SeData(-1, 11) = Val(Me.Text31.Text)
SeData(-1, 12) = Val(Me.Text17.Text)
If Me.Option4.Value = True Then
SeData(-1, 13) = 1
ElseIf Me.Option5.Value = True Then
SeData(-1, 13) = 2
ElseIf Me.Option1.Value = True Then
SeData(-1, 13) = 3
End If
SeData(-1, 14) = Val(Me.Text14.Text)
SeData(-1, 15) = Val(Me.Text21.Text)
'SeData(-1, 16) = Val(Me.Text22.Text)
SeData(-1, 16) = Val(Me.Combo1.ListIndex) * 1 _
+ Val(Me.Combo2.ListIndex) * 100 _
+ Val(Me.Combo3.ListIndex) * 10000 _
+ Val(Me.Combo4.ListIndex) * 1000000
SeData(-1, 17) = Val(Me.Text23.Text)
SeData(-1, 18) = Val(Me.Text24.Text)
For i = 0 To 29
If Me.OptionZheSe(i).Value = True Then SeData(-1, 19) = i
Next i
On Error GoTo aaa:
Open CommonDialogSave.fileName For Output As #1
For i = 0 To 19
Write #1, SeData(-1, i)
Next i
Close #1
Exit Sub
aaa:
Close #1
MsgBox " 保存文件时出错 (或者其它错误) ！ ", vbOKOnly, " 错误"
End Sub
Public Sub Command4_Click()
'载入参数文件并显示
Dim x1 As Double, i As Long
On Error GoTo aaa:
CommonDialogOpen.fileName = ""
CommonDialogOpen.ShowOpen
If Me.CommonDialogOpen.fileName = "" Then Exit Sub
Open CommonDialogOpen.fileName For Input As #1
For i = 0 To 19
Input #1, x1
SeData(-1, i) = x1
Next i
Close #1
Me.Text1.Text = Str(SeData(-1, 1))
Me.Text2.Text = Str(SeData(-1, 2))
Me.Text3.Text = Str(SeData(-1, 3))
Me.Text4.Text = Str(SeData(-1, 4))
'If SeData(-1, 5) = 1 Then
' Me.Option2.Value = True
'Else
Me.Option3.Value = True
'End If
Me.Text13.Text = Str(SeData(-1, 6))
Me.Text15.Text = Str(SeData(-1, 7))
Me.Text16.Text = Str(SeData(-1, 8))
Me.Text29.Text = Str(SeData(-1, 9))
Me.Text30.Text = Str(SeData(-1, 10))
Me.Text31.Text = Str(SeData(-1, 11))
Me.Text17.Text = Str(SeData(-1, 12))
If SeData(-1, 13) = 1 Then
Me.Option4.Value = True
ElseIf SeData(-1, 13) = 2 Then
Me.Option5.Value = True
ElseIf SeData(-1, 13) = 3 Then
Me.Option1.Value = True
End If
Me.Text14.Text = Str(SeData(-1, 14))
Me.Text21.Text = Str(SeData(-1, 15))
'Me.Text22.Text = Str(SeData(-1, 16))
Me.Combo1.ListIndex = Int(SeData(-1, 16) / 1) Mod 100#
Me.Combo2.ListIndex = Int(SeData(-1, 16) / 100) Mod 100#
Me.Combo3.ListIndex = Int(SeData(-1, 16) / 10000) Mod 100#
Me.Combo4.ListIndex = Int(SeData(-1, 16) / 1000000) Mod 100#
Me.Text23.Text = Str(SeData(-1, 17))
Me.Text24.Text = Str(SeData(-1, 18))
Me.OptionZheSe(SeData(-1, 19)).Value = True
Exit Sub
aaa:
Close #1
MsgBox " 打开文件时出错 (或者其它错误) ！ ", vbOKOnly, " 错误"
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'用户按Enter键时的处理
If KeyCode = 13 Then
Call Command1_Click
End If
End Sub
Private Sub HScroll1_Change()
If Me.HScroll1.Value <> Val(Me.Text13.Text) Then
Me.Text13.Text = Str(Me.HScroll1.Value)
End If
End Sub
Private Sub HScroll1_Scroll()
If Me.HScroll1.Value <> Val(Me.Text13.Text) Then
Me.Text13.Text = Str(Me.HScroll1.Value)
End If
End Sub
Private Sub HScroll2_Change()
If Me.HScroll2.Value <> Val(Me.Text15.Text) Then
Me.Text15.Text = Str(Me.HScroll2.Value)
End If
End Sub
Private Sub HScroll2_Scroll()
If Me.HScroll2.Value <> Val(Me.Text15.Text) Then
Me.Text15.Text = Str(Me.HScroll2.Value)
End If
End Sub
Private Sub HScroll3_Change()
If Me.HScroll3.Value <> Val(Me.Text16.Text) Then
Me.Text16.Text = Str(Me.HScroll3.Value)
End If
End Sub
Private Sub HScroll3_Scroll()
If Me.HScroll3.Value <> Val(Me.Text16.Text) Then
Me.Text16.Text = Str(Me.HScroll3.Value)
End If
End Sub
Private Sub Option1_Click()
'界面处理
Me.Text14.Enabled = False
Me.Text21.Enabled = True
Me.Text23.Enabled = True
Me.Text24.Enabled = True
Me.Label12.Enabled = True
Me.Label15.Enabled = True
Me.Label16.Enabled = True
End Sub
Private Sub Option2_Click()
'界面处理
Me.HScroll1.Enabled = False
Me.HScroll2.Enabled = False
Me.HScroll3.Enabled = False
Me.Text13.Enabled = False
Me.Text15.Enabled = False
Me.Text16.Enabled = False
End Sub
Private Sub Option3_Click()
'界面处理
Me.HScroll1.Enabled = True
Me.HScroll2.Enabled = True
Me.HScroll3.Enabled = True
Me.Text13.Enabled = True
Me.Text15.Enabled = True
Me.Text16.Enabled = True
End Sub
Private Sub Option4_Click()
'界面处理
Me.Text14.Enabled = True
Me.Text21.Enabled = False
Me.Text23.Enabled = False
Me.Text24.Enabled = False
Me.Label12.Enabled = False
Me.Label15.Enabled = False
Me.Label16.Enabled = False
End Sub
Private Sub Option5_Click()
'界面处理
Me.Text14.Enabled = False
Me.Text21.Enabled = False
Me.Text23.Enabled = False
Me.Text24.Enabled = False
Me.Label12.Enabled = False
Me.Label15.Enabled = False
Me.Label16.Enabled = False
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 45, 46, 68, 69, 100, 101, 8
Exit Sub
End Select
If KeyAscii > 47 And KeyAscii < 58 Then Exit Sub
KeyAscii = 0
End Sub
Private Sub Text1_GotFocus()
Me.Text1.SelStart = 0
Me.Text1.SelLength = Len(Me.Text1.Text)
End Sub
Private Sub Text13_GotFocus()
Me.Text13.SelStart = 0
Me.Text13.SelLength = Len(Me.Text13.Text)
End Sub
Private Sub Text15_GotFocus()
Me.Text15.SelStart = 0
Me.Text15.SelLength = Len(Me.Text15.Text)
End Sub
Private Sub Text16_GotFocus()
Me.Text16.SelStart = 0
Me.Text16.SelLength = Len(Me.Text16.Text)
End Sub
Private Sub Text2_GotFocus()
Me.Text2.SelStart = 0
Me.Text2.SelLength = Len(Me.Text2.Text)
End Sub
Private Sub Text3_GotFocus()
Me.Text3.SelStart = 0
Me.Text3.SelLength = Len(Me.Text3.Text)
End Sub
Private Sub Text4_GotFocus()
Me.Text4.SelStart = 0
Me.Text4.SelLength = Len(Me.Text4.Text)
End Sub
Private Sub Text13_Change()
On Error GoTo aaa:
If Me.HScroll1.Value <> Val(Me.Text13.Text) Then
Me.HScroll1.Value = Val(Me.Text13.Text)
End If
Exit Sub
aaa:
Me.Text13.Text = "0"
End Sub
Private Sub Text14_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 45, 46, 68, 69, 100, 101, 8
Exit Sub
End Select
If KeyAscii > 47 And KeyAscii < 58 Then Exit Sub
KeyAscii = 0
End Sub
Private Sub Text14_GotFocus()
Me.Text14.SelStart = 0
Me.Text14.SelLength = Len(Me.Text14.Text)
End Sub
Private Sub Text13_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 45, 46, 68, 69, 100, 101, 8
Exit Sub
End Select
If KeyAscii > 47 And KeyAscii < 58 Then Exit Sub
KeyAscii = 0
End Sub
Private Sub Text15_Change()
On Error GoTo aaa:
If Me.HScroll2.Value <> Val(Me.Text15.Text) Then
Me.HScroll2.Value = Val(Me.Text15.Text)
End If
Exit Sub
aaa:
Me.Text15.Text = "0"
End Sub
Private Sub Text15_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 45, 46, 68, 69, 100, 101, 8
Exit Sub
End Select
If KeyAscii > 47 And KeyAscii < 58 Then Exit Sub
KeyAscii = 0
End Sub
Private Sub Text16_Change()
On Error GoTo aaa:
If Me.HScroll3.Value <> Val(Me.Text16.Text) Then
Me.HScroll3.Value = Val(Me.Text16.Text)
End If
Exit Sub
aaa:
Me.Text16.Text = "0"
End Sub
Private Sub Text16_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 45, 46, 68, 69, 100, 101, 8
Exit Sub
End Select
If KeyAscii > 47 And KeyAscii < 58 Then Exit Sub
KeyAscii = 0
End Sub
Private Sub Text21_GotFocus()
Me.Text21.SelStart = 0
Me.Text21.SelLength = Len(Me.Text21.Text)
End Sub
Private Sub Text22_GotFocus()
Me.Text22.SelStart = 0
Me.Text22.SelLength = Len(Me.Text22.Text)
End Sub
Private Sub Text23_GotFocus()
Me.Text23.SelStart = 0
Me.Text23.SelLength = Len(Me.Text23.Text)
End Sub
Private Sub Text24_GotFocus()
Me.Text24.SelStart = 0
Me.Text24.SelLength = Len(Me.Text24.Text)
End Sub
Private Sub Text21_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 45, 46, 68, 69, 100, 101, 8
Exit Sub
End Select
If KeyAscii > 47 And KeyAscii < 58 Then Exit Sub
KeyAscii = 0
End Sub
Private Sub Text22_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 45, 46, 68, 69, 100, 101, 8
Exit Sub
End Select
If KeyAscii > 47 And KeyAscii < 58 Then Exit Sub
KeyAscii = 0
End Sub
Private Sub Text23_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 45, 46, 68, 69, 100, 101, 8
Exit Sub
End Select
If KeyAscii > 47 And KeyAscii < 58 Then Exit Sub
KeyAscii = 0
End Sub
Private Sub Text24_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 45, 46, 68, 69, 100, 101, 8
Exit Sub
End Select
If KeyAscii > 47 And KeyAscii < 58 Then Exit Sub
KeyAscii = 0
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 45, 46, 68, 69, 100, 101, 8
Exit Sub
End Select
If KeyAscii > 47 And KeyAscii < 58 Then Exit Sub
KeyAscii = 0
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 45, 46, 68, 69, 100, 101, 8
Exit Sub
End Select
If KeyAscii > 47 And KeyAscii < 58 Then Exit Sub
KeyAscii = 0
End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 45, 46, 68, 69, 100, 101, 8
Exit Sub
End Select
If KeyAscii > 47 And KeyAscii < 58 Then Exit Sub
KeyAscii = 0
End Sub
'=======================================================