📄 fscensel.frm
字号:
VERSION 5.00
Begin VB.Form fScenSel
BackColor = &H00000000&
BorderStyle = 1 'Fixed Single
Caption = "Scenario.Initialize(Step 1:General Infomation)"
ClientHeight = 4800
ClientLeft = 45
ClientTop = 330
ClientWidth = 6000
ControlBox = 0 'False
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "fScenSel.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 320
ScaleMode = 3 'Pixel
ScaleWidth = 400
StartUpPosition = 3 'Windows Default
Begin VB.CheckBox chk
BackColor = &H00000000&
Caption = "开启Help栏"
ForeColor = &H000000FF&
Height = 255
Left = 360
TabIndex = 10
Top = 4320
Value = 1 'Checked
Width = 1695
End
Begin VB.ComboBox cmb
BackColor = &H00E0E0E0&
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 300
Index = 3
Left = 4080
TabIndex = 9
Text = "Combo1"
Top = 1800
Visible = 0 'False
Width = 720
End
Begin VB.ComboBox cmb
BackColor = &H00E0E0E0&
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 300
Index = 2
Left = 3240
TabIndex = 6
Text = "Combo1"
Top = 1800
Visible = 0 'False
Width = 720
End
Begin VB.ComboBox cmb
BackColor = &H00E0E0E0&
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 300
Index = 1
Left = 1320
TabIndex = 5
Text = "Combo1"
Top = 1800
Visible = 0 'False
Width = 960
End
Begin VB.ComboBox cmb
BackColor = &H00E0E0E0&
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 300
Index = 0
ItemData = "fScenSel.frx":000C
Left = 240
List = "fScenSel.frx":0016
Style = 2 'Dropdown List
TabIndex = 4
Top = 1800
Visible = 0 'False
Width = 960
End
Begin VB.CommandButton cmd
Caption = "Next->"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 1
Left = 4320
TabIndex = 1
Top = 4320
Width = 1095
End
Begin VB.CommandButton cmd
Caption = "<-Back"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 0
Left = 3120
TabIndex = 0
Top = 4320
Width = 1095
End
Begin VB.Label lbl
BackStyle = 0 'Transparent
Caption = $"fScenSel.frx":002E
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 1815
Index = 2
Left = 120
TabIndex = 8
Top = 2280
Visible = 0 'False
Width = 5775
End
Begin VB.Label lbl
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "帮助"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 240
Index = 1
Left = 2730
TabIndex = 7
Top = 1920
Visible = 0 'False
Width = 555
End
Begin VB.Line Ln
BorderColor = &H0000FFFF&
BorderWidth = 3
Index = 1
X1 = 0
X2 = 400
Y1 = 120
Y2 = 120
End
Begin VB.Shape shp
BorderColor = &H000000FF&
BorderWidth = 2
Height = 240
Left = 2760
Top = 1440
Visible = 0 'False
Width = 960
End
Begin VB.Line lU
BorderColor = &H0000FFFF&
Index = 3
X1 = 184
X2 = 272
Y1 = 112
Y2 = 112
End
Begin VB.Line lU
BorderColor = &H0000FFFF&
Index = 2
X1 = 216
X2 = 264
Y1 = 64
Y2 = 64
End
Begin VB.Line lU
BorderColor = &H0000FFFF&
Index = 1
X1 = 88
X2 = 152
Y1 = 64
Y2 = 64
End
Begin VB.Line lU
BorderColor = &H0000FFFF&
Index = 0
X1 = 16
X2 = 80
Y1 = 64
Y2 = 64
End
Begin VB.Line Ln
BorderColor = &H0000FFFF&
BorderWidth = 3
Index = 0
X1 = 0
X2 = 400
Y1 = 280
Y2 = 280
End
Begin VB.Label lbl
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "游戏背景"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 375
Index = 0
Left = 120
TabIndex = 3
Top = 120
Width = 5775
End
Begin VB.Label lblT
BackStyle = 0 'Transparent
Caption = $"fScenSel.frx":0234
ForeColor = &H00FFFFFF&
Height = 1320
Left = 0
TabIndex = 2
Top = 480
Width = 6000
WordWrap = -1 'True
End
End
Attribute VB_Name = "fScenSel"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Wid(0 To 3) As Integer
Dim Sel(0 To 3) As Boolean
Dim i As Integer
Private Sub chk_Click()
If chk.Value = 1 Then Call HelpSwitch(True) Else Call HelpSwitch(False)
End Sub
Private Sub cmb_Click(Index As Integer)
Sel(Index) = False
cmb(Index).Visible = False
Select Case Index
Case 0
Call FillCap
Case 1
gameData.nameSchool = cmb(1).Text
Call Init
Case 2
gameData.namePresident = cmb(2).Text
Call Init
Case 3
gameData.nameFile = Left(cmb(3).Text, InStr(1, cmb(3).Text, ".") - 1)
Call Init
End Select
End Sub
Private Sub cmb_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii < 0 Then Exit Sub
If (KeyAscii - 13) * (KeyAscii - 27) <> 0 Then Exit Sub
If KeyAscii = 13 Then
If Len(cmb(i).Text) > 4 Then
Beep
Exit Sub
End If
Select Case Index
Case 1
cmb(1).Text = LeftB(cmb(1).Text, 12)
gameData.nameSchool = cmb(1).Text
Call Init
Case 2
cmb(2).Text = LeftB(cmb(2).Text, 8)
gameData.namePresident = cmb(2).Text
Call Init
Case 3
If InStr(1, cmb(3).Text, ".") > 0 Then
cmb(3).Text = LeftB(Left(cmb(3).Text, InStr(1, cmb(3).Text, ".") - 1), 20)
End If
gameData.nameFile = cmb(3).Text
cmb(3).Text = cmb(3).Text & ".wyf"
Call Init
End Select
End If
Sel(Index) = False
cmb(Index).Visible = False
End Sub
Private Sub cmd_Click(Index As Integer)
Select Case Index
Case 0
Unload Me
fMenu.Show
Case 1
If cmb(0).ListIndex = 0 Then
gameData.gnrDay = 100
gameData.scChinese = 90
gameData.scEnglish = 90
gameData.scMaths = 90
gameData.scScience = 180
gameData.scPE = 100
Unload Me
fRule.Show
Else
IsLoad = True
Unload Me
fLoad.Show
End If
End Select
End Sub
Private Sub Form_Click()
For i = 1 To 3
Call cmb_KeyPress(i, 27)
Next
i = 0
End Sub
Private Sub Form_Load()
If chk.Value = 1 Then Call HelpSwitch(True) Else Call HelpSwitch(False)
gameData.nameSchool = "嘉兴一中"
gameData.namePresident = "吴颖生"
gameData.nameFile = "Deafult"
cmb(0).ListIndex = 0
cmb(1).Text = "嘉兴一中"
cmb(2).Text = "吴颖生"
cmb(3).Text = "Default.wyf"
Call Init
End Sub
Public Sub Init()
Call FillCap
Wid(0) = 64
Wid(1) = Me.TextWidth(STrim(gameData.nameSchool))
Wid(2) = Me.TextWidth(STrim(gameData.namePresident))
Wid(3) = Me.TextWidth(STrim(gameData.nameFile)) + 32
lU(0).X1 = lblT.Left + 16
lU(0).X2 = lU(0).X1 + Wid(0)
lU(1).X1 = lU(0).X2 + 8
lU(1).X2 = lU(1).X1 + Wid(1)
lU(2).X1 = lU(1).X2 + 64
lU(2).X2 = lU(2).X1 + Wid(2)
lU(3).X1 = lblT.Left + 184
lU(3).X2 = lU(3).X1 + Wid(3)
For i = 0 To 2
lU(i).Y1 = lblT.Top + 32
lU(i).Y2 = lU(i).Y1
Next
lU(3).Y1 = lblT.Top + 80
lU(3).Y2 = lU(3).Y1
For i = 0 To 3
cmb(i).Move lU(i).X1 - 2, lU(i).Y1 - 19, Wid(i) * 1.05 + 24
Next
i = 0
End Sub
Public Sub FillCap()
lblT.Caption = " 已经是高考冲刺阶段了！" & RL & _
" " & cmb(0).Text & " " & STrim(gameData.nameSchool) & " 在校长 " & STrim(gameData.namePresident) & " 的领导下，" & RL & _
"全体教师抓住最后的时间，共同努力，将学生培养成高性能的应试机器。" & RL & _
" 他们的业绩，将被载入 " & STrim(gameData.nameFile) & ".wyf 史册中。"
End Sub
Private Sub lbl_Click(Index As Integer)
For i = 1 To 3
Call cmb_KeyPress(i, 27)
Next
i = 0
End Sub
Private Sub lblT_Click()
For i = 0 To 3
cmb(i).Visible = False
If Sel(i) = True Then
cmb(i).Visible = True
If (i = 3) And (InStr(1, cmb(3).Text, ".") - 1 > 0) Then cmb(3).Text = Left(cmb(3).Text, InStr(1, cmb(3).Text, ".") - 1)
cmb(i).SetFocus
Else
If i > 0 Then Call cmb_KeyPress(i, 27)
End If
Next
i = 0
End Sub
Private Sub lblT_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
X = X / 15
Y = Y / 15
l = lblT.Left
t = lblT.Top
For i = 0 To 3
Sel(i) = False
lU(i).Visible = True
If ((X + l - lU(i).X1) * (X + l - lU(i).X2) < 0) And ((Y + t - lU(i).Y1) * (Y + t + 16 - lU(i).Y1) < 0) Then
Sel(i) = True
lU(i).Visible = False
shp.Move lU(i).X1, lU(i).Y1 - 16, Wid(i)
End If
Next
i = 0
shp.Visible = Not (Sel(0) + Sel(1) + Sel(2) + Sel(3) = 0)
End Sub
Public Sub HelpSwitch(ByVal SwitchOn As Boolean)
If SwitchOn Then
lbl(1).Visible = True
lbl(2).Visible = True
Me.Height = 5175
chk.Top = 288
cmd(0).Top = 288
cmd(1).Top = 288
Else
lbl(1).Visible = False
lbl(2).Visible = False
Me.Height = 2775
chk.Top = 128
cmd(0).Top = 128
cmd(1).Top = 128
End If
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2 - 200
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -