📄 main.frm
字号:
VERSION 5.00
Begin VB.Form main
BorderStyle = 0 'None
ClientHeight = 5640
ClientLeft = 4650
ClientTop = 2475
ClientWidth = 5805
ControlBox = 0 'False
FillStyle = 0 'Solid
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "main.frx":0000
ScaleHeight = 5640
ScaleWidth = 5805
ShowInTaskbar = 0 'False
Begin VB.CommandButton Command1
Caption = "返回"
Height = 375
Left = 2520
Picture = "main.frx":4652A
Style = 1 'Graphical
TabIndex = 4
Top = 3720
Width = 855
End
Begin VB.Timer Timer1
Interval = 5000
Left = 4200
Top = 1920
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 3360
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "College_Grade4"
Top = 2640
Visible = 0 'False
Width = 1575
End
Begin VB.Label YinPiaoLbl
DataField = "音标"
DataSource = "Data1"
BeginProperty Font
Name = "Kingsoft Phonetic Plain"
Size = 9
Charset = 2
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 240
TabIndex = 3
Top = 0
Width = 1575
End
Begin VB.Label EnglishWordLbl
DataField = "单词"
DataSource = "Data1"
BeginProperty Font
Name = "Kingsoft Phonetic Plain"
Size = 9
Charset = 2
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 240
TabIndex = 2
Top = 480
Width = 1695
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Kingsoft Phonetic Plain"
Size = 14.25
Charset = 2
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 585
Left = 480
TabIndex = 1
Top = 1920
Width = 2775
End
Begin VB.Label Label2
Alignment = 2 'Center
BackStyle = 0 'Transparent
DataField = "解释"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 480
TabIndex = 0
Top = 2640
Width = 2655
End
Begin VB.Menu munMain
Caption = ""
Visible = 0 'False
Begin VB.Menu muntimer
Caption = "速度"
Begin VB.Menu munOne
Caption = "1秒/个"
End
Begin VB.Menu munTwo
Caption = "2秒/个"
End
Begin VB.Menu munSocend
Caption = "3秒/个"
End
Begin VB.Menu munFour
Caption = "4秒/个"
End
Begin VB.Menu munFi
Caption = "5秒/个"
End
Begin VB.Menu munServen
Caption = "7秒/个"
End
Begin VB.Menu munTen
Caption = "10秒/个"
End
End
Begin VB.Menu munOnTop
Caption = "总在最前"
End
Begin VB.Menu munExit
Caption = "退出"
End
End
End
Attribute VB_Name = "main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function SetWindowRgn Lib "user32" _
( _
ByVal hWnd As Long, ByVal hRgn As Long, _
ByVal bRedraw As Boolean _
) As Long
'声明设置窗口形状的API函数
Private Declare Function ReleaseCapture Lib "user32" _
( _
) As Long
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 Const WM_SYSCOMMAND = &H112
Private Const SC_MOVE = &HF010&
Private Const HTCAPTION = 2
'
Private Sub Command1_Click()
main.Hide
End Sub
Private Sub englishwordLbl_Change()
Label1.Caption = EnglishWordLbl.Caption & "/" & YinPiaoLbl.Caption & "/"
'
End Sub
Private Sub Form_Load()
Dim 单词 As String
Dim Index As Long
Dim zhushi As String
Dim 解释 As String
Data1.DatabaseName = App.Path & "\" & "Word" & "\" & "data.mdb"
pingguo main
'
munOnTop.Checked = True
'窗口总是在最前?
Call SetWindowPos(Me.hWnd, -1, 0, 0, 0, 0, 3)
munFi.Checked = True
Timer1.Interval = 5000
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
main.PopupMenu munMain
Else
If Button = 1 Then
'如果按下鼠标左键
Dim ReturnVal As Long
X = ReleaseCapture()
ReturnVal = SendMessage(main.hWnd, WM_SYSCOMMAND, _
SC_MOVE + HTCAPTION, 0)
End If
End If
End Sub
Private Sub munExit_Click()
main.Hide
End Sub
Private Sub munFi_Click()
Timer1.Interval = 5000
munFour.Checked = False
munOne.Checked = False
munTwo.Checked = False
munSocend.Checked = False
munFour.Checked = False
munFi.Checked = True
munServen.Checked = False
munTen.Checked = False
End Sub
Private Sub munFour_Click()
Timer1.Interval = 4000
munFour.Checked = True
munOne.Checked = False
munTwo.Checked = False
munSocend.Checked = False
munFi.Checked = False
munServen.Checked = False
munTen.Checked = False
End Sub
Private Sub munOne_Click()
Timer1.Interval = 1000
munOne.Checked = True
munSocend.Checked = False
munTwo.Checked = False
munFour.Checked = False
munFi.Checked = False
munServen.Checked = False
munTen.Checked = False
End Sub
Private Sub munOnTop_Click()
If munOnTop.Checked = True Then
munOnTop.Checked = False
'
Call SetWindowPos(Me.hWnd, -2, 0, 0, 0, 0, 3)
Else
munOnTop.Checked = True
'窗口总是在最前。
Call SetWindowPos(Me.hWnd, -1, 0, 0, 0, 0, 3)
End If
End Sub
Private Sub munServen_Click()
Timer1.Interval = 7000
munFour.Checked = False
munOne.Checked = False
munTwo.Checked = False
munSocend.Checked = False
munFour.Checked = False
munFi.Checked = False
munServen.Checked = True
munTen.Checked = False
End Sub
Private Sub munSocend_Click()
Timer1.Interval = 3000
munSocend.Checked = True
munOne.Checked = False
munTwo.Checked = False
munFour.Checked = False
munFi.Checked = False
munServen.Checked = False
munTen.Checked = False
End Sub
Private Sub munTen_Click()
Timer1.Interval = 10000
munFour.Checked = False
munOne.Checked = False
munTwo.Checked = False
munSocend.Checked = False
munFour.Checked = False
munFi.Checked = False
munServen.Checked = False
munTen.Checked = True
End Sub
Private Sub munTwo_Click()
Timer1.Interval = 2000
munTwo.Checked = True
munOne.Checked = False
munSocend.Checked = False
munFour.Checked = False
munFi.Checked = False
munServen.Checked = False
munTen.Checked = False
End Sub
Private Sub Timer1_Timer()
Data1.Recordset.MoveNext
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -