📄 bossremaintime.frm
字号:
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4800
TabIndex = 39
Top = 2400
Width = 735
End
Begin VB.Label Label6
Caption = "死亡时间"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4800
TabIndex = 38
Top = 1920
Width = 735
End
Begin VB.Label Label5
Caption = "死亡时间"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4800
TabIndex = 37
Top = 1440
Width = 735
End
Begin VB.Label Label4
Caption = "死亡时间"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4800
TabIndex = 36
Top = 960
Width = 735
End
Begin VB.Label Label3
Caption = "死亡时间"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4800
TabIndex = 35
Top = 480
Width = 735
End
End
Begin VB.CommandButton Command1
Caption = "返回主界面"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 10320
TabIndex = 5
Top = 8160
Width = 1215
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "隶书"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1080
TabIndex = 4
Top = 3840
Width = 615
End
Begin VB.ListBox List1
BackColor = &H00C0FFC0&
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 2910
Left = 600
TabIndex = 3
ToolTipText = "点选列表中的的BOSS怪栏可以自动得到刷新时间"
Top = 360
Width = 4935
End
Begin VB.CommandButton Command6
Caption = "删除"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 10320
TabIndex = 2
Top = 3480
Width = 1215
End
Begin MSComctlLib.ListView LstViewResult
Height = 2910
Left = 5880
TabIndex = 1
Top = 360
Width = 6135
_ExtentX = 10821
_ExtentY = 5133
View = 3
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 393217
ForeColor = 0
BackColor = 12648384
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 0
End
Begin VB.CommandButton Command5
Caption = "删除"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4320
TabIndex = 0
Top = 3480
Width = 1215
End
Begin VB.Label Label17
AutoSize = -1 'True
Caption = "使用方法:在怪物列表栏中选择BOSS后，自动显示刷新时间，再勾选下面的复选按钮，点启动就可以了"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 210
Left = 360
TabIndex = 53
Top = 8280
Width = 9345
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "小时"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 1800
TabIndex = 9
Top = 3907
Width = 360
End
Begin VB.Label Label9
Caption = "刷新时间"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 600
TabIndex = 8
Top = 3840
Width = 495
End
Begin VB.Label Label2
Caption = "怪物列表栏"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 600
TabIndex = 7
Top = 120
Width = 1215
End
Begin VB.Label Label1
Caption = "已出现的怪物信息栏"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 5880
TabIndex = 6
Top = 120
Width = 1695
End
End
Attribute VB_Name = "FormBossRemainTime"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Hours As Integer
Dim Minutes As Integer
Dim Seconds As Integer
Dim time1 As Date
Dim BossName As String
Dim name1 As String
Dim timekill, timeappear '怪死亡和出现时间
Dim timecome
Const inf = "月光光心慌慌勇士们磨刀上战场，"
Const inf1 = "将再度现身，重返人界"
Sub TimetoMinute(timecome)
timehour = Val(Time)
If timehour >= 23 Then
timehour = Str(timehour - 24)
timecome = (Val(timeappear) - timehour) * 60 + (Minute(timeappear) - Minute(Time)) '单位:分钟
Else
timecome = (Val(timeappear) - Val(Time)) * 60 + (Minute(timeappear) - Minute(Time)) '单位:分钟
End If
End Sub
Sub SetCaptionTimeEnd()
Beep
FormBossQuery.Caption = "有新提示消息"
BossAdd (name1)
'怪物出现的提示
CaptionBossAppear
End Sub
Private Sub BossAdd(name1)
'将已经出现的BOSS加到列表中
With LstViewResult.ListItems.Add()
.Text = name1
.SubItems(1) = timeappear
End With
End Sub
Sub InfScroll()
'BOSS信息滚动提示
If FormBossQuery.Label9.Left > 0 Then
FormBossQuery.Label9.Left = FormBossQuery.Label9.Left - 600
Else
FormBossQuery.Label9.Left = FormBossQuery.Label9.Width
End If
End Sub
Sub CaptionBossAppear()
FormBossQuery.cmdBrowse.Enabled = True
FormBossQuery.Label14.ForeColor = vbRed
FormBossQuery.Label14.Caption = "已经有BOSS怪出现在人间了"
End Sub
Private Sub Check1_Click()
If List1.ListIndex >= 0 Then
If Check1.Value = 1 Then
Check1.Caption = BossName
name1 = Check1.Caption
Else
Check1.Caption = ""
End If
End If
End Sub
Private Sub Check2_Click()
If List1.ListIndex >= 0 Then
If Check2.Value = 1 Then
Check2.Caption = BossName
name1 = Check2.Caption
Else
Check2.Caption = ""
End If
End If
End Sub
Private Sub Check3_Click()
If List1.ListIndex >= 0 Then
If Check3.Value = 1 Then
Check3.Caption = BossName
name1 = Check3.Caption
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -