投稿日	： 2003/08/12(Tue) 09:53
投稿者	： 花ちゃん
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^7: Validateイベントについて

下記のような方法ではだめでしょうか？

Option Explicit
Private ComPos As Boolean
Private Sub Command1_Click()
    MsgBox "Command1 がクリックされました"
    ComPos = False
End Sub
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If ComPos Then Command1.Value = True
End Sub
Private Sub Text1_Validate(Cancel As Boolean)
    Dim ret As Integer
    ret = MsgBox("テスト中", vbOKCancel)
    If ret = vbOK Then
        ComPos = True
    Else
        ComPos = False
    End If
    ' 又は If ret = vbOK Then Command1.Value = True
End Sub

★ - Validateイベントについて - みつお 08/10-20:05No.5321
• Re: Validateイベントについて - 魔界の仮面弁士 08/11-01:52 No.5327
  • Re^2: Validateイベントについて - みつお 08/11-08:36 No.5328
    • Re^3: Validateイベントについて - 花ちゃん 08/11-12:33 No.5331
      • Re^4: Validateイベントについて - みつお 08/11-13:58 No.5332
        • Re^5: Validateイベントについて - nanashi 08/11-14:46 No.5334
          • Re^6: Validateイベントについて - みつお 08/12-09:07 No.5359
            • Re^7: Validateイベントについて - 花ちゃん 08/12-09:53 No.5361
              • Re^8: Validateイベントについて - みつお 08/13-19:31 No.5409