VBA打造Excel版“我爱背单词”.docVIP

VBA打造Excel版“我爱背单词” __________________________________________________________________________________________ Option Explicit Private Declare Sub keybd_event Lib user32 _ (ByVal bvk As Byte, _ ByVal bsan As Byte, _ ByVal dwflags As Long, _ ByVal dwextra As Long) Const int_C = 42 Dim b_Mark As Boolean 是否要音标提示 Dim b_FirstLetter As Boolean 是否要提示首字母 Dim b_WordLength As Boolean 是否要提示单词长度 Dim int_start As Integer Dim int_len As Integer Dim int_WordCount As Integer Dim int_postion As Integer Dim int_level As Integer Dim EnglishWord As String Dim Sheet As Object Dim int_R As Integer Dim int_W As Integer Private Sub cmdCancel_Click() Unload Me End Sub Private Sub cmdOK_Click() Dim scro As Integer If EnglishWord = Trim(tbWord.Value) Then int_R = int_R + 1 If int_level 5 Then setLevel int_level + 1, int_postion setFontColor int_postion, int_level + 1 End If Else int_W = int_W + 1 If int_level 0 Then setLevel int_level - 1, int_postion setFontColor int_postion, int_level - 1 End If End If scro = int_C * (int_R - int_W / 3) If scro 0 Then scro = 0 End If lblWord.Caption = 词汇量（四级）： scro int_postion = int_postion + 1 ShowWord int_postion End Sub Private Sub setFontColor(p As Integer, l As Integer) Dim colour As Integer Select Case l Case 0: colour = 0 Case 1: colour = 3 Case 2: colour = 41 Case 3: colour = 50 Case 4: colour = 54 Case 5: colour = 38 End Select With Sheet Cells(p, 1).Font.ColorIndex = colour Cells(p, 2).Font.ColorIndex = colour Cells(p, 3).Font.ColorIndex = colour Cells(p, 4).Font.ColorIndex = colour End With End Sub Private Sub cmdOption_Click() If Me.Height 230 Then cmdOption.Caption = 设置 Me.He