コマンドを使わず実行するには

凛 2004-10-05 02:33:28 No: 116762

実行後、数秒してから次の処理をするやり方が分かりません。誰か、教えてください！！！

KG 2004-10-05 05:39:17 No: 116763

Sleep関数ではダメなのでしょうか？

JAN 2004-10-05 05:41:19 No: 116764

なにか良く分かりませんがWin32APIのSleepでも使ってみたらどうでしょう。
使い方は「API」、「Sleep」等をキーワードにググッてください。

JAN 2004-10-05 05:42:22 No: 116765

被ってしまいました。
すみません。

特攻隊長まるるう 2004-10-05 06:43:22 No: 116766

精度を要求しないのであれば Timer コントロールでも
良いかもしれないですしね。ま、その辺で。

凛 2004-10-05 20:42:47 No: 116767

サンプルなどを見て、sleep関数を使ってみたのですが、sub Functionの定義がないと出ます↓（入れていると思うのですが↓）どうしたらいいのでしょう？？？

フォレスト 2004-10-05 21:02:13 No: 116768

ただ単に
Private Sub 〜(Byval 〜 As 〜)

call Sleep(3000)

End Sub

と打ってはうまく行きません。(SubまたはFunctionが定義されていませんエラー)

そのサンプルをもう一度よく見てみてください。
または「APIについて」、「API使用方法」、「SubまたはFunctionが定義されていません」、などをキーワードにMSDNなどで検索してみてください。

フォレスト 2004-10-05 21:03:59 No: 116769

ちなみに上記コードは例です。

凛 2004-10-05 23:47:30 No: 116770

Private Sub CommandActivate_Click()
    Dim ReturnCode
          ・
          ・
          ・

End Sub

Private Sub CommandDeactivate_Click()
          ・
          ・
          ・
Dim Result As Long
    Result = TOSTTSX1.Speak(txtEdit.Text)
    If Result <> 0 Then
        MsgBox ("読み上げエラーが発生しました。(エラーコード:" + CStr(Result) + ")")
    End If

End Sub

というのを作成しているのですが２回目のコマンドを使わずに実行するのはどうしたらいいでしょうか？？

特攻隊長まるるう 2004-10-06 00:17:50 No: 116771

目的や必要な条件が伝わってこないんですよねぇ。
待たなくて良いなら一番簡単なのは
Private Sub CommandActivate_Click()
    Dim ReturnCode
          ・
          ・
          ・
    Call CommandDeactivate_Click
End Sub