LostFocusについて。 (ID:83938)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 お世話になります。 Private Sub cmdF2_Click() Dim strcbo As String Dim flg As String flg = -1 'ここで - 1 を持たせる If gfDbNum(strcbo) = 0 Then '項目のクリア Cbo_Koukei.ListIndex = 0 txt_Kihon_Suiryou = "" txt_Kihon_Ryoukin = "" txt_Kaisi_Suiryou = "" txt_Chouka_Ryoukin = "" txt_Tijou_Meta = "" txt_Tika_Meta = "" End Sub Private Sub cbo_koukei_LostFocus() If flg() = -1 Then Exit Sub ' flg = - 1 の場合終了 If Cbo_Koukei <> pstrCode Then Call setSelectDb(Cbo_Koukei) pstrCode = Trim(Cbo_Koukei) End If End Sub 上記のようにしているのですがうまくいきません。 F2（クリアボタン）を押下した時はLostFocusの処理を通したくないのですが なにかいい方法はないでしょうか？クリアボタン以外の時は処理を通したいのですが・・・