📄 form1.frm
字号:
VERSION 5.00
Begin VB.Form Form1
BackColor = &H80000007&
BorderStyle = 0 'None
Caption = "tion1."
ClientHeight = 11010
ClientLeft = 3735
ClientTop = 390
ClientWidth = 15360
DrawWidth = 2
Icon = "Form1.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "Form1.frx":08CA
ScaleHeight = 11010
ScaleWidth = 15360
ShowInTaskbar = 0 'False
WindowState = 2 'Maximized
Begin VB.CommandButton Command3
Caption = "重做"
Height = 615
Left = 10080
TabIndex = 4
Top = 2880
Width = 2055
End
Begin VB.CommandButton Command2
Caption = "下一步"
Height = 615
Left = 10080
TabIndex = 3
Top = 4800
Width = 2055
End
Begin VB.OptionButton Option2
Caption = "无"
Height = 375
Left = 11280
TabIndex = 2
Top = 3960
Value = -1 'True
Width = 615
End
Begin VB.OptionButton Option1
Caption = "有"
Height = 375
Left = 10200
TabIndex = 1
Top = 3960
Width = 615
End
Begin VB.Timer Timer1
Interval = 500
Left = 0
Top = 1560
End
Begin VB.CommandButton Command1
Caption = "结束"
Height = 615
Left = 10080
TabIndex = 0
Top = 5760
Width = 2055
End
Begin VB.Label Label5
BackColor = &H80000008&
Caption = "广东韶关学院徐永群设计"
BeginProperty Font
Name = "新宋体-18030"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 375
Left = 10680
TabIndex = 9
Top = 10920
Width = 3855
End
Begin VB.Shape Shape1
BorderColor = &H80000009&
BorderWidth = 2
Height = 4095
Left = 9840
Top = 2640
Width = 2535
End
Begin VB.Label Label4
BackColor = &H80000012&
Caption = "分子点群判断程序"
BeginProperty Font
Name = "华文行楷"
Size = 36
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 7575
Left = 13800
TabIndex = 8
Top = 1920
Width = 735
End
Begin VB.Label Label3
BackColor = &H80000012&
Caption = "低对称性群"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 495
Left = 9240
TabIndex = 7
Top = 840
Width = 1935
End
Begin VB.Line Line3
BorderColor = &H8000000E&
BorderWidth = 2
X1 = 8760
X2 = 9120
Y1 = 360
Y2 = 360
End
Begin VB.Line Line2
BorderColor = &H8000000E&
BorderWidth = 2
X1 = 9120
X2 = 9120
Y1 = 1680
Y2 = 360
End
Begin VB.Line Line1
BorderColor = &H80000009&
BorderWidth = 2
X1 = 8760
X2 = 9120
Y1 = 1680
Y2 = 1680
End
Begin VB.Label Label2
BackColor = &H80000012&
Caption = "正八面体"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 375
Left = 9000
TabIndex = 6
Top = 9720
Width = 1455
End
Begin VB.Label Label1
BackColor = &H80000012&
Caption = "正四面体"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 375
Left = 9000
TabIndex = 5
Top = 7800
Width = 1455
End
Begin VB.Image Image1
Height = 75
Left = 1320
Picture = "Form1.frx":146D0C
Top = 480
Width = 75
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim n As Integer
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
Select Case n
Case 1
Image1.Left = 1305: Image1.Top = 480
n = 21
Case 21
If Option1.Value = True Then n = 13
If Option1.Value = False Then n = 2
Case 2
Image1.Left = 3075: Image1.Top = 570
n = 22
Case 22
If Option1.Value = True Then n = 5
If Option1.Value = False Then n = 3
Case 3
Image1.Left = 4740: Image1.Top = 480
n = 33
Case 33
If Option1.Value = True Then Image1.Left = 8250: Image1.Top = 1680
If Option1.Value = False Then n = 4
Case 4
Image1.Left = 6255: Image1.Top = 435
n = 44
Case 44
If Option1.Value = True Then Image1.Left = 8100: Image1.Top = 1050
If Option1.Value = False Then Image1.Left = 8010: Image1.Top = 450
Case 5
Image1.Left = 3060: Image1.Top = 2345
n = 55
Case 55
If Option1.Value = True Then n = 11
If Option1.Value = False Then n = 6
Case 6
Image1.Left = 4305: Image1.Top = 2310
n = 66
Case 66
If Option1.Value = True Then n = 9
If Option1.Value = False Then n = 7
Case 7
Image1.Left = 5520: Image1.Top = 2265
n = 77
Case 77
If Option1.Value = True Then Image1.Left = 8445: Image1.Top = 3570
If Option1.Value = False Then n = 8
Case 8
Image1.Left = 6840: Image1.Top = 2205
n = 88
Case 88
If Option1.Value = True Then Image1.Left = 8235: Image1.Top = 2880
If Option1.Value = False Then Image1.Left = 8160: Image1.Top = 2220
Case 9
Image1.Left = 4530: Image1.Top = 4095
n = 99
Case 99
If Option1.Value = True Then Image1.Left = 8415: Image1.Top = 4185
If Option1.Value = False Then Image1.Left = 8265: Image1.Top = 4815
Case 11
Image1.Left = 3165: Image1.Top = 5520
n = 111
Case 111
If Option1.Value = True Then Image1.Left = 8460: Image1.Top = 6720
If Option1.Value = False Then n = 12
Case 12
Image1.Left = 6075: Image1.Top = 5400
n = 112
Case 112
If Option1.Value = True Then Image1.Left = 8445: Image1.Top = 6060
If Option1.Value = False Then Image1.Left = 8370: Image1.Top = 5430
Case 13
Image1.Left = 1260: Image1.Top = 6870
n = 113
Case 113
If Option1.Value = True Then n = 19
If Option1.Value = False Then n = 14
Case 14
Image1.Left = 2790: Image1.Top = 6825
n = 114
Case 114
If Option1.Value = True Then n = 18
If Option1.Value = False Then n = 15
Case 15
Image1.Left = 4545: Image1.Top = 6780
If Option1.Value = True Then n = 16
If Option1.Value = False Then n = 15
Case 16
Image1.Left = 5685: Image1.Top = 7350
n = 116
Case 116
If Option1.Value = True Then Image1.Left = 8430: Image1.Top = 8580
If Option1.Value = False Then n = 17
Case 17
Image1.Left = 7035: Image1.Top = 7350
n = 117
Case 117
If Option1.Value = True Then Image1.Left = 8430: Image1.Top = 7965
If Option1.Value = False Then Image1.Left = 8280: Image1.Top = 7335
Case 18
Image1.Left = 2925: Image1.Top = 9240
n = 118
Case 118
If Option1.Value = True Then Image1.Left = 8400: Image1.Top = 9930
If Option1.Value = False Then Image1.Left = 8295: Image1.Top = 9240
Case 19
Image1.Left = 1320: Image1.Top = 10650
n = 119
Case 119
If Option1.Value = True Then Image1.Left = 8370: Image1.Top = 11235
If Option1.Value = False Then Image1.Left = 8280: Image1.Top = 10590
End Select
End Sub
Private Sub Command3_Click()
n = 1
Image1.Left = 1305: Image1.Top = 480
End Sub
Private Sub Form_Load()
n = 1
End Sub
Static Sub Timer1_Timer()
i = i + 1: If i > 1 Then i = 0
If i = 0 Then Image1.Visible = False
If i = 1 Then Image1.Visible = True
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -