英语单词助记器（修订版）----------更新在13楼

VBA万岁

Vicel 发表于 2015-3-8 20:52
增加词条删除功能

不错，多谢分享！

VBA万岁

Vicel 发表于 2015-3-8 20:52
增加词条删除功能

代码：
英语单词助记器（代码）.zip (40.92 KB, 下载次数: 36)

2015-3-9 19:17 上传

点击文件名下载附件

Vicel

主界面加入最小化功能


英语单词助记器（修订版）.rar (36.56 KB, 下载次数: 119)

2015-3-10 14:17 上传

点击文件名下载附件

VBA万岁

Vicel 发表于 2015-3-8 20:52
增加词条删除功能

回看此帖，感觉蛮实用的，也挺强大的。
但由于我的电脑无法安装ListView控件，故只好用ListBox控件代替，相应地，第3个窗体的代码更改如下：

1. Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   
2.     Me.TextBox3.Visible = False
   
3.     Me.CommandButton1.Visible = False
   
4.     If Me.ToggleButton1.Caption = "切换/英" Then
   
5.         Me.Label1.Caption = "关键字词@中文查询"
   
6.         Me.TextBox2.SetFocus
   
7.     Else
   
8.         Me.Label1.Caption = "关键字词@英文查询"
   
9.         Me.TextBox1.SetFocus
   
10.     End If
    
11. End Sub
    
12. 
    
13. Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    
14.     If Me.TextBox1.Visible = True Then
    
15.         c = 1
    
16.     ElseIf Me.TextBox2.Visible = True Then
    
17.         c = 2
    
18.     End If
    
19.     With Me.Controls("Textbox" & c)
    
20.         If .Text <> "" Then
    
21.             .SelStart = 0
    
22.             .SelLength = Len(.Text)
    
23.         End If
    
24.         .SetFocus
    
25.     End With
    
26. End Sub
    
27. 
    
28. Private Sub ListBox1_Click()
    
29.     Me.TextBox3.Visible = True
    
30.     Me.CommandButton1.Visible = True
    
31.     Me.Label1.Caption = "关键词@" & IIf(c = 1, "英", "中") & "文查询"
    
32.     TextBox3.Text = ListBox1.List(ListBox1.ListIndex, IIf(c = 1, 2, 1))
    
33. End Sub
    
34. 
    
35. Sub TextBox_Change(c)
    
36.     Str = Trim(Me.Controls("TextBox" & c).Text)
    
37.    
    
38.     Dim arr, cel, m, n
    
39.     ListBox1.Clear
    
40.     ReDim arr(1 To 100, 1 To 3)
    
41.     For Each cel In Sheets("单词表").Range("a1:a100").Offset(, c)
    
42.         If cel.Text Like "*" & Str & "*" Then
    
43.             m = m + 1
    
44.             For n = 1 To 3
    
45.                 arr(m, n) = cel.Offset(, n - 1 - c).Text
    
46.             Next n
    
47.         End If
    
48.     Next
    
49.     ListBox1.List = arr
    
50. End Sub
    
51. 
    
52. Private Sub TextBox1_Change()
    
53.     c = 1
    
54.     TextBox_Change (c)
    
55. End Sub
    
56. 
    
57. Private Sub TextBox2_Change()
    
58.     c = 2
    
59.     TextBox_Change (c)
    
60. End Sub
    
61. 
    
62. Private Sub TextBox3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    
63.     With Me.TextBox3
    
64.         If .Text = "" Then Exit Sub
    
65.         .SelStart = 0
    
66.         .SelLength = Len(.Text)
    
67.         .SetFocus
    
68.         .Copy
    
69.     End With
    
70. End Sub
    
71. 
    
72. Private Sub ToggleButton1_Click()
    
73.     temp = Me.TextBox2.Visible
    
74.     Me.TextBox2.Visible = Me.TextBox1.Visible
    
75.     Me.TextBox1.Visible = temp
    
76.     ar = Sheets("单词表").[A1].CurrentRegion
    
77.     Select Case Me.ToggleButton1.Value
    
78.     Case False
    
79.         Me.ToggleButton1.Caption = "切换/中"
    
80.         Me.Label1.Caption = "关键字词@英文查询"
    
81.         Me.Label1.ForeColor = &H8000&
    
82.         ListBox1.ColumnWidths = "0,60,0"
    
83.     Case True
    
84.         Me.ToggleButton1.Caption = "切换/英"
    
85.         Me.Label1.Caption = "关键字词@中文查询"
    
86.         Me.Label1.ForeColor = &HC000C0
    
87.         ListBox1.ColumnWidths = "0,0,60"
    
88.     End Select
    
89.     With Me.Controls("Textbox" & Me.ToggleButton1.Value ^ 2 + 1)
    
90.         .Text = " "
    
91.         .Text = ""
    
92.         .SetFocus
    
93.     End With
    
94. End Sub
    
95. 
    
96. Private Sub UserForm_Activate()
    
97.     If Me.TextBox1.Visible = True Then TextBox_Change (1)
    
98.     If Me.TextBox2.Visible = True Then TextBox_Change (2)
    
99. End Sub
    
100. 
     
101. Private Sub UserForm_Initialize()
     
102.     ar = Sheets("单词表").[A1].CurrentRegion
     
103.     ListBox1.List = ar
     
104. End Sub
     
105. 
     
106. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
     
107.     If CloseMode = 0 Then
     
108.         Cancel = 1
     
109.         Unload Me
     
110.         Me.Hide
     
111.         UserForm1.Show
     
112.     End If
     
113. End Sub
     

复制代码

VBA万岁

VBA万岁 发表于 2015-3-10 18:01
回看此帖，感觉蛮实用的，也挺强大的。
但由于我的电脑无法安装ListView控件，故只好用ListBox控件代替， ...

附件：

英语单词助记器.zip (370.73 KB, 下载次数: 53)

2015-3-10 22:11 上传

点击文件名下载附件

Vicel

VBA万岁 发表于 2015-3-10 18:01
回看此帖，感觉蛮实用的，也挺强大的。
但由于我的电脑无法安装ListView控件，故只好用ListBox控件代替， ...

不错
但用ListView还可点击不同的列标题对该列按升或降顺序排序

1. Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
   
2.     Static T1%, m%
   
3.     T1 = ColumnHeader.Index
   
4.     If T1 <> ColumnHeader.Index Then
   
5.         Me.ListView1.SortOrder = 0
   
6.     Else
   
7.         m = m + 1
   
8.         Me.ListView1.SortOrder = m Mod 2
   
9.     End If
   
10.     If ColumnHeader.Index <= 2 Then Me.ListView1.SortKey = ColumnHeader.Index - 1
    
11. End Sub

复制代码

VBA万岁

Vicel 发表于 2015-3-10 18:18
不错
但用ListView还可点击不同的列标题对该列按升或降顺序排序

用用ListBox控件是不得已之举，当然比不上ListView控件效果好。
楼主的ListView控件用得如此之好，所以，再奉上鲜花一朵。

thb5331232

不错，下载一个学习下。

aman1516

yyfy98 发表于 2015-3-9 11:22
如果能加入声音哪就是大型软件了

网络版（连通网络，调用GOOGL语音引擎），
如要调用电脑的语音引擎，自己将代码注释一下即可：

英语单词助记器（朗读版）.rar (41.87 KB, 下载次数: 71)

2015-3-27 21:38 上传

点击文件名下载附件

awsa888

在我电脑无法使用，显示  无法装载这个对象，因为它不适用这台计算机