Question

我正在尝试在我的VBA课程中完成一个项目并且卡住了。我为大多数单词搜索创建了程序但是我无法使用timerInterval函数。挑战和代码如下：

创建一个单词搜索游戏，允许用户在预定的时间内（例如5到10秒）查看一串字符。构建一个计时器来完成这个。时间结束后，隐藏字符串并提示用户输入他在字符串中看到的一个或多个单词。例如，字符串keoixakaccessqcinmsboxeamlz包含单词access和box。使用InStr函数确定用户的猜测是否包含在单词搜索字符串中。

async_routine3()

Answer 1

假设您可以使用API调用 - 我更喜欢这种方法。

您只需将文字控件切换为可见/不可见

即可

Option Compare Database
Option Explicit

' Simple delay mechanism using Win32 API
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub cmdShow_Click()
    txtOutput.Visible = true
End Sub


Private Sub Form_Load()

    txtOutput.Value = "hello world"

    Sleep 5000 ' 5000 milliseconds = 5 second delay
    txtOutput.Visible = false

End Sub


Private Sub cmdCheck_click()

    Dim guess As Integer

    guess = InStr(txtOutput.Value, txtInput.Value)
    If guess = 0 Then
        txtResult.Value = "You're terrible at this game"
    Else
        txtResult.Value = "Good find!"
    End If

End Sub

在VBA中自动清除文本输入

1 个答案: