📄 form1.frm
字号:
Begin VB.Image Image1
Height = 285
Index = 19
Left = 3960
Picture = "Form1.frx":28BEB
Top = 480
Width = 285
End
Begin VB.Image Image1
Height = 285
Index = 18
Left = 3600
Picture = "Form1.frx":28DCA
Top = 480
Width = 285
End
Begin VB.Image Image1
Height = 285
Index = 17
Left = 3240
Picture = "Form1.frx":28FA6
Top = 480
Width = 285
End
Begin VB.Image Image1
Height = 285
Index = 16
Left = 2880
Picture = "Form1.frx":29181
Top = 480
Width = 285
End
Begin VB.Image Image1
Height = 285
Index = 15
Left = 2520
Picture = "Form1.frx":29358
Top = 480
Width = 285
End
Begin VB.Image Image1
Height = 285
Index = 14
Left = 2160
Picture = "Form1.frx":29538
Top = 480
Width = 285
End
Begin VB.Image Image1
Height = 285
Index = 13
Left = 1800
Picture = "Form1.frx":2971B
Top = 480
Width = 285
End
Begin VB.Image Image1
Height = 285
Index = 12
Left = 5760
Picture = "Form1.frx":298FA
Top = 120
Width = 285
End
Begin VB.Image Image1
Height = 285
Index = 11
Left = 5400
Picture = "Form1.frx":29ADA
Top = 120
Width = 285
End
Begin VB.Image Image1
Height = 285
Index = 10
Left = 5040
Picture = "Form1.frx":29CBE
Top = 120
Width = 285
End
Begin VB.Image Image1
Height = 285
Index = 9
Left = 4680
Picture = "Form1.frx":29E96
Top = 120
Width = 285
End
Begin VB.Image Image1
Height = 285
Index = 8
Left = 4320
Picture = "Form1.frx":2A06D
Top = 120
Width = 285
End
Begin VB.Image Image1
Height = 285
Index = 7
Left = 3960
Picture = "Form1.frx":2A23D
Top = 120
Width = 285
End
Begin VB.Image Image1
Height = 285
Index = 6
Left = 3600
Picture = "Form1.frx":2A40F
Top = 120
Width = 285
End
Begin VB.Image Image1
Height = 285
Index = 5
Left = 3240
Picture = "Form1.frx":2A5DE
Top = 120
Width = 285
End
Begin VB.Image Image1
Height = 285
Index = 4
Left = 2880
Picture = "Form1.frx":2A7AF
Top = 120
Width = 285
End
Begin VB.Image Image1
Height = 285
Index = 3
Left = 2520
Picture = "Form1.frx":2A986
Top = 120
Width = 285
End
Begin VB.Image Image1
Height = 285
Index = 2
Left = 2160
Picture = "Form1.frx":2AB54
Top = 120
Width = 285
End
Begin VB.Image Image1
Height = 285
Index = 1
Left = 1800
Picture = "Form1.frx":2AD2A
Top = 120
Width = 285
End
Begin VB.Menu file
Caption = "文件(&F)"
Begin VB.Menu open
Caption = "打开(&O)"
Shortcut = ^O
End
Begin VB.Menu l7
Caption = "-"
End
Begin VB.Menu newfile
Caption = "新建文件"
Shortcut = ^N
End
Begin VB.Menu delfile
Caption = "删除选择行"
Shortcut = ^D
End
Begin VB.Menu appen
Caption = "追加(&A)"
Shortcut = ^A
End
Begin VB.Menu saves
Caption = "保存数据"
Shortcut = ^S
End
Begin VB.Menu l6
Caption = "-"
End
Begin VB.Menu alls
Caption = "重新载入(&L)"
Shortcut = ^L
End
Begin VB.Menu l8
Caption = "-"
End
Begin VB.Menu ren
Caption = "查询(&C)"
Begin VB.Menu seachd
Caption = "单期查询(&R)"
End
Begin VB.Menu seachz
Caption = "正码查询(&Z)"
End
Begin VB.Menu seacht
Caption = "特码查询(&S)"
End
Begin VB.Menu seache
Caption = "二中二查询(&E)"
End
Begin VB.Menu seachl
Caption = "特码连查询(&L)"
End
Begin VB.Menu l4
Caption = "-"
End
Begin VB.Menu aaaaa
Caption = "追加查询"
Shortcut = ^E
End
Begin VB.Menu ce
Caption = "随机测码"
Shortcut = ^Y
End
End
Begin VB.Menu l5
Caption = "-"
End
Begin VB.Menu exit
Caption = "退出(&X)"
Shortcut = ^X
End
End
Begin VB.Menu bc
Caption = "背景(&B)"
Begin VB.Menu style
Caption = "透明窗体"
Begin VB.Menu no
Caption = "不透明窗体"
End
Begin VB.Menu ba
Caption = "透明窗体 90%"
End
Begin VB.Menu se
Caption = "透明窗体 60%"
End
Begin VB.Menu re
Caption = "透明窗体 30%"
End
End
Begin VB.Menu l2
Caption = "-"
End
Begin VB.Menu imagea
Caption = "使用背景图像"
Shortcut = ^B
End
Begin VB.Menu music
Caption = "使用背景音乐"
Shortcut = ^M
End
Begin VB.Menu l1
Caption = "-"
End
Begin VB.Menu pause
Caption = "暂停动图"
Shortcut = {DEL}
End
Begin VB.Menu sol
Caption = "自动滚动数据"
Shortcut = ^T
End
Begin VB.Menu l3
Caption = "-"
End
Begin VB.Menu bac
Caption = "上一首"
Shortcut = {F7}
End
Begin VB.Menu nex
Caption = "下一首"
Shortcut = {F8}
End
Begin VB.Menu appe1
Caption = "追加音乐"
Shortcut = {F9}
End
End
Begin VB.Menu font2
Caption = "字体(&P)"
Begin VB.Menu font1
Caption = "设置字体"
Shortcut = ^F
End
Begin VB.Menu color1
Caption = "字体颜色"
Shortcut = ^C
End
Begin VB.Menu das
Caption = "字体大小"
Shortcut = ^H
End
Begin VB.Menu print1
Caption = "打印数据"
Shortcut = ^P
End
End
Begin VB.Menu about
Caption = "关于(&A)"
Begin VB.Menu sn
Caption = "注册软件"
End
Begin VB.Menu l9
Caption = "-"
End
Begin VB.Menu help
Caption = "帮助"
Shortcut = {F1}
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As systemtime)
Private Declare Function SetLocalTime Lib "kernel32" (lpSystemTime As systemtime) As Long
Private Type systemtime
wyear As Integer
wmonth As Integer
wdayofweek As Integer
wday As Integer
whour As Integer
wminute As Integer
wsecond As Integer
wmilliseconds As Integer
End Type
Dim datetime As systemtime
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Const WM_SYSCOMMAND = &H112
Private Const SC_MOVE = &HF010&
Private Const HTCAPTION = 2
Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Private Declare Function GetVersion Lib "kernel32" () As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA As Long = &H2
Private Const WS_EX_LAYERED As Long = &H80000
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crkey As Long, ByVal balpha As Long, ByVal dwflags As Long) As Long
Dim a As Long
Dim p As Long
Dim filename As String
Dim strversion As String
Dim anki(49) As String
Private Sub Check1_Click()
If Check1.Value = 1 Then
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer5.Enabled = False
Else
Timer2.Enabled = True
Timer3.Enabled = True
Timer4.Enabled = True
Timer5.Enabled = True
End If
End Sub
Private Sub aaaaa_Click()
CommonDialog1.filename = ""
CommonDialog1.DialogTitle = "请选择数据文件"
CommonDialog1.Filter = "数据文件(*.DAT;*.LHC)|*.dat;*.lhc"
CommonDialog1.MaxFileSize = 20480
CommonDialog1.ShowOpen
If CommonDialog1.filename = "" Then Exit Sub
If List1.Visible = False Then
Line1.Visible = True
Line3.Visible = True
Line4.Visible = True
List1.Visible = True
Label3.Visible = True
Label4.Visible = True
seachd.Enabled = True
End If
Label4.Caption = CommonDialog1.filename
Label4.ToolTipText = CommonDialog1.filename
Close
Open CommonDialog1.filename For Input As #1
Do Until EOF(1)
Input #1, temp
i = i + 1
If i <> j Then
j = j + 2
Else
qq = qq + 1
On Error GoTo help
aaaaa.Tag = 1
appen.Enabled = False
Image7.Enabled = False
aa = "正码:"
a1 = Mid(temp, 4, 2)
If Left(a1, 1) = "." Then a1 = "0" + Right(a1, 1)
a2 = Mid(temp, 6, 2)
If Left(a2, 1) = "." Then a2 = "0" + Right(a2, 1)
a3 = Mid(temp, 8, 2)
If Left(a3, 1) = "." Then a3 = "0" + Right(a3, 1)
a4 = Mid(temp, 10, 2)
If Left(a4, 1) = "." Then a4 = "0" + Right(a4, 1)
a5 = Mid(temp, 12, 2)
If Left(a5, 1) = "." Then a5 = "0" + Right(a5, 1)
a6 = Mid(temp, 14, 2)
If Left(a6, 1) = "." Then a6 = "0" + Right(a6, 1)
a7 = Mid(temp, 16, Len(temp) - 17)
a8 = Right(temp, 2)
If Left(a8, 1) = "." Then a8 = "0" + Right(a8, 1)
If Len(qq) = 1 Then qq = "00" & qq
If Len(qq) = 2 Then qq = "0" & qq
temp = qq & "期 " & aa & a1 & "." & a2 & "." & a3 & "." & a4 & "." & a5 & "." & a6 & " " & a7 & a8
For m = 1 To 49
If Val(a8) = m Then
anki(m) = Val(anki(m)) + 1
Image1(m).ToolTipText = "正码开出次数:" + Image1(m).Tag + " " + "特码开出次数:" + anki(m)
End If
Next
For m = 1 To 49
If Val(a1) = m Then
Image1(m).Tag = Val(Image1(m).Tag) + 1
Image1(m).ToolTipText = "正码开出次数:" + Image1(m).Tag + " " + "特码开出次数:" + anki(m)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -