📄 frmmain.frm
字号:
VERSION 5.00
Begin VB.Form frmMain
Caption = "GeoCalculator"
ClientHeight = 8145
ClientLeft = 165
ClientTop = 855
ClientWidth = 12075
LinkTopic = "Form1"
ScaleHeight = 8145
ScaleWidth = 12075
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton Command1
Caption = "Calculate"
DownPicture = "frmMain.frx":0000
DragMode = 1 'Automatic
Height = 1575
Left = 8760
Style = 1 'Graphical
TabIndex = 26
ToolTipText = "Click me to find your answers"
Top = 6360
Width = 2655
End
Begin VB.Frame fraCoor
Caption = "Coordinate Geometry"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2175
Left = 240
TabIndex = 9
Top = 3000
Width = 3375
Begin VB.TextBox txtY2
Height = 285
Left = 1200
TabIndex = 18
Top = 720
Width = 495
End
Begin VB.TextBox txtX2
Height = 285
Left = 360
TabIndex = 17
Top = 720
Width = 495
End
Begin VB.TextBox txtY1
Height = 285
Left = 1200
TabIndex = 14
Top = 360
Width = 495
End
Begin VB.TextBox txtX1
Height = 285
Left = 360
TabIndex = 12
Top = 360
Width = 495
End
Begin VB.Label lblC4
Height = 255
Left = 960
TabIndex = 25
Top = 1800
Width = 2175
End
Begin VB.Label Label10
Caption = "Slope:"
Height = 255
Left = 240
TabIndex = 24
Top = 1800
Width = 975
End
Begin VB.Label lblC3
Height = 255
Left = 2280
TabIndex = 23
Top = 1440
Width = 495
End
Begin VB.Label Label9
Alignment = 2 'Center
Caption = ","
Height = 255
Left = 2040
TabIndex = 22
Top = 1440
Width = 135
End
Begin VB.Label lblC2
Alignment = 1 'Right Justify
Height = 255
Left = 1440
TabIndex = 21
Top = 1440
Width = 495
End
Begin VB.Label Label8
Caption = "Midpoint:"
Height = 255
Left = 240
TabIndex = 20
Top = 1440
Width = 975
End
Begin VB.Label lblC1
Height = 255
Left = 1320
TabIndex = 19
Top = 1080
Width = 1935
End
Begin VB.Label Label7
Caption = "Y:"
Height = 255
Left = 960
TabIndex = 16
Top = 720
Width = 135
End
Begin VB.Label Label6
Caption = "X:"
Height = 255
Left = 120
TabIndex = 15
Top = 720
Width = 135
End
Begin VB.Label Label5
Caption = "Y:"
Height = 255
Left = 960
TabIndex = 13
Top = 360
Width = 135
End
Begin VB.Label Label4
Caption = "X:"
Height = 255
Left = 120
TabIndex = 11
Top = 360
Width = 135
End
Begin VB.Label Label3
Caption = "Distance:"
Height = 255
Left = 240
TabIndex = 10
Top = 1080
Width = 975
End
End
Begin VB.Frame fraAngles
Caption = "Angles"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2415
Left = 240
TabIndex = 0
Top = 360
Width = 3375
Begin VB.TextBox txtN
Height = 285
Left = 1320
TabIndex = 2
Top = 360
Width = 615
End
Begin VB.Label lblA3
Height = 255
Left = 2880
TabIndex = 8
Top = 1800
Width = 375
End
Begin VB.Label Label2
Caption = "Measure or each exterior angle of a n-gon:"
Height = 495
Left = 240
TabIndex = 7
Top = 1800
Width = 2535
End
Begin VB.Label lblA2
Height = 255
Left = 2880
TabIndex = 6
Top = 1320
Width = 375
End
Begin VB.Label Label1
Caption = "Measure of each interior angle in a n-gon:"
Height = 495
Left = 240
TabIndex = 5
Top = 1200
Width = 2535
End
Begin VB.Label lblA1
Height = 255
Left = 2880
TabIndex = 4
Top = 840
Width = 375
End
Begin VB.Label lbl2
Caption = "Sum of the interior angles in a n-gon:"
Height = 255
Left = 240
TabIndex = 3
Top = 840
Width = 2775
End
Begin VB.Label lbl1
Caption = "Number of sides:"
Height = 255
Left = 120
TabIndex = 1
Top = 360
Width = 1215
End
End
Begin VB.Menu mnuFile
Caption = "&File"
Begin VB.Menu mnuFileClear
Caption = "&Clear"
End
Begin VB.Menu mnuFileExit
Caption = "E&xit"
End
End
Begin VB.Menu mnuCalc
Caption = "Calcula&tors"
Begin VB.Menu mnuNormal
Caption = "&Normal Mode"
End
Begin VB.Menu mnuTriangle
Caption = "Trian&gle Solver"
End
End
Begin VB.Menu mnuView
Caption = "&View"
Begin VB.Menu mnuViewOptions
Caption = "&Options"
End
End
Begin VB.Menu mnuHelp
Caption = "&Help"
Begin VB.Menu mnuHelpContents
Caption = "Co&ntents"
End
Begin VB.Menu mnuHelpAbout
Caption = "&About"
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub mnuFileExit_Click()
Unload Me
Unload frmSplash
End Sub
Private Sub mnuHelpAbout_Click()
Load frmAbout
frmAbout.Show vbModal
End Sub
Private Sub mnuViewOptions_Click()
Load frmOptions
frmOptions.Show vbModal
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -