www.pudn.com > english900.rar > Form1.frm
VERSION 5.00
Begin VB.Form Form1
BorderStyle = 4 'Fixed ToolWindow
Caption = "日常用语"
ClientHeight = 1305
ClientLeft = 105
ClientTop = 6765
ClientWidth = 3105
FillStyle = 0 'Solid
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1305
ScaleWidth = 3105
ShowInTaskbar = 0 'False
Begin VB.ComboBox c2
Height = 300
ItemData = "Form1.frx":0000
Left = 600
List = "Form1.frx":001C
TabIndex = 11
Text = "英语九百句"
Top = 1320
Width = 1215
End
Begin VB.ComboBox C1
Height = 300
ItemData = "Form1.frx":0076
Left = 0
List = "Form1.frx":009B
TabIndex = 2
Text = "4"
Top = 1320
Width = 615
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = "EnglishElf98.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 495
Left = 1800
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "Sentences"
Top = 0
Visible = 0 'False
Width = 1260
End
Begin VB.Timer T1
Interval = 4000
Left = 4200
Top = 120
End
Begin VB.ComboBox Cb1
Height = 300
ItemData = "Form1.frx":00C4
Left = 1800
List = "Form1.frx":0170
TabIndex = 3
Text = "问候语"
Top = 1320
Width = 1215
End
Begin VB.ComboBox Cb8
Height = 300
ItemData = "Form1.frx":03CC
Left = 1800
List = "Form1.frx":046F
TabIndex = 10
Text = "情景一"
Top = 1320
Width = 1215
End
Begin VB.ComboBox Cb7
Height = 300
ItemData = "Form1.frx":06AD
Left = 1800
List = "Form1.frx":06FC
TabIndex = 9
Text = "认识新朋友"
Top = 1320
Width = 1215
End
Begin VB.ComboBox Cb6
Height = 300
ItemData = "Form1.frx":07E2
Left = 1800
List = "Form1.frx":081C
TabIndex = 8
Text = "入境通关"
Top = 1320
Width = 1215
End
Begin VB.ComboBox Cb5
Height = 300
ItemData = "Form1.frx":08B4
Left = 1800
List = "Form1.frx":08D9
TabIndex = 7
Text = "个人背景"
Top = 1320
Width = 1215
End
Begin VB.ComboBox Cb4
Height = 300
ItemData = "Form1.frx":0953
Left = 1800
List = "Form1.frx":097E
TabIndex = 6
Text = "拜访客户"
Top = 1320
Width = 1215
End
Begin VB.ComboBox Cb3
Height = 300
ItemData = "Form1.frx":09F9
Left = 1800
List = "Form1.frx":0A2A
TabIndex = 5
Text = "迎接客人"
Top = 1320
Width = 1215
End
Begin VB.ComboBox Cb2
Height = 300
ItemData = "Form1.frx":0ACA
Left = 1800
List = "Form1.frx":0B07
TabIndex = 4
Text = "要找的人在时"
Top = 1320
Width = 1215
End
Begin VB.Label L2
AutoSize = -1 'True
DataField = "Chinese"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 120
TabIndex = 1
Top = 840
Width = 105
End
Begin VB.Label L1
AutoSize = -1 'True
DataField = "English"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 120
TabIndex = 0
Top = 240
Width = 105
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim vText As New VTxtAuto.VTxtAuto
Private Sub C1_Click()
T1.Interval = (C1.Text) * 1000
Form1.Height = 1620
End Sub
Private Sub Cb1_Click()
Data1.Recordset.FindFirst "ChineseSmallScene = '" + Cb1.Text + "'" '
Form1.Height = 1620
End Sub
Private Sub c2_Click()
Select Case c2.Text
Case "英语九百句"
Cb1.Visible = True
Cb2.Visible = False
Cb3.Visible = False
Cb4.Visible = False
Cb5.Visible = False
Cb6.Visible = False
Cb7.Visible = False
Cb8.Visible = False
Case "电话英语"
Cb1.Visible = False
Cb2.Visible = True
Cb3.Visible = False
Cb4.Visible = False
Cb5.Visible = False
Cb6.Visible = False
Cb7.Visible = False
Cb8.Visible = False
Case "商务英语"
Cb3.Visible = True
Cb2.Visible = False
Cb1.Visible = False
Cb4.Visible = False
Cb5.Visible = False
Cb6.Visible = False
Cb7.Visible = False
Cb8.Visible = False
Case "文秘英语"
Cb4.Visible = True
Cb2.Visible = False
Cb3.Visible = False
Cb1.Visible = False
Cb5.Visible = False
Cb6.Visible = False
Cb7.Visible = False
Cb8.Visible = False
Case "求职英语"
Cb5.Visible = True
Cb2.Visible = False
Cb3.Visible = False
Cb4.Visible = False
Cb1.Visible = False
Cb6.Visible = False
Cb7.Visible = False
Cb8.Visible = False
Case "出差旅游英语"
Cb6.Visible = True
Cb2.Visible = False
Cb3.Visible = False
Cb4.Visible = False
Cb5.Visible = False
Cb1.Visible = False
Cb7.Visible = False
Cb8.Visible = False
Case "社交英语"
Cb7.Visible = True
Cb2.Visible = False
Cb3.Visible = False
Cb4.Visible = False
Cb5.Visible = False
Cb6.Visible = False
Cb1.Visible = False
Cb8.Visible = False
Case "走遍美国"
Cb8.Visible = True
Cb2.Visible = False
Cb3.Visible = False
Cb4.Visible = False
Cb5.Visible = False
Cb6.Visible = False
Cb7.Visible = False
Cb1.Visible = False
End Select
End Sub
Private Sub Cb2_Click()
Data1.Recordset.FindFirst "ChineseSmallScene = '" + Cb2.Text + "'" '
Form1.Height = 1620
End Sub
Private Sub Cb3_Click()
Data1.Recordset.FindFirst "ChineseSmallScene = '" + Cb3.Text + "'" '
Form1.Height = 1620
End Sub
Private Sub Cb4_Click()
Data1.Recordset.FindFirst "ChineseSmallScene = '" + Cb4.Text + "'" '
Form1.Height = 1620
End Sub
Private Sub Cb5_Click()
Data1.Recordset.FindFirst "ChineseSmallScene = '" + Cb5.Text + "'" '
Form1.Height = 1620
End Sub
Private Sub Cb6_Click()
Data1.Recordset.FindFirst "ChineseSmallScene = '" + Cb6.Text + "'" '
Form1.Height = 1620
End Sub
Private Sub Cb7_Click()
Data1.Recordset.FindFirst "ChineseSmallScene = '" + Cb7.Text + "'" '
Form1.Height = 1620
End Sub
Private Sub Cb8_Click()
Data1.Recordset.FindFirst "ChineseSmallScene = '" + Cb8.Text + "'" '
Form1.Height = 1620
End Sub
Private Sub Form_Load()
vText.Register vbNullString, "Speech"
'vtext.Register
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.Height = 1920
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set vText = Nothing
End Sub
Private Sub L1_Change()
vText.Speak L1.Caption, vtxtsp_NORMAL Or vtxtst_QUESTION
If L1.Width > L2.Width Then
X = L1.Width + 700
Else
X = L2.Width + 700
End If
If X > 3225 Then
Form1.Width = X
Else
Form1.Width = 3225
End If
L1.Left = 350
L2.Left = 350
End Sub
Private Sub T1_Timer()
Data1.Recordset.MoveNext
End Sub